функция проверки ввода

[macomics]

У обычного Edit есть событие для контроля ввода данных

[mr.stranger]

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

У обычного Edit есть событие для контроля ввода данных

Это отлично, но почему-то нам говорят писать функции, вместо того, чтобы пользоваться этим(

[macomics]

Это вы у преподавателя только что выяснили? Тогда скажите что он учит вас дурным манерам. Если предусмотрена функция фильтра - лучше использовать ее.

Иначе зачем тогда сотни людей делали для вас все эти нагромождения кода, которые выливаются в исполняемый файл размером ок 1 Мб, и выводящий пустое окно.

В любом случае прочитайте про создание функций и операцию

exit;

Тогда сможете написать что-то вроде этого

function Prov(Edit1, Edit2, Edit3: String): Boolean;
begin
  Result := False; // Условие не выполнено
  if Edit1 = '' then exit;
  if Edit2 = '' then exit;
  ...
  Result := True; // Все условия выполнены
end;

[mr.stranger]

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

Если предусмотрена функция фильтра - лучше использовать ее.

Мы только недавно начали изучать, наверное поэтому ими не пользуемся, а учимся самому языку

[mr.stranger]

function Prov(Edit1, Edit2, Edit3:string): boolean;
begin
result := false;
if (Edit1 = '') or (Edit2 = '') or (Edit3 = '') then
begin
ShowMessage('Пусто');
Exit;
end
else
result := true;
//If (Edit3 =дублированная)
end;

Работает

[macomics]

Так если воспользуетесь забежав чуть вперед - ничего страшного не произойдет, а преподаватель похвалит за предприимчивость. И я немного ошибся с названием события - OnChange. OnChanging это событие в TComboBox

function Prov(Edit1, Edit2, Edit3:string): boolean;
begin
result := false;
if (Edit1 = '') or (Edit2 = '') or (Edit3 = '') then
begin
ShowMessage('Пусто');
Exit;
end
else // Это не нужно. Тогда Result := True будет выполняться если условие не выполнено. А надо в конце функции, когда все условия проверили.
result := true;
//If (Edit3 =дублированная)
end;

[mr.stranger]

If not StrToInt(Edit3) in [0..9] then
ShowMessage('Введите числа');

Когда пытаюсь сделать проверку на числовой ввод, дает ошибку

[mr.stranger]

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

Так если воспользуетесь забежав чуть вперед - ничего страшного не произойдет, а преподаватель похвалит за предприимчивость.

Зависит от преподавателя хахах)
У меня нормальный препод, но суть задания в работе с эдитами по классике, поэтому необходимо несколько помучаться

[macomics]

Сообщение от mr.stranger

по классике

Это прыгать надо по ним что ли

Сообщение от mr.stranger

If not StrToInt(Edit3) in [0..9] then
ShowMessage('Введите числа');

Когда пытаюсь сделать проверку на числовой ввод, дает ошибку

Потому что вы пытаете проверить строку - несколько символов. Надо проверить каждый в цикле

for i := low(Edit3) to high(Edit3) do if not Edit3[i] in ['0' .. '9'] then exit;

[digitalis]

Сообщение от mr.stranger

Тот, кого нельзя называть?))
Но это именно он(

В Паскале нет Edit. Конечно, если это консольный ТР, а не, скажем, Free Pascal от Лазаря.