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