Onko Pascalissa parempaa tapa tallentaa muuttujan arvo kuin
käyttämällä TIniFile-luokkaa?
Tarkoittamaani TIniFile-luokkaa voi siis käyttää esim. näin:
(Uses lauseessa mukana IniFiles-käännösyksikkö)
procedure TForm1.TallennaButtonClick(Sender: TObject);
var IniFile:TIniFile;
minarvo:integer;
begin
minarvo := 5;
IniFile := TIniFile.Create('tiedostonnimi.ini');
IniFile.WriteInteger('KokonaislukuMuuttujat','MinArvo',minarvo);
IniFile.Free ;
end;
procedure TForm1.LueButtonClick(Sender: TObject);
var IniFile:TIniFile;
minarvo:integer;
begin
IniFile := TIniFile.Create('tiedostonnimi.ini');
minarvo := IniFile.ReadInteger('KokonaislukuMuuttujat','MinArvo',0);
IniFile.Free;
Edit1.Text:=IntToStr(minarvo);
end;
käyttämällä TIniFile-luokkaa?
Tarkoittamaani TIniFile-luokkaa voi siis käyttää esim. näin:
(Uses lauseessa mukana IniFiles-käännösyksikkö)
procedure TForm1.TallennaButtonClick(Sender: TObject);
var IniFile:TIniFile;
minarvo:integer;
begin
minarvo := 5;
IniFile := TIniFile.Create('tiedostonnimi.ini');
IniFile.WriteInteger('KokonaislukuMuuttujat','MinArvo',minarvo);
IniFile.Free ;
end;
procedure TForm1.LueButtonClick(Sender: TObject);
var IniFile:TIniFile;
minarvo:integer;
begin
IniFile := TIniFile.Create('tiedostonnimi.ini');
minarvo := IniFile.ReadInteger('KokonaislukuMuuttujat','MinArvo',0);
IniFile.Free;
Edit1.Text:=IntToStr(minarvo);
end;
Vastaukset 1
Vanhimmat
Parempi esimerkki TIniFile-luokkan käytöstä
löytyy Torryn Delphi-sivuilta.
Niissä on huomioitu mm poikkeukset
http://www.swissdelphicenter.ch/torry/showcode.php?id=160