Textdatei erstellen?

[Waldteufel]

Hi.

So gehts ohne StringList und FileStream:

Delphi-Quellcode:

procedure MeineDateiErstellen(filename, str: string);
var
  f : Text;
begin
  AssignFile(f, filename);
  Write(f, str);
  CloseFile(f);
end;

_______________________________________________

//edit:

@barf00s: Da hast du allerdings recht!

Delphi-Quellcode:

procedure MeineDateiErstellen(const filename, const str: string);
var
  f : Text;
begin
  AssignFile(f, filename);
  Rewrite(f);
  Write(f, str);
  CloseFile(f);
end;

//edit2:

Zitat von barf00s:

Fehlt nur noch das Reset(F); btw das Rewrite(F) oder Append(F);

Ich schätz mal, du meinst nicht btw (= by the way = nebenbei/übrigens), sondern bzw (= beziehungsweise)