Hi Chris,
du verbrauchst auf diese Weise auf jeden Fall mehr Speicher als du denkst. Nimm statt des array lieber eine StringList:
Delphi-Quellcode:
uses
Classes;
type
TForm1 = class(TForm)
private
Lines: TStringList;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Lines := TStringList.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Lines.Free;
end;
procedure TForm1.OpenButtonClick(Sender: TObject);
begin
with OpenDialog do
if Execute then
Lines.LoadFromFile(FileName);
end;
Grüße vom marabu