hmm vielleicht hilft dir das weiter (ist aber nicht getestet!!!)
Delphi-Quellcode:
procedure TMain_Form.prFile();
var
blFile : Boolean;
strFile : TStreamFile;
txtFile : TextFile;
begin
blFile := FileExists('C:\Temp\Text.txt');
If blFileExists = False Then
Begin
Try
strFile := TFileStream.Create('Pfad', fmCreate);
Finally
strFile.Free;
End;
{$I-}
AssignFile(txtFile, 'C:\Temp\Text.txt');
Reset(txtFile);
Writeln(txtFile, 'Eingabedaten');
CloseFile(txtFile)
{$I+}
End;
Else
Begin
{$I-}
AssignFile(txtFile, 'C:\Temp\Text.txt');
Append(txtFile);
Writeln(txtFile, 'Eingabedaten');
CloseFile(txtFile);
{$I+}
End;
end;