VPF::Сохранение/чтение данных проги в файл

Drizhenko

Дата 11.1.2006, 07:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Моя прога использует определенные данные, которые по умолчанию вбиты в текстовые поля. Как сделать так, чтобы если пользователь внес изменения в эти поля, поставил свои значения, то при следующем запуске программа запускалась с этими значениями. Наверное, нужно использовать какойнибудь файл. Куда будут вноситься изминения. Подскажите как это можно сделать. И какой тип файла для этого можно использовать?

chaos

Дата 11.1.2006, 08:10 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

как вариант если полей не много то можно использовать реестр
ну а если много то можно использовать ini файлы

Это сообщение отредактировал(а) chaos - 11.1.2006, 08:13

~FoX~

Дата 11.1.2006, 09:15 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

А если очень много, то использовать БД smile

--------------------

…множественность никогда не следует полагать без необходимости…

Albinos_x

Дата 11.1.2006, 10:38 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата(chaos @ 11.1.2006, 08:10

)

как вариант если полей не много то можно использовать реестр
ну а если много то можно использовать ini файлы

или обычный текстовый файл...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Drizhenko

Дата 11.1.2006, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Полей не много. Тогда у меня возникает следующий вопрос. Читал инфу про .inf файлы, выяснил что они предназначены для инсталяции оборудования, а ini файлы то же самое что .inf. Так ли это? И еще раньше пробовал через текстовые файлы делать, но как от туда извлекать инфу? Например нужно прочитать десятый символ в пятой строке?

Albinos_x

Дата 11.1.2006, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата

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

Код

...
Readln(f,s);
if length(s)>10 then
   Simvol10:=s[10]
   else
   Simvol10:='' ;
...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Drizhenko

Дата 11.1.2006, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Если я правильно понял, то будет читать просто десятый символ. А как насчет пятой строки???

Albinos_x

Дата 11.1.2006, 11:35 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата(Drizhenko @ 11.1.2006, 11:22

)

А как насчет пятой строки???

самый простой способ:

Код

...    
reset(f);
for i:=0 to 4 do
   Readln(f,s);
stroka5:=s;

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Guedda

Дата 11.1.2006, 11:53 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Вообще лажа все.
Лучше пользоваться ini-файлами. Делается это следующим образом.
Пример: Необходимо запомнить, где находится окно приложения и при следующем запуске программы установить окно в позицию при закрытии. Это делается очень просто:

Код


uses
  ...,IniFiles,... //подключаем модуль для работы с ini файлами

...

procedure TForm1.FormCreate(Sender : Tobject); //Здесь вытаскиваются из файла данные по расположению.
var
  IniFile : TIniFile;
begin
  IniFile := TIniFile.Create('MyIniFile.ini'); //пытаемся подгрузить файл
  Form1.Left := IniFile.ReadInteger('POSITION', 'Left', 100); //если такого параметра нет, то по умолчанию стоит 100 пикс.
  Form1.Top := IniFile.ReadInteger('POSITION', 'Top', 100); //то же самое
  IniFile.Free; //освобождаем
end;

...

procedure TForm1.FormDestroy(Sender : TObject); //здесь мы будем сохранять позицию
var
  IniFile : TIniFile;
begin
  IniFile := TIniFile.Create('MyIniFile.ini');
  IniFile.WriteInteger('POSITION', 'Left', Form1.Left); //записываем левый параметр
  IniFile.WriteInteger('POSITION', 'Top', Form1.Top); //записываем верхний параметр
  IniFile.Free; //освобождаем
end;

Файл MyIniFile.ini будет выглядеть вот так:

Код


[POSITION]
Left=460
Top=302

Это самое легкое. В общем поразбираться, и понравится.

--------------------

Ll 2

YurikGL

Дата 11.1.2006, 11:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 5.7.2005
Где: Уфа

Репутация: нет
Всего: 2

Лучше всего использовать INI
Если хочешь показаться современным или данные имеют сложную структуру - пользуй XML...

--------------------

~FoX~

