Проверка правильности ввода, очищение полей

@Your_Nightmare · Регистрация: 25.12.2012

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

Здравствуйте, помогите, пожалуйста, доработать приложение для конвертации валюты в рубли.
Нужно следующее:
1.При вводе данных в одно поле очищать данные в другом. Для этого написать обработчики события OnEnter (данное событие наступает в момент получения компонентом фокуса ввода) для полей ввода.
2.Произвести проверку правильности ввода данных в поля редактирования. Выдавать сообщение об ошибке.
Вот фрагмент программы

Delphi

 procedure TForm1.Button1Click(Sender: TObject);
var
a: real;
begin
if (Edit1.Text='') and (Edit2.Text='') then
 ShowMessage('Поля пустые');
 
if Edit2.Text='' then
begin
a:=StrToFloat(Edit1.Text)/30;
if checkbox1.Checked= true then
Edit2.Text:=FloatToStrF(a, ffFixed,8,2)
else edit2.text:=FloatToStr(a);
end
else
begin a:=StrToFloat(edit2.text)*30;
if checkbox1.checked=true
then
edit1.Text:= FloatToStrF(a,ffFixed,8,2)
else
edit1.Text:=FloatToStr(a);
 
end;
  
end;

@barbudo59 · 10.10.2013, 19:40

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

написать обработчики события OnEnter для полей ввода

пока это не сделано.
Выделите поле ввода, для него найдите событие OnEnter, двойной клик создаст что-то вроде

Delphi

1	procedure TForm1.Edit1OnEnter(Sender: TObject);

Целесообразно вставить проверку на "только цифры"

@Your_Nightmare · 24.10.2013, 19:23 **[ТС]**

ничего не работает, вылазит окно при запуске: is not a valid floating point valie (как это исправить?)

@northener · 24.10.2013, 19:42

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

ичего не работает, вылазит окно при запуске: is not a valid floating point valie

Ничего удивительного.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
a: real;
begin
if (Edit1.Text='') and (Edit2.Text='') then
 ShowMessage('Поля пустые');
 //Ну и хрен с тем что оба поля пустые. Все равно попробую перевести в число хоть одно из них
if Edit2.Text='' then
begin
a:=StrToFloat(Edit1.Text)/30;

@MrOnlineCoder · 24.10.2013, 21:42

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

При вводе данных в одно поле очищать данные в другом. Для этого написать обработчики события OnEnter (данное событие наступает в момент получения компонентом фокуса ввода) для полей ввода.

Лучше так написать:

Delphi

{Edit1.OnChange}
begin
if Length(Edit1.Text)<>0 then Edit2.Clear; 
end;

Новые блоги и статьи
Как клонировать определенную ветку в Git bytestream 24.01.2025 Одной из ключевых функций Git является возможность клонирования веток, что позволяет создавать локальные копии удаленных репозиториев и работать с определенными версиями проекта. Этот механизм. . .	Как в цикле обойти строки DataFrame в Pandas Python bytestream 24.01.2025 DataFrame представляет собой одну из основных структур данных в библиотеке Python Pandas, которая организует информацию в виде двумерной таблицы с строками и столбцами. Эта структура данных особенно. . .	Как получить имя текущей ветки в Git bytestream 24.01.2025 При работе с Git часто возникает необходимость определить имя текущей ветки, в которой ведется разработка. Знание текущей ветки является критически важным аспектом для эффективного управления. . .	Как отсортировать массив объектов по значению поля объекта в JavaScript bytestream 24.01.2025 При разработке веб-приложений на JavaScript разработчики часто сталкиваются с необходимостью работать с массивами объектов. Эти структуры данных представляют собой упорядоченные наборы элементов, где. . .	Ошибка "src refspec master does not match any" при пуше коммита в Git bytestream 24.01.2025 При работе с системой контроля версий Git разработчики нередко сталкиваются с различными ошибками, одной из которых является сообщение "src refspec master does not match any". Эта ошибка возникает. . .	Как округлить не более двух цифр после запятой в JavaScript bytestream 24.01.2025 При работе с числами в JavaScript разработчики часто сталкиваются с необходимостью округления десятичных значений до определенного количества знаков после запятой. Это особенно важно при работе с. . .
Как сделать UPDATE из SELECT в SQL Server hw_wired 24.01.2025 В современных системах управления базами данных операции обновления и выборки данных являются фундаментальными инструментами для работы с информацией. SQL Server предоставляет мощные команды UPDATE и. . .	Как вставить элемент в массив на указанный индекс в JavaScript hw_wired 24.01.2025 Массивы являются одной из фундаментальных структур данных в JavaScript, предоставляющей разработчикам мощный инструмент для хранения и управления упорядоченными наборами данных. Они позволяют хранить. . .	Чем отличаются HashMap и Hashtable в Java hw_wired 24.01.2025 В мире разработки на Java существует множество инструментов для работы с коллекциями данных, и среди них особое место занимают структуры данных для хранения пар ключ-значение. HashMap и Hashtable. . .	Как конвертировать видео в GIF hw_wired 24.01.2025 В современном мире анимированные изображения стали неотъемлемой частью цифровой коммуникации. Формат GIF (Graphics Interchange Format) представляет собой особый тип файлов, который позволяет. . .	Как скопировать текст в буфер обмена на JavaScript во всех браузерах hw_wired 24.01.2025 Копирование текста в буфер обмена стало неотъемлемой частью современных веб-приложений, значительно улучшающей пользовательский опыт и упрощающей работу с контентом. В эпоху активного обмена. . .	Как скрыть клавиатуру на Android hw_wired 24.01.2025 При разработке Android-приложений часто возникает необходимость управлять видимостью экранной клавиатуры для улучшения пользовательского опыта. Одним из наиболее эффективных способов контроля. . .

@Your_Nightmare 1 / 1 / 0 Регистрация: 25.12.2012 Сообщений: 60
	24.10.2013, 19:23 [ТС]	3
	ничего не работает, вылазит окно при запуске: is not a valid floating point valie (как это исправить?) 0

	24.10.2013, 21:42