Найти строку с параметрами в Memo и забрать данные в Edit

[VarlonecM]

Привет всем, обшарил весь инет, ничего подобного не нашёл. Даже странно.
Много всякого покусочного и раздробного, пытался собрать код в единый, но ничего целостного не получилось.

И так, есть файл конфига, который загружается в Memo. Все варианты конфига.
Пример:

Safe=true
Page=0.3
Safety=3
WelcomeMessage=Лясим трясим. Тра Та та.<LINE> и т.д. 
ID=565465665;444555666;4444567788
Spint=0,0,0

Нужно найти эти строки(расположение может быть рандомно) и забрать значение из них в Edit'ы.

Буду оочень благодарен

[Serge_Bliznykov]

Сообщение от VarlonecM

Привет всем, обшарил весь инет, ничего подобного не нашёл. Даже странно.

имхо, ничего странного. С учётом того, что Вам нужно и как Вы формулируете проблему.

Сообщение от VarlonecM

И так, есть файл конфига, который загружается в Memo. Все варианты конфига.

Так. Где есть файл конфига? и при чём здесь Memo?

Сообщение от VarlonecM

Нужно найти эти строки(расположение может быть рандомно)

"эти строки" - это какие именно?

Сообщение от VarlonecM

и забрать значение из них в Edit'ы.

какие именно значения должны попасть в поля ввода?

а если таких строк много, тогда какие значения брать?

пока, навскидку, можно предложить банальный перебор строк + поиск подстроки через Pos(),
но, возможно, я не прав, так как я так и не понял, где именно и что именно Вы ищете...

p.s. попробуйте более подробно и конкретно объяснить что дано и что нужно получить.
лучше на конкретных примерах.

[p51x]

Не знаю как вы искали, но я за пару минут спокойно нагуглил от всяких TIniFile, csv file до стринглиста с параметром сеператора и поску по имени...

[VarlonecM]

1) Можно и не загружать конфиг в Memo, мне так проще отслеживать, для проверки.
2) Файл конфига(ini) выглядит, как я в примере написал.
3) Мне нужно чтобы из это конфига были забраны строки в Edit'ы

Edit1 значение из поля(Safe) - 'true'
Edit2 значение из поля(Page) - '0.3'
Edit3 значение из поля(Safety) - '3'
Edit4 значение из поля(WelcomeMessage) - 'Лясим трясим. Тра Та та.<LINE> и т.д.'
Edit5 значение из поля(ID) - '565465665;444555666;4444567788'
Edit6 значение из поля(Spint) - '0,0,0'

Есть нюанс, строки могут быть перемешаны.

[p51x]

Так это ini или не ini файл? Так производительности стрингиста не хватает?

[VarlonecM]

Сообщение от p51x

Так это ini или не ini файл? Так производительности стрингиста не хватает?

ini файл, киньте ссылочку на статью, посмотрю.

[p51x]

http://docwiki.embarcadero.com/RADSt...nd_TMemIniFile

[VarlonecM]

Знаю как забрать значение цифровое, но это не работает на всё остальное...

 Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\servertest.ini');
      begin
        start:=pos('ID=',memo1.Text)+length('ID=');
        while memo1.Text[start] in ['0'..'9','.'] do
            begin
              edit1.Text:=edit1.Text+memo1.Text[start];
              inc(start);
            end;
      end;

[Serge_Bliznykov]

Сообщение от VarlonecM

2) Файл конфига(ini) выглядит, как я в примере написал.
3) Мне нужно чтобы из это значения были забраны строки в Edit'ы

выполните такой пример кода (только подставьте вместо config.cfg своё имя файла с вашим конфигом):

var TS : TstringList;
 i:integer;
begin
  TS := TstringList.Create;
  TS.LoadFromFile(ExtractFilePath(Application.ExeName)+'\config.cfg');
  for i := 0 to TS.Count - 1 do
  begin
    ShowMessage(TS.Names[i]+' is '+TS.ValueFromIndex[i]);
  end;
  TS.Free
end;

[VarlonecM]

Сообщение от p51x

http://docwiki.embarcadero.com/RADSt...nd_TMemIniFile

Данный вариант мне не подходит, у меня нет групп в файле. Конфиг не мой, он формируется сервером и я не могу в него вмешиваться.