Re: [DUG]: Referencing variable TextFile names

Wed, 07 Mar 2001 20:23:48 -0800

Procedure WriteFile(FileName, Data: String) ;
 
var
  File: TextFile ;
 
begin
    AssignFile(File, FileName);
    Rewrite(File);
    Write(File, Data);
end ;
 
Procedure Yourstuff(Cond1: Boolean; Data: String) ;
 
begin
   if cond1 then
         WriteFile('FileOne.txt', Data)
   else
         WriteFile('FileTwo.txt', Data)
end ;
 
Dave.
----- Original Message -----
Sent: Friday, March 09, 2001 2:33 PM
Subject: Re: [DUG]: Referencing variable TextFile names

In fact, to state it again - more clearly this time.  I'm sorry for the earlier muddle.
 
I want to be able to do something like the following:
 
 Var
    FileName, FileOne, FileTwo : TextFile;
    File : String;
 
begin
   if cond1 then
     begin
         FileName := FileOne;
         File := 'FileOne.txt';
     end
   else
     begin
         FileName := FileTwo;
         File := 'FileTwo.txt';
     end;
 
    AssignFile(FileName, File);
    Rewrite(FileName);
    Write(FileName, 'Data', 'MoreData');
end;
 
But I can't go
         FileName := FileOne;
I get this error message "Operator not applicable to this operand type"
 
That's the problem.  I'm sure it's very basic - I've just never had to do it
 before and can't think where else to look in the Help files.
 
Mark
 

Reply via email to