![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
C Delphi работаю второй день, никак не могу понять, как читать данные из ИНИ. Нашел много тем на форумах но у меня постоянно ошибка...
Если нетрудно выложите чистый код с фун. чтения из INI Структура INI Код:
[Setting1] par1=1234 [Setting2] par2=6778 Спасибо! Последний раз редактировалось lmikle, 01.01.2012 в 21:23. |
|
#2
|
|||
|
|||
|
1. Зачем на каждый параметр заводить секцию, если они имеют разные имена?
2. У TIniFile есть специальные методы, которые позволяют считать список секций и список ключей в конкретной секции. Код:
uses
IniFiles;
procedure TForm1.Button1Click(Sender: TObject);
var
IniFile : TIniFile;
Sections, Keys : TStringList;
I, J, V : Integer;
begin
Sections := TStringList.Create;
Keys := TStringList.Create;
IniFile := TIniFile.Create('');
IniFile.ReadSections(Sections);
For I := 0 To Sections.Count-1 Do
Begin
IniFile.ReadSection(Sections[i],Keys);
For J := 0 To Keys.Count-1 Do
Begin
V := IniFile.ReadInteger(Sections[i],Keys[J],0);
ShowMessage(Format('Section ''%s'', %s=%d',[Sections[i],Keys[J],V]));
End;
End;
Keys.Free;
Sections.Free;
end; |
|
#3
|
|||
|
|||
|
Почаму он у меня выдает ошибку TForm1 is missing
|
|
#4
|
||||
|
||||
|
Добавь кнопку на форму, дважды кликни на ней и в появившийся код скопируй часть приведённого примера.
|
|
#5
|
|||
|
|||
|
А если мне необходимо что бы действие выполнялось автоматически при запуске программы а не при нажатии на кнопку?
|
|
#6
|
||||
|
||||
|
Дважды кликни по форме, далее смотри выше. И купи какую-нибудь книгу по Дельфи.
|
|
#7
|
|||
|
|||
|
спасибо, книгу купил, просто не привычно переучиваться после скриптов AutoIT.
|