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;
Muuttujien tallennus
__lara__
1
205
Vastaukset
- TIniFile
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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suureksi onneksesi on myönnettävä
Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️861829Perusmuotoiset TV-lähetykset loppu
Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia1451288YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua
Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä621110- 63976
Hyvin. Ikävää nainen,
Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan82921Uskomaton tekninen vaaliliitto poimii rusinoita pullasta
Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli84840Linnasuolla poliisi operaatio
Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/864606029836Martina lähdössä Ibizalle
Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.126829Katsoin mies itseäni rehellisesti peiliin
Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.47817- 57810