Hallo,
ein paar kleine Tipps :
1) statt
then exit
benutze
Delphi-Quellcode:
then
begin
ShowMessage('... dein hier möglicherweise auftretender Fehler');
Exit;
end;
so has Du eine Kontrolle, was schiefgegangen ist.
2) Dein Block mit
For i := 0 to anz do .....
sollte so aussehen
Delphi-Quellcode:
for i := 0 to anz do
begin
StringGrid1.Cells ...
zahl[i....
StrigGrid1.Cells[i, 1] := ...
end;
und überprüfe mal Deine Berechnung im o.a. Block ... wenn Du mit i = 0 anfängst ...
