Collatz Zahlenfolge ausgeben

[himitsu]

Zitat von Zacherl:

Block vergessen?

Nee, du hast das ELSE übersehn.

Umformatiert:

Delphi-Quellcode:

if TryStrToInt64(Edit1.text, x) then
  x := StrToInt(Edit1.text)
else
  x := 0;
z := 0;

So isses doch schöner?

Delphi-Quellcode:

if not TryStrToInt64(Edit1.text, x) then
  x := 0;
z := 0;

Oder einfach nur

Delphi-Quellcode:

x := StrToInt64Def(Edit1.text, 0);
z := 0;

Die ENDs am Ende passen optisch auch nicht zum Code darüber, vorallem die beiden aufeinanderfolgenden END in der selben Ebene.

Zitat:

in einem StrinGrid ausgeben lassen. Bitte helft mir xD. Ich komme mit dem ausgeben nicht so klar.

Ich glaub dir, dass es nicht funktioniert. Konnte im Code garnichts von einem StrinGrid finden (nichtmal einen Versuch) ... da kann ja nichts gehn.

TStringGrid.Cells
TStringGrid.Rows
TStringGrid.RowCount