Re: [DUG]: Referencing variable TextFile names

[Nello Sestini]

> I would like toi be able to go
>
> Var
>     FileName, FileOne, FileTwo : TextFile;
>
> begin
> if cond1 then
>     begin
>         FileName := FileOne;
>         File := 'FileOne';
>     end
> else
>     begin
>         FileName := FileTwo;
>         File := 'FileTwo';
>     end;
> AssignFile(FileName, File);
> end;
>
> But I can't go
>         FileName := FileOne;
>
> That's the problem.  I'm sure it's very basic - I've just never had to do
it


you can do it with a pointer

I hope you will forgive my switch of your variable
names.    The way you have it is confusing

Var
     FileOne, FileTwo : TextFile;
     FileName:string;
     pFile:^TextFile;

 begin
 if cond1 then
     begin
         pFile := @FileOne;
         FileName := 'FileOne';
     end
 else
     begin
         pFile := @FileTwo;
         FileName := 'FileTwo';
     end;
 AssignFile(pFile^, FileName);
 end;

         // and then go on to do stuff like

   ReWrite(pFile^);
   Write(pFile^, 'Data');

        // etc...


-ns



---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"