Показать сообщение отдельно
  #26  
Старый 29.06.2009, 20:02
bleeep bleeep вне форума
Прохожий
 
Регистрация: 28.06.2009
Сообщения: 37
Репутация: 10
По умолчанию

Ничего не прописывал...Хотя есть одна вещь настройки берутся из файла *.ini в нем прописаны так сказать заданные SpinEdit'ом значения а при загрузке программы она берет значения из файла если таковой присутствует в директории...Может с этим связано?
Во точно..Удалил файлы из директории и это исчезло.То есть при старте у меня прога проверяет наличие файлов, если есть то значения в SpinEdit'ах не изменяются как я привел пример выше. Если же файлы отсутствуют то все норм, мне необходимо сделать чтобы так было и с присутствием файлов
Код:
procedure TForm2.FormShow(Sender: TObject);
begin
GetDir(0,sPath);
if FileExists(sPath + '\Cfg.INI')  then
  begin
 Label7.Caption:='файл конфигурации создан';

 SpinEdit1.Value:=strtoint(Form4.ReadIni('all','kolv'));
 SpinEdit2.Value:=strtoint(Form4.ReadIni('all','kolm'));
 SpinEdit3.Value:=strtoint(Form4.ReadIni('all','5'));
 SpinEdit4.Value:=strtoint(Form4.ReadIni('all','4'));
 SpinEdit5.Value:=strtoint(Form4.ReadIni('all','3'));
   end
   else Label7.Caption:='файл конфигурации не создан';

   end;
Вот оно, может просто убрать присвоение?)В принципе больше в алгоритме нигде не применяется))
...Ура работает))Спасибо что подтолкнули в правильном направлении
__________________
"I remember the good old days, when computers were
mainframes, analysts were magicians,and programmers
punced cards..."
Ответить с цитированием