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

[mr.stranger]

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

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

Выдает ошибку: Type mismatch

[macomics]

А кто-то меня отговаривал здесь не использовать ord

for i := low(Edit3) to high(Edit3) do if not (Byte(ord(Edit3[i]) - ord('0')) > 9) then exit;

[mr.stranger]

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

for i := low(Edit3) to high(Edit3) do if not (Byte(ord(Edit3[i]) - ord('0')) > 9) then exit;

Вообще ничего не происходит, ввод не проходит

[mr.stranger]

for i := low(Edit3) to high(Edit3) do
if (Byte(ord(Edit3[i]) - ord('0')) > 9) then
begin
ShowMessage('Числа введите');
Exit;
end;

Так заработало

[mr.stranger]

Осталось сделать проверку на дублированную запись
Это надо через массив делать? Или можно как-то попроще?

[macomics]

С вашим подходом - однозначно через массивы или объект TStringList.
Для передачи в параметрах массива надо будет объявить новый тип данных иначе Pascal может не принять аргументы даже если они будут объявлены одинаково.
Или можно поступить хитрее - просто передать компонент StringGrid1 в качестве аргумента функции Prov

[mr.stranger]

Так, верно?

function Prov(Edit1, Edit2, Edit3:string; StringGrid1:TStringGrid): boolean;
var i,a,b1,b2,b3,b4:integer;  
begin
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[1,a] = Trim(Edit1) then
b1 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[2,a] = Trim(Edit2) then
b2 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[3,a] = Trim(Edit3) then
b3 := 1;             
b4 := b1 + b2 + b3;
if b4 = 3 then
begin                
ShowMessage('Есть одинаковые элементы');
exit;
end;

[macomics]

зачем вам переменная i и a? а зачем столько числовых значений?

function Prov(Edit1, Edit2, Edit3:string; StringGrid1:TStringGrid): boolean;
var i:integer;
begin
  Result := False;
  if (Edit1 = '') or (Edit2 = '') or (Edit3 = '') then begin
    ShowMessage('Вы не ввели одно из значений!');
    exit;
  end;
  for i := low(Edit3) to high(Edit3) do
    if Byte(ord(Edit3[i]) - ord('0')) > 9 then begin
      ShowMessage('В третьем поле надо вводить числа!');
      exit;
    end;
  with StringGrid1 do // Зачем писать 10 раз имя компонента
    for i := FixedRows to RowCount-1 do
      if (Cells[1,i] = Trim(Edit1)) and (Cells[2,i] = Trim(Edit2)) and (strtoint(Cells[3,i]) = strtoint(Edit3)) then begin
        ShowMessage('Есть одинаковые элементы!');
        exit;
      end;
  Result := True;
end;

[mr.stranger]

понятно, спасибо вам большое

[BDA]

Вынес бы вызовы trim в начало функции из цикла:

Edit1 := Trim(Edit1);
Edit2 := Trim(Edit2);
Edit3 := Trim(Edit3);

И не делал бы strtoint, раз в Edit3 точно записано число (на момент прохода по гриду).