Сейчас напишу куски кода, не уходи плз
Код:
procedure OnLoad; stdcall;
begin
//SetLength(ListConection,0);
ConectionID:=0;
CountConections:=0;
with ps do
begin
if GoFirstConnection then
repeat
ListConection[CountConections]:=inttostr(ConnectInfo.ConnectID);
inc(CountConections);
until not GoNextConnection;
end;
form1:=TForm1.Create(nil);
form1.Show;
end;
procedure OnFree; stdcall;
begin
BaseChar.ClearCardi; //очистка базы ObjectID
BaseChar.ClearCardiName;//очистка базы ObjectName
ul2Form.FreeFormSublime;//см.ниже.
form1.free;
end;
Код:
procedure FreeFormSublime;
begin
if booleanForm2 then
begin
form2.Free;
booleanForm2:=false;
end;
end;
Добавлено через 23 часа 51 минуту
Ап, прошли сутки
ответа нет,
мб я недостаточно информации дал? могу ещё написать если чего-то не хватает(