урок на делфи 32 - Inifiles

задание на delphi. прмиер как работать с ini файлами

unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs,IniFiles, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
myfile:TIniFile;
begin
myfile:=TIniFile.Create(GetCurrentDir + '\time.ini'); // Создаем ini файл
myfile.WriteTime('data','time',Time);
myfile.WriteDate('data','data',Date);
myfile.WriteInteger('cifra','random',Random(999999));
myfile.Writestring('text','мой сайт','www.dear-ruslan.ru');
myfile.WriteFloat('pi','pi',Pi);
FreeAndNil(myfile);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
myfile:TIniFile;
t:TTime;
d:TDate;
cifra:Real;
text:string;
chislo_pi:Real;
begin
myfile:=TIniFile.Create(GetCurrentDir + '\time.ini'); // Создаем ini файл
t:=myfile.readTime('data','time',t);
d:=myfile.readDate('data','data',d);
cifra:=myfile.ReadFloat('cifra','random',cifra);
text:=myfile.ReadString('text','мой сайт',text);
chislo_pi:=myfile.ReadFloat('pi','pi',chislo_pi);
Memo1.Clear;
Memo1.Lines.Add(TimeToStr(t));
Memo1.Lines.Add(dateToStr(d));
Memo1.Lines.Add(FloatToStr(cifra));
Memo1.Lines.Add(text);
Memo1.Lines.Add(floatToStr(chislo_pi));
FreeAndNil(myfile);
end;
end.



Скачать