VPF::Как реализовать хранение? - Форум программистов

Hrom

Дата 26.2.2006, 03:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Пишу программу на Delphi, для работы с интернетом, она получает время и дату соединения с инетом и разъединения с инетом, также время соединения, теперь у меня возникла куда эти данные сохранить? Как лучше реализовать хранение этой инфы на диске, чтобы при запуске программы, ввся эта инфа была видна в определенных полях!
Был бы очень благодарен, еслиб дали пример!!!
Заранее благодарен!

Poseidon

Дата 26.2.2006, 04:08 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Ну мест много.

txt
ini
реестр
база данных

Пиши как больше нравится, будет пример smile

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Guedda

Дата 26.2.2006, 08:34 (ссылка)

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

Загрузка ...

Подрывник

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

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

Цитата(Poseidon @ 26.2.2006, 05:08)

Код


var
  Txt : TextFile;
  Str : string;
begin
//-----------------------------------------------------
//                 Считываем файл
//-----------------------------------------------------
  AssignFile(Txt, 'C:\MyFile.txt'); //Соединяемся с файлом
  Reset(Txt); //Открываем его для чтения
  while not eof(Txt) do //пока не конец файла, то
  begin
    Readln(Txt, Str); //Считываем из файла строку, переходя на следующую
    ShowMessage(Str); //Тут уже делаешь, что хочешь
  end;
  CloseFile(Txt); //Никогда не забывай разрывать связь с файлом...!
//----------------------------------------------------
//                 Записываем в файл
//----------------------------------------------------
  if not FileExists('C:\MyFile.txt') then //если файл не существует
  begin
    AssignFile(Txt, 'C:\MyFile.txt'); //Связываемся с файлом
    Rewrite(Txt); // Создаем файл, становим указатель на начало записи
    CloseFile(Txt); // Закрываем файл
  end;
  AssignFile(Txt, 'C:\MyFile.txt');
  Append(Txt); //Открываем файл для дозаписи
  Writeln(Txt, 'BlaBla'); //Пишем в файл строку
  CloseFile(Txt);//Не забываем закрывать :)
end;

Я бы тебе не советовал этот метод...

Цитата(Poseidon @ 26.2.2006, 05:08)

Вот этот метод самый оптимальный...
ВОТ ТЕБЕ ЛИНК... Я ТАМ ОТВЕЧАЛ ПО ПОВОДУ INI

Цитата(Poseidon @ 26.2.2006, 05:08)

реестр

Ну, это тоже один из оптимальных способов хранения информации.

Код


uses
  ,...,Registry; //Необходимо подключить ст. модуль Registry;

var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create; //Создаем экземпляр класса Tregistry
  Reg.RootKey := HKEY_LOCAL_MACHINE; //Выбираем ветку, в которую будем писать и читать
  Reg.OpenKey('Software', false); 
  {
    Открываем папку Software. Параметр false указывает на то, что папка, если она 
    не существует, не будет создана, при true будет!
  }
  Reg.WriteInteger('Left', Form1.Left); //Записали левую позицию формы.
  //...
  Form1.Left := Reg.ReadInteger('Left'); //А вот мы ее считали
end;

Цитата(Poseidon @ 26.2.2006, 05:08)

база данных

Не катит совсем... Так как придется за собой таскать библиотеку с размером более 3 Мб (если, конечно, ADO не будешь пользоваться... Но с АDO мароки...)

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

Ll 2

Hrom

Дата 1.3.2006, 03:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Большое спасибо за помощь!

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