StringGrid reihenweise füllen ?

[Hawkeye219]

Hi RX3,

zu dumm bist Du sicher nicht, Du hast nur einige Dinge nicht beachtet.

1) Eine FOR-Schleife hat grundsätzlich nur eine abhängige Anweisung. Dies gilt übrigens auch für die WHILE-Schleife.
Benötigst Du mehrere abhängige Anweisungen, so muß Du diese mit BEGIN...END klammern.

2) Schreibzugriffe auf die Schleifenvariable sind im Anweisungsteil einer FOR-Schleife verboten (deshalb die Fehlermeldung des Compilers).
Das Inkrementieren/Dekrementieren der Schleifenvariable wird automatisch durchgeführt.

Der korrigierte Code sieht dann so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var iCol,iRow : Integer;
    vPLanAnzahl : Integer;
begin
  Listbox1.Items.Add(EditName.Text + chr(vk_tab) + EditAlly.Text + chr(vk_Tab) + EditPlaneten.Text);
  vPlanAnzahl := StrToInt(EditPlaneten.Text);
  StringGrid1.ColCount := vPlanAnzahl + 1;
  StringGrid1.Cells[0,0] := 'Name';

  for iCol := 1 to StringGrid1.ColCount do
    StringGrid1.Cells[iCol,0] := 'Planet '+ IntToStr(iCol);

  for iRow := 1 to StringGrid1.RowCount - 1 do
  begin
    StringGrid1.Cells[0,iRow] := EditName.Text + ' | ' + EditAlly.Text;
    for iCol:= 0 to StringGrid1.ColCount - 1 do
      StringGrid1.Cells[iCol,iRow]:= Edit5.Text;
  end;
end;

Gruß Hawkeye