Создание процедуры сравнения чисел

@astragoru · Регистрация: 07.08.2010

Author24 — интернет-сервис помощи студентам

еще вопрос....
создать на форму 2 эдита и баттон...
создать процедуру, вводя числа в поле1 на кнопке будет показывать большее/меньше поле2....

@Asker · 21.01.2011, 13:34

Сообщение от astragoru

вводя числа в поле1 на кнопке будет показывать большее/меньше поле2....

Всмысле?О_о

@aimk0 · 21.01.2011, 16:08

Может как-то так?

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
begin
if strtofloat(edit2.Text)=strtofloat(edit1.Text) then begin button1.Caption:='='; end
else
 begin
  if strtofloat(edit1.Text)<strtofloat(edit2.Text) then
  button1.Caption:='<'
  else
  button1.Caption:='>';
 end;
end;
 
procedure TForm1.Edit2Change(Sender: TObject);
begin
if strtofloat(edit2.Text)=strtofloat(edit1.Text) then begin button1.Caption:='='; end
else
  begin
    if strtofloat(edit2.Text)<strtofloat(edit1.Text) then
    button1.Caption:='>'
    else
    button1.Caption:='<';
 end;
end;

@astragoru 0 / 0 / 0 Регистрация: 07.08.2010 Сообщений: 14
		1
	Создание процедуры сравнения чисел 20.01.2011, 20:09. Показов 862. Ответов 2 Метки нет (Все метки) еще вопрос.... создать на форму 2 эдита и баттон... создать процедуру, вводя числа в поле1 на кнопке будет показывать большее/меньше поле2.... 0

@Asker 121 / 109 / 29 Регистрация: 18.12.2010 Сообщений: 378
	21.01.2011, 13:34	2
	Сообщение от astragoru вводя числа в поле1 на кнопке будет показывать большее/меньше поле2.... Всмысле?О_о 0

	21.01.2011, 16:08

Опции темы

Создание процедуры сравнения чисел

Решение