(*
aşağıdaki kodları komutlar.pas olarak kaydedin
ve formunuzun uses bölümüne komutlar yazmayı unutmayın
kolay gelsin...
*)
osmaniyeli_bocekci@yahoo.com
unit komutlar;
interface
const
sayial: Integer=0;
yazial:string ='';
booal: Boolean =true;
function yazi_al(baslik,anahtar: string): string;
function sayi_al(baslik,anahtar: string): Integer;
function boo_al(baslik,anahtar: string): Boolean;
procedure boo_yaz(baslik,anahtar: string;boo:Boolean);
procedure yazi_yaz(yaziyaz, baslik, anahtar: string);
procedure sayi_yaz(sayiyaz:integer; baslik, anahtar: string);
implementation
uses
IniFiles;
procedure sayi_yaz(sayiyaz:integer; baslik, anahtar: string);
var
IniFile : TIniFile;
begin
IniFile := TIniFile.Create('bocekci.ini');
IniFile.WriteInteger(baslik,anahtar,sayiyaz);
IniFile.Free;
end;
procedure yazi_yaz(yaziyaz, baslik, anahtar: string);
var
IniFile : TIniFile;
begin
IniFile := TIniFile.Create('bocekci.ini');
IniFile.WriteString(baslik,anahtar,yaziyaz);
IniFile.Free;
end;
procedure boo_yaz(baslik,anahtar: string;boo:Boolean);
var
IniFile : TIniFile;
begin
IniFile := TIniFile.Create('bocekci.ini');
IniFile.WriteBool(baslik,anahtar,boo);
IniFile.Free;
end;
function boo_al(baslik,anahtar: string): Boolean;
var
IniFile : TIniFile;
begin
IniFile := TIniFile.Create('bocekci.ini');
Result := IniFile.ReadBool(baslik,anahtar,booal);
IniFile.Free;
end;
function yazi_al(baslik,anahtar: string): string;
var
IniFile : TIniFile;
begin
IniFile := TIniFile.Create('bocekci.ini');
Result := IniFile.ReadString(baslik,anahtar,yazial);
IniFile.Free;
end;
function sayi_al(baslik,anahtar: string): Integer;
var
IniFile : TIniFile;
begin
IniFile := TIniFile.Create('bocekci.ini');
Result := IniFile.ReadInteger(baslik,anahtar,sayial);
IniFile.Free;
end;
end.