Error 216?

← →
Alibaba © (2002-05-20 17:23) [0]

Все привет.
Подскажите, плиз :

===================== В ГЛАВНОМ ПРОЕКТЕ ======================

program Client2;

uses
Windows,Dialogs,Forms,
mdVariable in "mdVariable.pas",
dlgMain in "dlgMain.pas" {frmMain},
dlgLogin in "dlgLogin.pas" {frmLogin};

{$R *.RES}

begin
Application.Initialize;
Application.Title := "Client2";
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmLogin, frmLogin);
StartProgram;
end.

===================== mdVariable ======================

procedure StartProgram;
begin
frmLogin.ShowModal;
if frmLogin.ModalResult = mrOk then
begin
Application.ShowMainForm:=True;
Application.Run;
end
else
Exit
end;

==============================================

если frmLogin.ShowModal <> mrOk
и надо делать Exit - выдает ошибку :
The instruction at "тра-ля-ля" referenced memory at "тра-ля-ля".
The memory could not be "read".

Потом я закрываю это сообщение об ошибке - оно появляется еще раз
и потом появляется сообщение Runtime error 216

Подскажите плиз, куда бежать?!

Что, Данило, не выходит каменный цветок...

← →
pb (2002-05-20 17:25) [1]

попробуй application.terminate
но вообщето данный стиль не очень хорош

← →
Alibaba © (2002-05-20 17:27) [2]

2 pb - пробовал - ничего... :(

← →
valery_f (2002-05-20 17:48) [3]

program Project1;

uses Forms, Controls,
Unit1 in "Unit1.pas" {Form1},
Unit2 in "Unit2.pas" {Form2};

{$R *.res}

begin
Form2 := TForm2.Create(Application);
if Form2.ShowModal <> mrOK then Exit;
Form2.Free;

Application.Initialize;
Application.CreateForm(TForm1, Form1);
// Application.CreateForm(TForm2, Form2);
Application.ShowMainForm := true;
Application.Run;
end.

← →
pb (2002-05-20 17:48) [4]

я поместил функцию в файл проекта все работает как с терминате так и без елзе вообще но я бы написал примерно так или воспользовался компонентом из rxlib

function login:boolean;
begin
with fmrLogin.Create(Application) do
try
result := ShowModal = mrOk;
finally
Free;
end;
end;

begin
Application.Initialize;
Application.Title := "Client2";
if login then
begin
Application.CreateForm(TfrmMain, frmMain);
Applicatin.Run;
end;
end.

Error 216? Найти похожие ветки