Подсказали реализацию на другом форуме. Кому будет нужно.
Цитата:
var TS : TstringList;
i:integer;
begin
TS := TstringList.Create;
TS.LoadFromFile(ExtractFilePath(Application.ExeNam e)+'\config.cfg');
for i := 0 to TS.Count - 1 do
begin
ShowMessage(TS.Names[i]+' is '+TS.ValueFromIndex[i]);
end;
TS.Free
end;
|
Тему можно закрыть.