Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.10.2010, 22:58
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию Файл С настройками

Есть файл, DBC следующего содержания:
Код:
10.51.6.61
3306
klondaik
root
********
bd
Объяснять я думаю не надо, что это настройки TConnection
Как его грамотно(с точки зрения алгоритмики, и "велосипедов") считать?

Я так понимаю построчно?

Код:
AssignFile(FDBC,ExtractFilePath(ParamStr(0))+'Settings\DBC.txt');
Reset(FDBC);

а вот дальше ступор. "некрасивый код=\ ощущение, что есть способ проще" 

Readln(FDBC,str);
TConnection1.hostName:=str;
Readln(FDBC,str);
TConnection.port:=str;
...

CloseFile(FDBC);

С учётом того что создаю этот файл тоже я, мб стоит его создать как-то по-другому, чтобы проще было считывать?
Как вообще подобного рода settings сохраняются?
Ответить с цитированием
  #2  
Старый 01.10.2010, 23:03
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Ну не знаю, чем тебе твой вариант не устраивал то?
Можно например записать твой файл в TStrings,
при этом читав его так:
Код:
var
  s: TStrings;
  i: Integer;
begin 
  S:=TStrings.Create;
...
  i := 0; 
  While(not(EOF(FDBC))) do begin
    ReadLn(FDBC, S.Strings[i]);
    inc(i);
  end;

Ну а потом уже работать с массивом строк:
Код:
  TConnection1.hostName:=s.strings[0];
  TConnection.port:=s.strings[1];
// и т.д.

ЗЫ можно так же после записи в TStrings работать с массивом строк в цикле, изменяя при этом нужные свойства...
__________________
Помогаю за Спасибо

Последний раз редактировалось v1s2222, 01.10.2010 в 23:06.
Ответить с цитированием
  #3  
Старый 01.10.2010, 23:30
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию

v1s2222, для новых *стыдно* знаний о TString очень даже позитивная информация.

Нашёл способ интереснее.
Записать настройки в строку разделяя например #9
Использовать команды ситывания "до ближайшего" #9 и пихать их в настройки TConnection. Но для этого TСonnection.host TСonnection.port и т.д. надо поместить в массив типа TСoonection.

Применил ваш способ с TString.

Спасибо.
Ответить с цитированием
  #4  
Старый 02.10.2010, 01:06
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,035
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ага, Ini-файлы для кого придумали? Или xml?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:53.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter