String Cols auslesen

[aaron]

Hallo,
wie kann ich alle Einträge der ersten Spalte (nicht Zeile) eines Stringgrids in einer Combobox anzeigen?
Gruss
Aaron

[Christian Seehase]

Moin Aaron,

z.B. so:

Delphi-Quellcode:

ComboBox.Items.AddStrings(StringGrid.Cols[0]);

[Die Muhkuh]

Delphi-Quellcode:

procedure StringGridColsToComboBox(StringGrid: TStringGrid; ComboBox: TComboBox; Col: Integer);
var
  I: Integer;
begin
  ComboBox.Items.BeginUpdate;
  ComboBox.Items.Clear;

  for I := StringGrid.FixedRows to StringGrid.RowCount - 1 do
    ComboBox.Items.Add(StringGrid.Cells[Col, I]);

  ComboBox.Items.EndUpdate;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  StringGridColsToComboBox(StringGrid1, ComboBox1, 0);
end;

Ach gemein, ich geb zu, dass vom Christian ist viel schöner...

[aaron]

Hallo,
vielen Dank.
Was hab ich alles getestet, und ich sag jetzt nicht wie lange. :-)
Aaron