> 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
> before and can't think where else to look in the Help files.
>
> Mark
As a further suggestion you could always play around with TFileStream
As TFileStreams are objects not handles you can do this:
Var
FileName, FileOne, FileTwo : TFileStream;
begin
FileOne := TFileStream.Create('FileOne');
FileTwo := TFileStream.Create('FileTwo');
if cond1 then
FileName := FileOne
else
FileName := FileTwo;
FileName.Outputbuffer('Data');
end;
Check the syntax on this one, this is purely from memory and I'm currently
working in VB
- medge
---------------------------------------------------------------------------
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"
