Wie erstelle ich ein aktuelles Dateiverzeichnis

[lbccaleb]

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}   //wozu das??? hat keinen sinn
AssignFile (f,'c:\jowisoft\kasse\kassendaten\bondaten.txt');
{$I-}
Rewrite (f);
{$I+}
If (IOResult = 0) or (ioresult <>0) then  //was soll denn das?? wenn ioresult = 0 oder <> 0 dann mache... das blödsinn
begin
Writeln (f, 'Test');
closefile(f);
end;
end;