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!!