Wie erstelle ich ein aktuelles Dateiverzeichnis

[Chemiker]

Hallo Willi1960,


Vielleicht hilft dir das weiter:

Delphi-Quellcode:

var
  OrdnerName: String;
  DateiName: String;
  f: TextFile;
begin
  OrdnerName:= 'h:\jowisoft\kasse\kassendaten\';
  DateiName:= 'bondaten.txt';
  ForceDirectories(OrdnerName);

  AssignFile (f, OrdnerName+DateiName);
  {$I-}
  Rewrite (f);
  {$I+}
  If IOResult = 0 then
  begin
    Writeln (f, 'Test');
    // Deine Daten
    closefile(f);
  end;

end;

Fehlerbehandlung usw. fehlen.

Bis bald Chemiker