вычисления с едитами и деление на число

[Маша1993]

Добрый вечер всем! не могу никак вычислить средний балл. чтобы рассчитать надо сложить значения в едитах и разделить на 24. ни как не получается, помогите пожалуйста если знаете

[ViktorR]

А чем неустраивает простое:

DBEdit2.Text:=IntToStr(t div 24);

Как понимаю, результат среднего тоже должен быть целым?


Как-то так ...

[Маша1993]

спасибо большое сработало, только надо чтоб не целое число было а например вот так 3,9 или 4,6

[Mad_Cat]

DBEdit2.Text:=FloatToStr(t/24);

[Маша1993]

а как сделать чтобы после запятой только один символ был?

[Аватар]

см. FloatToStrF

[Маша1993]

не получается ошибку выдает

[s-andriano]

1. Пробуйте еще.
2. Если не получается, читайте документацию и на п.1.

[sklees]

Код1 :
(округление с fCount чисел после запятой)

procedure TForm1.Button1Click(Sender: TObject);
var
szMessage : LPCTSTR;
i, NPoint : Integer;
fCount : Integer;
begin
fCount := 1;
Edit2.Text := '';
szMessage := PAnsiChar(FloatToStr(StrToInt(Edit1 .Text)/24));
NPoint:=0;
while szMessage[NPoint] <> ',' do NPoint := NPoint+1;
for i:=0 to NPoint+fCount do
Edit2.Text := Edit2.Text + szMessage[i];
end;

Код2 :
(проверка правильности ввода для Едитов - число ли ввод)

procedure TForm1.Edit1Change(Sender: TObject);
var
iValue : Integer;
begin
try
begin
iValue := StrToInt(Edit1.Text);
end;
except
begin
Edit1.Text := '';
iValue := 0;
end;
end;
end;

Документация - для грамотных