Listbox un stringgrid übertragen

[Sharky]

Hier mal ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
begin
  StringGrid1.RowCount := ListBox1.Count+1;
  StringGrid1.ColCount := 2;
  for ndx := 0 to Pred (ListBox1.Count) do
  begin
    StringGrid1.Cells[1,ndx+1] := ListBox1.Items[ndx];
  end;
end;