TStrings zwischenspeichern und wieder herstellen

[DeddyH]

Du weist ja nur Pointer zu, brauchst aber eine Kopie.
[edit] Oder in Langform:

Delphi-Quellcode:

procedure TfrmBuchungscodes.FormCreate(Sender: TObject);
begin
  tempListShow := TStringlist.Create;
  tempListHide := TStringlist.Create;
end;

procedure TfrmBuchungscodes.FormDestroy(Sender: TObject);
begin
  tempListShow.Free;
  tempListHide.Free;
end;

procedure TfrmBuchungscodes.FormShow(Sender: TObject);
begin
  tempListShow.Assign(listboxShow.Items);
  tempListHide.Assign(listboxHide.Items);
end;

[/edit]