Wie erstelle ich ein aktuelles Dateiverzeichnis

[Willi1960]

hallo
ich habe das jetzt mal alles abgeändert aber es will immer noch nicht funktionieren

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);
var
   f: TextFile;
   i: integer;
begin
  {$I-}
  mkdir('c:\jowisoft');
  mkdir('c:\jowisoft\kasse');
  mkdir('c:\jowisoft\kasse\kassendaten');
  {$i+}
  if ioresult=0 then i:=i+1;   {dient einfach nur zur abfrage von ioresult}
  AssignFile (f,'c:\jowisoft\kasse\kassendaten\bondaten.txt');
  {$I-}
  Rewrite (f);
  {$I+}
  If (IOResult = 0) or (ioresult <>0) then
  begin
    Writeln (f, 'Test');
    closefile(f);
  end;
end;

[edit=MrSpock]Code Tag geschlossen. Mfg, MrSpock[/edit]