Da steht wohl in mindestens einem deiner Edits keine reine Zahl (Integer).
Eines der Edit's ist leer
Zitat:
with message ''' is not a valid
"with message ''
xxx' is not a valid"
xxx = Text im Edit
Da hier gibt 0 zurück, wenn kein Text im Edit-Feld ist.
Es wird allerdings auch eine 0 zurückgegeben, wenn ein Fehler vorhanden ist (Twext ist keine ganze Zahl).
Delphi-Quellcode:
For i := 1 to 85 do
Feld[i] := StrToIntDef(Trim(TEdit(FindComponent('Edit' + IntToStr(i))).Text), 0);
Trim( ...
) entfernt alle führenden und nachfolgenden Leerzeichen. StrToInt mekert sobald etwas anderes ausser Zahlen vorhanden ist, sei es auch nur ein Leerzeichen. ("123 ")