> FindComponent('a'+inttostr(i) as TSpinEdit).Value = 2323;
Ne može tako.
TSpinEdit(FindComponent('a'+inttostr(i)).Value = 2323 ili
(FindComponent('a'+inttostr(i)) as TSpinEdit).Value = 2323.
> Ma pokusavao sam ShowMessage(IntToStr((FindComponent('a'+inttostr(i)) as TSpinEdit).Value)); i dobijem:
> Project xxx raised exception class EConvertError with message ''' is not valid integer value'
To znači da je pokušana konverzija stringa u Integer, npr. preko StrToInt, kako je ti ne pozivaš onda jedino da je poziva ta kontrola. Za početak proveri da li uopšte dobijaš nešto sa FindComponent.
Code:
var
Temp: TSpinEdit;
begin
Temp := TSpinEdit(FindComponent('a4'));
if Assigned(Temp) then
...
end;