Undeclared identifier OkBottomDlg

[Damik]

Помогите исправить ошибку Undeclared identifier OkBottomDlg

procedure TForm1.Button1Click(Sender: TObject);
Label NN;
var k:integer;
begin
 If OpenDialog1.Execute Then
 A:=OpenDialog1.FileName
 Else
begin Soob;
 Exit;
end;
 NN:
if (OKBottomDlg.ShowModal=mrOk)
 then
 begin M:=StrToInt(OkBottomDlg.MaskEdit1.Text);
 N:=StrToInt(OkBottomDlg.MaskEdit2.Text);
 if (M=0) or (N=0) then
 begin
 ShowMessage('Вы ввели нулевое значение! Повторите ввод!');
 Exit;
 End;
 end
 else begin
 if Application.MessageBox('Вы не ввели значения. Повторить ввод?','Надо ввести значения или Отмена',MB_OKCANCEL)=1
 then Goto NN
 else Exit;
 end;
 Vvod(B);
 if K>0 then  begin
 ShowMessage('Ошибочно количество строк исходного массива'+'Проверьте файл с исходными данными');
 Halt; end;
 Label1.Caption:='Введены исходные данные';
 Button1.Enabled:=False;
 Button2.Enabled:=True;
 Button2.SetFocus;
 if SaveDialog1.Execute then
 begin A:=SaveDialog1.FileName;
 AssignFile(FI,A); Rewrite (FI);
 end
 else begin Soob; Exit; end;
 Writeln(FI, 'Исходные данные');
 P(B,M,N);
end;

[Человек_Борща]

OkBottomDlg - какая-то самодельная форма в каком-то Unit'е который вы забыли в uses добавить.

[Damik]

А в uses можно просто дописать Unit1, Unit2 например?

[Volkogriz]

Нет!
Можно так

implementation
uses
Unit1, Unit2;
но лучше открыть модули в текст редакторе и поискать
функцию OKBottomDlg
и добавить её к проекту или добавить сам модуль
а ещё лучше
исправить

M:=StrToInt(OkBottomDlg.MaskEdit1.Text);

на

M:=StrToInt(Edit1.Text);

примерно так
И для начала понять, по мойму OkBottomDlg это форма, MaskEdit1.Text обычный Edit1 в котором указывалась какое то значение.
вот и всё в принципе )

[Damik]

Убрал МаскЕдит и добавил юниты. Но ничего не изменилось. Те же ошибки Undeclared identifier: 'OkBottomDlg', excepted but identifier 'ShowModal' found.

[Volkogriz]

Не описан, не объявлен, не опознан значит)))
Ща минуту и я вам исходник скину )))
Можете весь проект или код скинуть, прикрепить!

[Damik]

Вот проект. Буду ОЧЕЕНЬ блогадарен если поможете

[Volkogriz]

у вас XE3 у меня 7-ой делфя проект на XE3
я прикрепил модуль его в uses добавите и должно всё ок быть

[Damik]

Че то не получается. Но все равно спасибо большое