Ciao a tutti...

Quando mando in esecuzione questa procedura, ottengo un errore di "Invalid Floating Point Operation".

constructor THumusRep.Create(territory: TPoint);
var i, c: integer;
begin
inherited Create;
location:= territory;
c:= trim(300000, 20);
for i:= 1 to c do self.Push(THumus.Create(territory));
end;
questo perchè quando provo ad assegnare un valore a i ottengo l'errore Invalid Floating Point Operation.

Ho provato anche a sostituire il ciclo con

i:=0;
repeat
inc(i);
until i>= c;
scoprendo così che l'errore arrivava su i:=0;

Perchè non posso assegnare un valore ad i? Grazie.