Показать сообщение отдельно
  #2  
Старый 14.03.2019, 18:22
Varlonec Varlonec вне форума
Прохожий
 
Регистрация: 30.04.2010
Сообщения: 6
Репутация: 10
По умолчанию

Подсказали реализацию на другом форуме. Кому будет нужно.
Цитата:
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;
Тему можно закрыть.
Ответить с цитированием