Wie erstelle ich ein aktuelles Dateiverzeichnis

[lbccaleb]

Delphi-Quellcode:

uses
  sysutils;  // <-- das muss unbedinkt oben in die uses klausel


procedure TForm3.Button2Click(Sender: TObject);
const
  thepath = 'c:\jowisoft\kasse\kassendaten\';
  thefile = 'bondaten.txt';
var 
  F: TextFile;
  S: string;
begin
  if not DirectoryExists(thepath) then
    ForceDirectories(thepath);
  try
    AssignFile(F, thepath + thefile);
    Reset(F);

//reset wenn die datei "bondaten.txt" bereits vorhanden ist und rewrite wenn sie neu erstellt werden soll

    Writeln(F, 'Test'); 
  finally
    CloseFile(F);
  end;
end;

ansonnsten kann ich dir auch nur emfehlen hier mal ein wenig in der codelib rum zu schnüffeln oder was sowieso auch gerade in solchen fällen gut ist, mal die delphi hilfe benutzen... da steht das auch alles drin, mit bsp und quellcode