Показать сообщение отдельно
  #2  
Старый 14.09.2022, 19:27
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, для начала, это не well-formed ini файл.
Т.е. я подозреваю, что стандартыми средствами он не считается правильно.

По поводу того, как его прочитать.
В принципе, если стркутура фиксированная, то это можно сделать достаточно просто.
Код:
var
  sl : TStringList;
  I : Integer;
  tgt : TMemo;
begin
  tgt  := Nil;
  sl := TStringList.Create;
  try
    sl.LoadFromFile(...);
    For I := 0 To sl.count-1 Do
      Begin
        If Pos('// LEVEL 1',sl[i] > 0 Then tgt := Memo1
        Else If Pos('// LEVEL 2',sl[i] > 0 Then tgt := Memo2
        Else If Pos('// LEVEL 3',sl[i] > 0 Then tgt := Memo3
        Else If tgt <> nil Then tgt.Lines.Add(sl[i]);
      End;
  finally
    sl.free;
  end;
end;

Этот код должен считать именно представленную структуру.
Если стркутура изменится, то код перестанет работать правильно, но идея, надеюсь, понятна.
Ответить с цитированием