Listbox un stringgrid übertragen

[stefan86]

Hallo,
ich habe ein kleines Probelem: In meinem Programm öffne ich mit einem opendialog eine datei, lasse diese in einer listbox ausgeben. Zur besseren betrachtung will ich die daten in eine stringgrid übertragen---> aber wie??? (habe schon alles mögliche ausprobiert, kein ergebnis)

[mumu]

naja da kommt es drauf an, was für daten sich in der datei befinden und je nachdem musst du sie halt in die zellen eintragen, zeig doch mal nen ausschnitt einer datei die du öffnest...

[stefan86]

es sind ganz normale datentypen (string,integer ) so ungeffähr müsste das aussehen, funzt aber nicht:

var
R, C : integer;
S : string;
begin
if opendialog1.Execute then

listbox1.Items.LoadFromFile('data.dat');
listbox1.Items.Append(S);

for R:=0 to stringgrid1.RowCount do
begin
for C:=0 to stringgrid1.ColCount do
begin

stringgrid1.Cells[C,R]:=S;
end;
end;

[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;

[stefan86]

funktioniert! geilo, dankeschön!!!