Deklaration ändern ?

[DeddyH]

Noch mal ein Beispiel, das mit allen Abkömmlingen von TStrings funktionieren sollte (ich habe hier zur Verdeutlichung eine Memo, eine ComboBox und eine Listbox auf meiner Demo-Form):

Delphi-Quellcode:

procedure DoSomethingSenseless(sl: TStrings);
var i: integer;
begin
  sl.BeginUpdate;
  sl.Clear;
  for i := 1 to 100 do
    sl.Add(Format('Eintrag %d',[i]));
  sl.EndUpdate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DoSomethingSenseless(ListBox1.Items);
  DoSomethingSenseless(Memo1.Lines);
  DoSomethingSenseless(ComboBox1.Items);
end;