Hallo forengemeinde!
Das folgende Programm soll in einem stringgrid das Pascalsche dreieck erzeugen.
Dabei wird erst in die oberste zeile ein 1er gelegt. alle anderen Kästchen sollen die summe der beiden Kästchen rechts oben und links oben des jeweiligen kästchens sein.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,x : integer;
begin
x:=(0);
stringgrid1.cells[17,1]:= inttostr(1);
for i:= 1 to 34 do
begin
for j:= 1 to 10 do
begin
x:= x + strtoint(stringgrid1.cells[i-1,j-1])
+ strtoint(stringgrid1.cells[i+1,j-1]);
stringgrid1.cells[i,j]:= inttostr(x);
end;
end;
end;
end.
Fehlermeldung:
''' ist kein gültiger Integerwert'
sitze schon den ganzen tag an dem programm, und kann den Fehler nicht finden!
Danke im vorraus,