Problem bei Pascalsche Dreieck

[Sir Rufo]

oder mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  ACol, ARow ,x : integer;
begin
  x := ( 0 );  // wofür denn die klammern? 
  StringGrid1.Cells[ 17, 1 ] := IntToStr( 1 );  // würde ja auch := '1'; gehen ;-)

  for ACol := 1 to 34
  do
    begin
      for ARow := 1 to 10 
      do
        begin
          x := 
            x + 
            StrToIntDef( StringGrid1.Cells[ ACol - 1, ARow - 1 ], 0 ) +
            StrToIntDef( StringGrid1.Cells[ ACol + 1, ARow - 1 ], 0 );
          StringGrid1.Cells[ ACol, ARow ] := IntToStr( x );
        end;
    end;
end;

end.

... btw ... so kann man es auch noch lesen ...

cu

Oliver

[edit]ich hab dann mal die Variablen angepasst, wegen der besseren Unterscheidung, was Col und was Row[/edit]

[edit2]aber das passt ja eigentlich gar nicht ...

Code:

....X....
...X.X...
..X.X.X..
.X.X.X.X.
X.X.X.X.X

denn du darfst ja nur die 'X'-Felder berechnen und die '.'-Felder bleiben leer![/edit2]
[edit3]oh graus ... du schreibst in zuerst in Zeile 1 (Cells[ 17, 1 ]), und dann berechnest du für jedes Feld der Zeile 1 einen Wert.
Warum dann erst die Mühe und dort etwas eintragen? Muss das vielleicht in Zeile 0?[/edit3]