Как я понимаю нужно что-то вроде этого. Проблема с созданием функции созданной программистом. И завершением программы.
Код:
function NoEqual ( n: integer; var a: TA; b: TA1 ) : boolean;
var i: integer;
begin
for i:=1 to n do
begin
if a[i] = b[i] then
Result := false
else
Result:= true;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i: longint;
begin
for i:=1 to n do
a[i]:=StrToInt(StringGrid1.Cells [i-1,0]);
b[i]:= StrToInt(StringGrid2.Cells [i-1,0]);
NoEqual:=False;
i:=1;
repeat
if a[i]= b[i] then
NoEqual:=False;
ShowMessage ( ' ' + IntToStr(i)+#13+' '
else
i:=i+1;
until (i>n) or (NoEqual = True);
if NoEqual then
)
//else
ShowMessage ( ' ');
end;
begin
ShowMessage ( ' ')
else
ShowMessage ( ' ');
end;
end.