Сохранение Масива. Продолжение диалога с Юрием ЗОТОВЫМ.......

← →
Chlavik (2002-09-27 23:49) [0]

А вы не задумывались что мне надо определить каталог винды чужого
компа у которого диск С подключенный сетевым диском ко мне А программа то запускается с моего так что тут не так всё просто...... А ваш совет на щёт заполнения масива я поробую . Пасиба вам.

← →
Chlavik1 (2002-09-28 01:27) [1]

Ну и где же ващ ответ?

← →
Юрий Зотов (2002-09-28 01:42) [2]

Там же, где и Ваш вопрос. Их нет. Обоих.

← →
Chlavik (2002-09-28 02:14) [3]

Всё равно не пашет пишу в файл я так вы мне посоветовали заполнить масив я заполнил пробелами
Смотрите

If not FileExists("PWL Explorer.cfg") then
begin

datafile.windir[0]:="windows";
datafile.windir[1]:="win";
datafile.windir[2]:="win98";
datafile.windir[3]:="win95";
datafile.windir[4]:="winme";
datafile.windir[5]:="win9x";
datafile.windir[6]:="windows.new";
datafile.windir[7]:="winda";
datafile.windir[8]:="windows98";
datafile.windir[9]:="notfound";
For h:=10 to 20 do datafile.windir[h]:=" ";

btStart.Enabled:=false;
exit;
end;

AssignFile(cfg,WorkDir + "PWL Explorer.cfg");
Reset(cfg);

if FileSize(cfg)<>0 then
begin
Read(cfg,datafile);
DirToSave:=datafile.tosave;
PathToRepwl:=datafile.PathOfRepwl;
Checkit1:=datafile.checkit;
DateAdd1:=datafile.DateAdd;
WrtHis1:=datafile.WrtHis;
btStart.Enabled:=True;
end
else
begin
btStart.Enabled:=False;
end;
CloseFile(cfg);

Короче главное что все переменные типа datafile.PathOfRepwl, или datafile.checkit читаеются так как они были сохранены а вот
масив не хочет, т.е. хочет но не то что я записывал ??
Напоминаю как я обя влял тип record
Config= record
checkit,DateAdd,Wrthis:Boolean;
tosave,PathOfRepwl,PatnOfTheBat:shortstring;
disk:string[1];
Windir:array [0..20] of string[20];
end;

Я не знаю что мне делать вы пробовали хоть раз сохранять переменные так как я ? Мне просто интересно может тут ничем не поможеш?

← →
Chlavik (2002-09-28 02:47) [4]

Помойму я нашол свою ошибку
Дело в том что моя программа редактирует масив в другой форме

А сохраняет и читает в главной так что получается: я дописал заполнение масива перед записью в файл скомпилировал програму запустил она типа сохранила настройки потом этот код заполнения масива убрал и скомпилировал снова и что выдумаете когда запустил в ComBobox было всё чем я заолнял масив перед записью
Т.е. данные масива с одной формы не передаются в другую, А почему вить это глобальная переменная при том что при чтении масив передаётся из Главной вормы в форму настроек (Я же значения елементов масива вижу в ComboBox в форме настроек) а вот назад в главную форму нет, Я думаю следующий ваш совет решит мою проблему навсегда если вы меня правильно поймёте.

Да точно я проверил отладчиком данные масива не доходят до write .....

← →
Chlavik (2002-09-28 03:02) [5]

Всё я вроде понял в чём дело
procedure TfmMain.N3Click(Sender: TObject);

var
cfg:file of config;
datafile: config;
l:Boolean;
label 1,2;
begin
2:
l:=false;
Case fmProperties.ShowModal of

mrYes:.............
Дело ы том что В этой процедуре Пременная Datafile переобьявляется тем самым стерая всё что было в ней записано

Пасиба вам за ваше терпение будут вопросы буд задавать......

Сохранение Масива. Продолжение диалога с Юрием ЗОТОВЫМ....... Найти похожие ветки