Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.01.2010, 06:38   #11
KWN, lnc
Delphi 7
Форумчанин
 
Аватар для KWN, lnc
 
Регистрация: 10.02.2009
Сообщений: 354
По умолчанию

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

Код:
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;
У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор
Дайте мне власть и я переверну ваш мир!...

Последний раз редактировалось mihali4; 26.01.2010 в 15:29.
KWN, lnc вне форума Ответить с цитированием
Старый 25.01.2010, 06:53   #12
Gorychev
Участник клуба
 
Аватар для Gorychev
 
Регистрация: 08.03.2008
Сообщений: 1,537
По умолчанию

Код:
ChDir(ExtractFilePath(Application.ExeName));
Нужно без пробела, как здесь. Все должно работать.
Ошибку вы когда нибудь напишите?
Gorychev вне форума Ответить с цитированием
Старый 25.01.2010, 07:04   #13
KWN, lnc
Delphi 7
Форумчанин
 
Аватар для KWN, lnc
 
Регистрация: 10.02.2009
Сообщений: 354
По умолчанию

повторяюсь. на этом форуме почему то пробел появляется. а так он без пробела... так в чем проблема????????
Дайте мне власть и я переверну ваш мир!...
KWN, lnc вне форума Ответить с цитированием
Старый 25.01.2010, 07:08   #14
Gorychev
Участник клуба
 
Аватар для Gorychev
 
Регистрация: 08.03.2008
Сообщений: 1,537
По умолчанию

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

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

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

Последний раз редактировалось Gorychev; 25.01.2010 в 07:34.
Gorychev вне форума Ответить с цитированием
Старый 25.01.2010, 11:05   #15
Vol666
Гуру Разврата
Форумчанин
 
Аватар для Vol666
 
Регистрация: 29.07.2009
Сообщений: 373
По умолчанию

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

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

Последний раз редактировалось mihali4; 26.01.2010 в 15:30.
Vol666 вне форума Ответить с цитированием
Старый 25.01.2010, 11:18   #16
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Проще:
Код:
Dir:String;
...
GetDir(0,Dir);
AssignFile(F,Dir+'\Data.dat');
...
----------------------------------------
Как вариант, чтобы не менять код:
-Делаете в папке с программой батник:
Код:
ИМЯВАШЕГОПРИЛОЖЕНИЯ.exe
-Автозагрузку делаете не на приложение, а на батник.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

Последний раз редактировалось Alex Cones; 25.01.2010 в 11:21.
Alex Cones вне форума Ответить с цитированием
Старый 26.01.2010, 04:33   #17
KWN, lnc
Delphi 7
Форумчанин
 
Аватар для KWN, lnc
 
Регистрация: 10.02.2009
Сообщений: 354
По умолчанию

не помогло ((((( есть еще варианты?
просто у меня тот код подгружается как модуль.
Дайте мне власть и я переверну ваш мир!...
KWN, lnc вне форума Ответить с цитированием
Старый 26.01.2010, 15:12   #18
Ra1n
 
Аватар для Ra1n
 
Регистрация: 24.01.2010
Сообщений: 5
По умолчанию

Походу, там пробел ненужен. По всей видимости и ошибка на этой строке.
Хотите меня отблагодарить - бросьте монетку:
Z122717110322 ; E337948685310 ; U174175658238 ; R288787571440
Ra1n вне форума Ответить с цитированием
Старый 27.01.2010, 01:48   #19
KWN, lnc
Delphi 7
Форумчанин
 
Аватар для KWN, lnc
 
Регистрация: 10.02.2009
Сообщений: 354
По умолчанию

я там пишу повторяюсь без пробела. пожалуйста помогите разобрать код ((( заранее большое человеческое спасибо.
Дайте мне власть и я переверну ваш мир!...
KWN, lnc вне форума Ответить с цитированием
Старый 27.01.2010, 02:03   #20
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,645
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка при запуске Nice42ru Помощь студентам 10 02.01.2010 18:52
При запуске системы отключается сетевая карта Zerofill Компьютерное железо 9 17.12.2009 22:13
Неработает код для перехвата API-функции в Vista 64bit artemvyrtosu Win Api 0 30.06.2009 18:31
Список структуры (типа база) почему неработает ??? Stark[SG!] Общие вопросы C/C++ 1 15.05.2008 15:25