| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Данные из ini [D7, XP]
Der Nechk@ssoff © (2006-04-11 17:35:00)Здраствуйте!Помогите организовать такую вещь:
procedure TForm1.FormCreate(Sender: TObject);
begin
if calendar1.Day=здесь прога должна брать дату из 123.ini(строчка №2) then
showmessage('Ñîáûòèå!!!');
memo1.text:=полный текст 123.ini
else
memo1.Text:='';
end;
Спасибо всем!
STK (2006-04-11 20:24:00) [1]В uses пишеш: IniFiles;
А далее будет выглядить так:
procedure TForm1.FormCreate(Sender: TObject);
var ini: TiniFile;
begin
ini := TiniFile(Путь до файла+'123.ini': string);
if calendar1.Day= StrToDate(INI.ReadString('Секция*', 'строчка №2', значение по умолчанию)) then
showmessage('Ñîáûòèå!!!');
memo1.text:=полный текст 123.ini
else
memo1.Text:='';
Ini.free;
end;
Секция* - это слово в ини в квадратныхскобках [секция]
Строчка номер 2 имеет следующий вид:
strochka№=123
а значение по умолчанию - это то значение которое будет возращать если данной строчки нет *или там нечё нет*(насчёт последнего не уверен).
Но лучше про этонайти инфу, гденить даже в инете можно такое найти без проблем.
Удачи
Virgo_Style (2006-04-11 19:14:00) [2]Der Nechk@ssoff © (11.04.06 17:35)
> брать дату из 123.ini
TIniFile
> memo1.text:=полный текст 123.ini
.LoadFromFile
> memo1.Text:='';
.Clear
Дарья (2006-04-11 17:45:00) [3]точнее как выглядит срока с датой
Дарья (2006-04-11 17:44:00) [4]как выглядит 123.ini ?
| |
