Speicherproblem bei TCombobox.Items

[DeddyH]

Versuch das mal so:

Delphi-Quellcode:

procedure fillStrings(var ADOQuery: TADOQuery; tabName: string; fieldName: string; const sItems: TStrings);
begin
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Append('SELECT '+fieldName+' FROM '+tabName);
  ADOQuery.Open;
  sItems.BeginUpdate;
  try
    sItems.Clear;
    while not ADOQuery.Eof do begin
      sItems.Append(ADOQuery.Recordset.Fields.Item[fieldName].Value);
      ADOQuery.Next;
    end;  
    ADOQuery.Close;
  finally
    sItems.EndUpdate;
  end;
end;

Als sItems übergibst Du nun ComboBox.Items.

[edit] Markus, 2 Doofe, ein Gedanke [/edit]