floor delphi

Ответ от Barricade[гуру]
X:= trunc ( length (edit1.text) / length (edit2.text) );

Ответ от Psih.O.Z.[гуру]
вобщем так. знаю щас ты скорее всего нифига не поймешь, потому что всю процедуру я писать не буду. потом если не понял напишешь на мыло.
вобщем надо сначала из обоих эдитов strtoint перевести в две переменные, потом уже с ними делай че хочешь.
ладно.... напишу пример.. .
(t,g:string) и (a,b:integer)
тело:
t:=edit1.text;
g:=edit2.text;
a:=srttoint(t);
b:=strtoint(g);
потом с а и б делай ще хош.
ЗЫ: функция, обратная стртуинт - inttostr
Самый надежный способ, тем более если с переменными не одно действие. а округлить INT(напримет e:=INT(a/b)

Ответ от Џрослав Попов[гуру]
грубо говоря - инт (ленгз (форм1.едит1.текст) / стртонт (форм1.едит2.текст))

Ответ от 3 ответа[гуру]