wie schreibe ich ein textfile in ein unterverzeichnis

[Willi1960]

hallo,

ich habe ein problem ich möchte ein textfile in ein unterverzeichnis schreiben aber es will nicht funktionieren. folgenden quellcode habe ich erstellt

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 then
  begin
    Writeln (f, 'Test');
    closefile(f);
  end;
end;

wer kann mir helfen
:wall: :wall: :wall: :wall: :wall: :wall:

[edit=MrSpock]Delphi Ende-Tag eingefügt. Mfg, MrSpock[/edit]

[lbccaleb]

du vergisst immer den [/delphi] tag am ende des quellcodes, dadurch kein delphi source

[MrSpock]

Hallo Willi,

bei mir funktioniert der Code und erzeugt die Datei mit dem Eintrag 'Test'.

Was funktioniert denn bei dir nicht?

[CCRDude]

Wahrscheinlich funktioniert das hier nicht?

[Willi1960]

Ich habe den Fehler gefunden.
Merkwürdigerweise funktioniert es nicht unter Delphi 1. Compiliere ich den Code unter Delphi 4 funktioniert es. Ich danke euch
:zwinker: :drunken:

[lbccaleb]

mhh das hätte gar nicht so lange gedauert, wenn du dir mal die fragen richtig durchgelesen und beantwortet hättest ;-)
siehe:

welche delphi version benutzt du??