Delphi. TIniFile без секций

[Ariomex]

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

я ваще то даже не в курсе что такое отступ...

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

Отступ=таб(табуляция).
Я работаю с файлом конфигурации чужой программы, а она во время своей работы может менять некоторые записи в этом файле. Ну и иногда может добавлять отступ/пробел в строке до параметра...

[eval]

что-то вы темните, не может программа менять

[Ariomex]

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

что-то вы темните, не может программа менять

Что значит "не может" ? Есть программа и есть её же конфиг-файл. Так в чём проблема ?

[eval]

с чего вы взяли что у меня проблема? нет их

[Stilet]

Ну и иногда может добавлять отступ/пробел в строке до параметра...

Чет я не понял а от чего это зависит? Само собой то он не добавляется, значит сторонняя программа делает это с каким то умыслом. Возможно сами данные не обрезаются, а это значит что они некорректно введены пользователем (это я к примеру если пользователь косячит). Понятное дело что я не утверждаю что тут человесческий фаткор, но я бы поинтересовался откуда такие неточности.

[northener]

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

Переделал полностью на TStringList, всё работает.
Обращаюсь к параметру, например, так:

Edit1.Text:=STR.Values['имя параметра'];

Но здесь важны пробелы и/или отступы в строке от её начала до имени параметра. Можно, конечно, писать [' имя параметра'], но если в исходном файле добавить/убрать пробел/отступ, то ничего работать не будет. Это можно как-нибудь решить ?
И ещё один момент - всё работает с текстом формата:

Параметр1=Значение1

Но не работает с:

Параметр1="Значение1"

Как быть с кавычками ?

И ты ещё утверждал, что если добавить в файл секцию и использовать TIniFile, то всё работает? Или я что-то путаю?

[Arigato]

Что-то вы затролили человека.

  TCFGFile = class(TStringList)
  public
    constructor Create(const FileName: string);
    procedure LoadFromFile(const FileName: string);
  end;
...
constructor TCFGFile.Create(const FileName: string);
begin
  inherited Create;
  LoadFromFile(FileName);
end;

procedure TCFGFile.LoadFromFile(const FileName: string);
var
  i: Integer;
begin
  inherited LoadFromFile(FileName);
  for i := 0 to Count - 1 do
    Put(i, TrimLeft(Get(i)));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  cfg: TCFGFile;
  i: Integer;
begin
  cfg := TCFGFile.Create('1.cfg');
  ShowMessage(cfg.Values['par1']);
  cfg.Free;
end;

1.cfg:

	par1=val1
  Par2=val2
a=2014

[eval]

а если справа начнут появляться, а потом и в середине? у него программа живет своей жизнью, не было "отступов", потом вдруг появились .. мистика

[Arigato]

Ну пробелы справа уже относятся к самому значению параметра, а вот в районе "=" вполне могут быть пробелы, которые можно считать незначимыми. Но шаблон дан, так что при необходимости ТС может провести любую предварительную обработку.