Автор ДарьяЧернобровкина задал вопрос в разделе Другие языки и технологии
Как сложить два Edit-а в Delphi 7 и получил лучший ответ
Ответ от Kaiu[гуру]
По событию кейдаун допустим и изменение полят и тп
procedure TForm1.Edit1Change(Sender: TObject);
begin
try
Edit3.Text := FloatToStr( StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text) );
except
end;
end;
kaiu
(51751)
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit3.Text := Edit1.Text + Edit2.Text;
end;
Если просто надо сложить
Обработчик этот и на едит2 чендж выставить
Ответ от Ирина В[гуру]
Делаем обработчик, на OnChange, у обоих Editов. Потом, смотря какое сложение. Если строчки объединить, то объединяем, типо Edit3.Text:=Edit1.Text+Edit2.Text
А если там должны быть числа, то используем StrToInt, и + на OnKeyPress добавляем проверку, типо такой: if not (Key in [#8,'0'..'9']) then Key:=#0;
Делаем обработчик, на OnChange, у обоих Editов. Потом, смотря какое сложение. Если строчки объединить, то объединяем, типо Edit3.Text:=Edit1.Text+Edit2.Text
А если там должны быть числа, то используем StrToInt, и + на OnKeyPress добавляем проверку, типо такой: if not (Key in [#8,'0'..'9']) then Key:=#0;
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как сложить два Edit-а в Delphi 7