|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Ну, для начала, это не 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; Этот код должен считать именно представленную структуру. Если стркутура изменится, то код перестанет работать правильно, но идея, надеюсь, понятна. |