неработает код при запуске системы (( почему?

[KWN, lnc]

и все же там же. просто не копируется здесь почему то... так та вот при редакировании он показывает здесь нормально

Procedure LoadDataArray(var A: BirthDayRec);
var HFile: file of BirthDayRec;
begin
try
  ChDir(ExtractFilePath(Application.ExeName));
  AssignFile(HFile,'Data.dat');
  Reset(HFile);
  Read(HFile,A);
  CloseFile(HFile);
except
  A.DataCount:= 0;
  exit;
end;
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Gorychev]

ChDir(ExtractFilePath(Application.ExeName));

Нужно без пробела, как здесь. Все должно работать.
Ошибку вы когда нибудь напишите?

[KWN, lnc]

повторяюсь. на этом форуме почему то пробел появляется. а так он без пробела... так в чем проблема????????

[Gorychev]

Ошибку вы когда нибудь напишите?

В папку с исходником проги закинь этот файл с данными. Его у тебя там нет, вот делфя и ругается. Потом сделай как я сказал. Должно работать.

Все, я пошел спать.

[Vol666]

Кароч это делается так

var
dir: string;
****
dir:=ExtractFilePath(ParamStr(0));
//а дальше уже адрес твоего файла будет выглядеть например так
Memo1.Lines.LoadFromFile(Dir+'data.dat');
//При условии что файл в папке...
AssignFile(HFile,''+dir+'Data.dat');

вот так

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Alex Cones]

Проще:

Dir:String;
...
GetDir(0,Dir);
AssignFile(F,Dir+'\Data.dat');
...

----------------------------------------
Как вариант, чтобы не менять код:
-Делаете в папке с программой батник:

ИМЯВАШЕГОПРИЛОЖЕНИЯ.exe

-Автозагрузку делаете не на приложение, а на батник.

[KWN, lnc]

не помогло ((((( есть еще варианты?
просто у меня тот код подгружается как модуль.

[Ra1n]

Походу, там пробел ненужен. По всей видимости и ошибка на этой строке.

[KWN, lnc]

я там пишу повторяюсь без пробела. пожалуйста помогите разобрать код ((( заранее большое человеческое спасибо.

[eoln]

Сообщение от KWN, lnc

исходник работает все на 100%.
но при загрузке системы. т.е. автозапуска вместе с windows
он не срабатывает. не подгружает базу. ((( в чем проблема.
подскажите пожалуйста ((( дайте код.

Это известная проблема. Отталкиваясь от этого, последуйте совету Alex Cones, только перед строкой запуска в батнике перейдите в рабочую папку программы командой cd (для страховки можно добавить строку смены диска C:\ или D:\). А ещё лучше создайте ярлык вашего ехе-шника, в свойствах ярлыка обязательно проверьте указана ли там рабочая папка. Теперь в автозагрузку пихайте ярлык, а не сам ехе.