Скачать: CL | DM;

Программа написанная на Delphi не завершается   Найти похожие ветки 

← →
С Виктор Н ©   (2004-05-24 15:59) [0]

Привет усем.

Проблема в следующем:
Написана программа в Дельфе 6 (из тектового файла с разделителем делает выборку и хранит выборку через ADO соединение (без BDE) в файле MDB (Access 2000) в той же папке что и программа).

Проверял запуск, работу и завершение на 3-х машинах (на всех трех стоит одна и таже XP PRof, Office 2000, Delphi 6):
1. GA-8SIMLH/P4-2/256/80G.
2. ноутбук Celeron-1000/128/30 Gb.
3. Intel Brookdale-G i845GL\P4-1.8\512\60 Gb

На 1 и 2 машинах программа нормально запускается, работает и завершается (как через КРЕСТИК, так и через процедуру Close) как при запуске как отдельная программа, так и при запуске из Дельфи.
На третье следующая проблема -
- когда запускает как отдельная программа: запускается, работает (все нормально), закрываю (что через КРЕСТИК, так и через процедуру Close), форма закрывается, но смотрю диспечер задач, а программа весит как процесс и память занимает.
- запуск программы с компиляцией в Дельфе 6: запускается, работает (все нормально), закрываю (что через КРЕСТИК, так и через процедуру Close), форма закрывается, а Delphi весит как в режиме RUN, чтобы перейти в нормальный режим нажимаю Ctrl-F2.

На этой машине - Windows XP специально переустановил, поставил только драйвера, офис 2000, и дельфи 6  - то же самое.
поставил дельфи 7 - никаких изменений.

Что делать?

---

← →
Rem   (2004-05-24 16:46) [1]

Что за програма? Что делает? Какие действия совершаются в момент завершения программы?...

---

← →
Алхимик ©   (2004-05-24 16:51) [2]

Я думаю ошибка в 17-й строке.

---

← →
С Виктор Н ©   (2004-05-26 10:51) [3]

Rem

Программа делает следующее:
из тектового файла с разделителем делает выборку и хранит выборку через ADO соединение (без BDE) в файле MDB (Access 2000) в той же папке что и программа

procedure Tugal_mf.FormClose(Sender: TObject; var Action: TCloseAction);
Var
RegIni : tRegistry ;
begin
RegIni := TRegistry.Create ;
try
 RegIni.RootKey := HKEY_CURRENT_USER ;
 RegIni.OpenKey(RegDirALUG, True) ;
 RegIni.WriteString(RegKeyDir, pathDir.Text);
finally
 RegIni.Free;
end;
end;


Алхимик
/Я думаю ошибка в 17-й строке./

что за 17-ая строка ? если можно по подробнее, плиз.
или это шутка ?

---

← →
Sandman25+1   (2004-05-26 10:54) [4]

[3] С Виктор Н ©   (26.05.04 10:51)

Application.OnException не перекрыт? При записи в регистр может возникнуть исключение, тогда форма не будет закрыта.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c