Сумма Label-ов

[artemavd]

Добрый вечер! Хочу задать такой вопрос. У меня программа считает одну формулу. По нажатию кнопки расчета ответ у меня выводится в Label. Формула расчитывает для 25-ти разных учеников обученность. Если ответ в формуле получается больше 71, то он выводится в специальный Label, если ответ меньше 71, то не выводится. Процедуру и условие выводить или нет я уже написал. Работает правильно. Но в конце мне надо сложить все те ответы, которые больше 71 между собой. Вот я и не знаю как мне сделать чтобы программа складывала два Label междй собой а ответ выводила в другой. Кто нибудь знает как это сделать? Подскажите что надо прописать в процедуре кнопки расчета) Заранее спасибо)

[Dj_smart]

Всё просто:

Label3.Caption:=inttostr(strtoint(Label1.Caption)+strtoint(Label2.Caption)+...)

Это в OnClick кнопки

-----
for Nickel: Чаще обновляемся

[N!ckeL]

if (strtoint(label1.caption)>71) and (strtoint(label2.caption)>71) then 
label3.caption:=inttostr(strtoint(label2.caption)+strtoint(label1.caption));

если честно вопрос не понял... что конкректно не понятно? то что я написал или перебор всех label'ов?

for Nickel: Чаще обновляемся

эт мне решать

[artemavd]

Dj_smart, спасибо тебе большоущее))

[Dj_smart]

Всегда пожайлуста)))

|
v

[artemavd]

Всем привет!) Моя формула выдает ответ в Label, а мне теперь надо сделать, чтобы ответ в этом Label можно было разделить на число которое
вводится в Edit, а ответ снова выводился в Label. Кто нибудь знает как это сделать? Надо чтобы процедура работала так: Label/Edit=Label/ Заранее с
спасибо)

[Stilet]

Примерная схема такая:

Label.Caption:=FloatToString(Strtofloat(label1.caption)/Strtofloat(edit1.text))

[artemavd]

Всем спасибо большое))