Пробую прочитать файл следующего формата:
| Код |
[INFO1]
Text1
[INFO2]
Text2
SomeAdditionalText
[INFO]
Multiple line text
Multiple line text
Multiple line text
Multiple line text
Multiple line text
!@*736891*)(&%(#*
|
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
IniF: TIniFile;
begin
if ComboBox1.Text <> '' then
begin
IniF.Create('data\'+ComboBox1.Text);
IniF.ReadSection('INFO', Memo2.Lines);
IniF.ReadSection('INFO2', Memo1.Lines);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
SearchRec:TSearchRec;
begin
if FindFirst('data\*.ini', faAnyFile, SearchRec) = 0 then
repeat
ComboBox1.Items.Add(SearchRec.name);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end.
|
Не получается, как сделать? |
)