Данные из ini

← →
Der Nechk@ssoff © (2006-04-11 17:35) [0]

Здраствуйте!Помогите организовать такую вещь:
procedure TForm1.FormCreate(Sender: TObject);
begin
if calendar1.Day=здесь прога должна брать дату из 123.ini(строчка №2) then
showmessage("Ñîáûòèå!!!");
memo1.text:=полный текст 123.ini
else
memo1.Text:="";
end;
Спасибо всем!

← →
Дарья (2006-04-11 17:44) [1]

как выглядит 123.ini ?

← →
Дарья (2006-04-11 17:45) [2]

точнее как выглядит срока с датой

← →
Virgo_Style © (2006-04-11 19:14) [3]

Der Nechk@ssoff © (11.04.06 17:35)

> брать дату из 123.ini

TIniFile

> memo1.text:=полный текст 123.ini

.LoadFromFile

> memo1.Text:="";

.Clear

В 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
а значение по умолчанию - это то значение которое будет возращать если данной строчки нет *или там нечё нет*(насчёт последнего не уверен).
Но лучше про этонайти инфу, гденить даже в инете можно такое найти без проблем.
Удачи

Данные из ini Найти похожие ветки