Текущий архив: 2006.04.30;
Скачать: CL | DM;

Вниз

Данные из 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

---

← →
STK ©   (2006-04-11 20:24) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.035 c