Textdatei anlegen

[Andidreas]

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;