hi,
wenn du doch weist das es probleme gibt wenn x < 0, dann kannst du das doch direkt abfragen, wozu dann eine unnütze schleife?
Delphi-Quellcode:
if x >= 0 then begin
...
end
feddich.
was machst du mit ->
Zitat:
s := edit1.text;
?
evtl. kommt es ja auch dort zu einem fehler? es ist ja als string deklariert. hast du dort vielleicht ein strtoint() o.ä. vergessen?