подскажите пожайлуста! что я не правильно делаю?
Цитата
s:=0;
edit1.Text:=floattostr(li);
s:= li mod 10; {первая цифра}
while li>=10 do li:=li div 10; {пока не останется последняя цифра}
begin
DigitSum:=s+li;
end;
Form1.caption:=inttostr(digitsum);
end;
edit1.Text:=floattostr(li);
s:= li mod 10; {первая цифра}
while li>=10 do li:=li div 10; {пока не останется последняя цифра}
begin
DigitSum:=s+li;
end;
Form1.caption:=inttostr(digitsum);
end;
или подскажите как функции задавать в делфи