Дата 11.1.2006, 12:18 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Если данных не много, то можно и реестр использовать....Получиться тоже что и INI только красивше.

--------------------

…множественность никогда не следует полагать без необходимости…

Drizhenko

Дата 11.1.2006, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Спасибо, попробую c ini файлом. А насчет реестра. Как вы думаете если его засорять всяким барохлом, потом винда не будет тормозить?

Guedda

Дата 11.1.2006, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Нет. Винда то тормозить не будет, если правильно создавать ветки и ключи...

--------------------

Ll 2

~FoX~

Дата 11.1.2006, 14:02 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Drizhenko
А просто нужно аккуратненько за собой прибрать при надобности и неичего не случиться....

--------------------

…множественность никогда не следует полагать без необходимости…

Drizhenko

Дата 13.1.2006, 09:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Ничего не понимаю, что за фигня такая. Код Guedda работает, но изминения в ini файле не происходит, хотя окно появляется там же где и исчезло.

Albinos_x

Дата 13.1.2006, 09:54 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата(Drizhenko @ 13.1.2006, 09:36

)

Ничего не понимаю, что за фигня такая. Код Guedda работает, но изминения в ini файле не происходит, хотя окно появляется там же где и исчезло.

может ты не тот ини смотришь.... может ты его где-нибудь в другой папке разместил...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Drizhenko

Дата 13.1.2006, 10:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Вроде разобрался. Глюк с этой строкой

Код

IniFile := TIniFile.Create('MyIniFile.ini'); //пытаемся подгрузить файл

Написал так

Код


 IniFile := TIniFile.Create(extractfilepath(Application.ExeName)+'\MyIniFile.ini');

Заработало.

Guedda

Дата 13.1.2006, 10:07 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(Drizhenko @ 13.1.2006, 10:02)

Вроде разобрался. Глюк с этой строкой

Код

IniFile := TIniFile.Create('MyIniFile.ini'); //пытаемся подгрузить файл

Когда ты так пишешь, это не глюк. Ини файл в этом случае находится в папке WINDOWS

--------------------

Ll 2

Albinos_x

Дата 13.1.2006, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата(Guedda @ 13.1.2006, 10:07

)

Когда ты так пишешь, это не глюк. Ини файл в этом случае находится в папке WINDOWS

он видно имел ввиду, что поэтому файл который он хотел не изменялся...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Guedda

Дата 13.1.2006, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Да... Он по ходу создал ручками файл в своей директории, а писал просто...
Вот ничего и не изменялось.

--------------------

Ll 2

F1reF0x

Дата 13.1.2006, 12:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 10.10.2005

Репутация: нет
Всего: нет

Сохраняй в реестре. Имхо реестр удобней чем ini файлы, т.к всё в одном месте.

Код


uses Registry;

var
  Reg: TRegIniFile;
Begin
  Reg:= TRegIniFile.Create('Software');
  Reg.WriteString('MyProgram', 'Test', 'Test'); // 1 параметр раздел, 2 заголовк ключа, 3 данные ключа.
  Reg.ReadString('MуProgram', 'Test', 'No data'); //  1 параметр раздел, 2 заголовк ключа, если ничего нету
  Reg.Free;
End;

Albinos_x

Дата 13.1.2006, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

у реестра есть один недостаток, если прога будет работать в НТ-клонах винды из под юзера с ограниченными правами, то нифига сохраняться в реестр не будет...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

_hunter

Дата 13.1.2006, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

для этого есть улей current_user
+ на NT-клонах винды из под юзера с ограниченными правами, и в файл нифига сохраняться не будет...

--------------------

Tempora mutantur, et nos mutamur in illis...

Albinos_x

Дата 13.1.2006, 18:16 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата(_hunter @ 13.1.2006, 13:53

)

и в файл нифига сохраняться не будет...

смотря в какой файл...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

_hunter

Дата 13.1.2006, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

если убрать права на запись со всех дисков то в любой...

--------------------

Tempora mutantur, et nos mutamur in illis...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »