Ganz einfacher Code, öffnen , speichern es werden halt nur ca. 20000 bis 30000 Zahlen eingelesen in das Memo.
Code:
procedure TForm1.Speichern1Click(Sender: TObject);
begin
if savedialog1.Execute then begin
Texteingabe.lines.savetofile(savedialog1.FileName);
end;
end;
procedure TForm1.ffnen1Click(Sender: TObject);
begin
opendialog1.Execute;
Texteingabe.lines.loadfromfile (opendialog1.FileName);
end;
end.
mfg Vader