Hi Ralf,
versuch es doch mal so:
Delphi-Quellcode:
procedure TForm1.FLISTClick(Sender: TObject);
begin
memstr := TMemoryStream.Create; //wobei, wird jedesmal beim Klick erstellt (sinnlos, oder?)
memstr.LoadFromFile(STV1.Path + '\' + FList.Items.Strings[FList.ItemIndex]);
memStr.Free;
end;
oder:
Delphi-Quellcode:
procedure TForm1.OnCreate;
begin
memStr := TMemotyStream.Create;
end;
procedure TForm1.OnClose;
begin
memStr.Free;
end;
procedure TForm1.FListClick(Sender: TObject);
begin
memStr.LoadFromFile(STV1.Path + '\' + FList.Items.String´s[FList.ItemIndex]);
end;
PS: @Ralf bitte künftig den Code in die Delphi-Code-Tags ([ delphi] [ /delphi], natürlich ohne die Leerzeichen).