Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 переобьявляется тем самым стерая всё что было в ней записано

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.029 c
14-31985
MaximatorVeter
2002-09-16 14:58
2002.10.10
Какая последняя версия у след. пакетов:


1-31813
Slanik
2002-10-02 11:01
2002.10.10
Иерархическая структура


3-31585
BCPP_Builder_Dev
2002-09-18 11:48
2002.10.10
Коллеги! Как


1-31798
Демонов Е.В.
2002-10-01 11:30
2002.10.10
Вопрос О COLOR-e


3-31642
Виталий Панасенко
2002-09-19 18:00
2002.10.10
Скорость выполнения запроса





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский