---|Ветка была без названия|---
Страницы:
<
1
2
3
4
5
6
7
8
>
ki11er © (2003-03-04 21:11:00)
приведенный ниже код валится через пару минут работы с
сообщениями "Index is out of date" или "Insufficient Memory..."
(при 256 оперативки и паре свободных гигах на винте ;-))))
При написании следовал советам, полученным в этой
конференции, а так же из других источников. Можно ли написать
подобный код так, чтобы он работал без глюков или это принципиально
невозможно?
procedure TFormMain.FormCreate(Sender: TObject);
var i: integer;
str_tmp: string;
begin
StartDir := ExtractFilePath(Application.ExeName);
if StartDir[Length(StartDir)] <> "\" then begin
StartDir := StartDir + "\";
end;
sDirDB := StartDir + "dbase\";
CreateDir(sDirDB);
CreateDir(StartDir + "net");
Session.NetFileDir := StartDir + "net";
CreateDir(StartDir + "private");
str_tmp := StartDir + "private\" + IntToStr(GetTickCount);
CreateDir(str_tmp);
Session.PrivateDir := str_tmp;
tbTest.DatabaseName := sDirDB;
qrTest.DatabaseName := sDirDB;
btnStartStop.Caption := "
ki11er (2003-03-05 10:54:00) [141]
Никто что ли не знает, как правильно? Или не хотите секреты
выдавать?
Страницы:
<
1
2
3
4
5
6
7
8
>
Наверх 
ЧАТ |
Орешник |
|
