speichern von texten

[DeddyH]

Normalerweise würde ich jetzt auf die Delphi-Hilfe verweisen, aber ausnahmsweise kommentiere ich Dir das mal:

Delphi-Quellcode:

var f: file of char;
    c: char;
    s: string;
    i,l: integer;

begin
  //Wenn der Speicherdialog bestätigt wurde
  if savedialog1.execute then
    begin
      //weise der Dateivariablen f den Dateinamen des Dialogs zu
      assignfile(f,savedialog1.Filename);
      //erstelle/überschreibe die Datei
      rewrite(f);
      //weise s den Inhalt des Edits zu
      s:=edit1.text;
      //ermittle dessen Länge und lege sie in l ab
      l:=length(s);
      //durchlaufe in einer Schleife von 1 bis l
      for i:=1 to l do      
        begin
          //weise c das Zeichen aus s an Position l zu
          c:=s[i];
          //schreibe c in die Datei
          write(f,c);
        end;
      //schließe die Datei 
      closefile(f);
    end;
end.