Tinifile -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.223.196.171]

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Модераторы: jack128, D[u]fa, Shaggy, Rouse_

Новое голосование

Tinifile

cr0acker	Сообщ. #1 , 11.03.03, 13:55
Member Профиль · PM Рейтинг (т): 0	Челы покажите как работать работать с сабжем! в 6 дельфяхЁ!

мыш

Сообщ. #2 , 11.03.03, 14:06

Эльф

Профиль · PM

Рейтинг (т): 42

procedure TForm1.loadallfrominifile;
var
Inifile:Tinifile;
begin
inifile:=tinifile.Create(installpath+'inifile.ini');
memo.Font.size:=inifile.ReadInteger('main','FontSize',7);
memo.Font.Name:=inifile.Readstring('main','Font','small fonts');
form1.Top:=inifile.ReadInteger('main','Top',0);
form1.Left:=inifile.ReadInteger('main','Left',0);
form1.Width:=inifile.ReadInteger('main','Width',800);
form1.Height:=inifile.ReadInteger('main','Height',600);
time:=strtotime(inifile.Readstring('main','Time','0:0:0'));
lbtime.Visible:=inifile.Readbool('main','ShowTime',true) ;
N88.Checked:=lbtime.Visible;

FilePath:=inifile.ReadString('main','File','');
inifile.Free;
end;

Сообщение отредактировано: JohnDow - 11.03.03, 14:07

Testudo

Сообщ. #3 , 11.03.03, 14:08

Master

Профиль · PM

Рейтинг (т): 105

procedure TForm1.loadallfrominifile; var Inifile:Tinifile; begin inifile:=tinifile.Create(installpath+'LitList.ini'); mGuide.Checked:=inifile.Readbool('main','ShowGuide',true) ; memo.Font.size:=inifile.ReadInteger('main','FontSize',7); memo.Font.Name:=inifile.Readstring('main','Font','small fonts'); form1.Top:=inifile.ReadInteger('main','Top',0); form1.Left:=inifile.ReadInteger('main','Left',0); form1.Width:=inifile.ReadInteger('main','Width',800); form1.Height:=inifile.ReadInteger('main','Height',600); time:=strtotime(inifile.Readstring('main','Time','0:0:0')); lbtime.Visible:=inifile.Readbool('main','ShowTime',true) ; N88.Checked:=lbtime.Visible; FilePath:=inifile.ReadString('main','File',''); inifile.Free; end;

То же самое для записи. Только используються методы, начинающиеся с Read ;D

ych_boriss	Сообщ. #4 , 11.03.03, 14:42
Senior Member Профиль · PM Рейтинг (т): 22	???есть еще TFileStream. Не интересует? ;D

Song	Сообщ. #5 , 11.03.03, 17:54
Unregistered	Обычно помогает написать TIniFile и нажать на нём Ctrl+F1

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0186 ] [ 15 queries used ] [ Generated: 17.05.24, 12:58 GMT ]