speichern von texten

[lbccaleb]

Zitat von Maria:

aha aber wenn ich write schreibe tut sich da auch keiner dran weh?


kurze frage noch:

geht laden so ähnlich? bitte ja...

Ja aber auch nur ähnlich!!

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var

  F1: TextFile;
  FirstLine: Char;
begin
  if OpenDialog1.Execute then
    begin
      AssignFile(F1, OpenDialog1.Filename);
      Reset(F1);
      Edit1.Text := '';
      while not Eof(F1) do
        begin
          ReadLn(F1, FirstLine);
          Edit1.Text := Edit1.Text + FirstLine;
        end;
    end;
    CloseFile(F1);
  end;
end;

ps: auch ungetestet!!