Diskuze: Lazarus - Ini

Aktivity

Pavel.H

Člen

Pavel.H:25.11.2016 15:34

Zdravím.
Hned na začatku se přiznám že mam leazarus par dní, ale zatím vše co jsem potřeboval a uměl s delphi mi fungovalo.

S ini mam však problem a v lazarusu kod s delphi nefunguje.
Poradite?

procedure TForm1.FormCreate(Sender: TObject);
var DataFile: TIniFile;
begin
 DataFile:=TiniFile.Create
  ((ExtractFilePath(Application.exename))+'setup.ini');
 DataFile.WriteBool('Other','check1',CheckBox1.Checked);
 DataFile.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
var DataFile: TIniFile;
begin
 DataFile:=TiniFile.Create
   ((ExtractFilePath(Application.exename))+'setup.ini');
 CheckBox1.Checked:=DataFile.ReadBool('Other','check1',false);
 DataFile.Free;
end;

Editováno 25.11.2016 15:36

Odpovědět

25.11.2016 15:34

Martin Dráb

Tvůrce

Martin Dráb:25.11.2016 16:38

Ještě prosím napiš, co máš konkrétněji za problém. Přeloží se to a dělá to něco, co by nemělo, nebo se to ani nepřeloží?

Nahoru Odpovědět

25.11.2016 16:38

2 + 2 = 5 for extremely large values of 2

Pavel.H

Člen

Pavel.H:25.11.2016 17:10

Jsem debil a problém byl v ctrl+c a ctrll+v
První jsem to dělal v delphi.
Po 2 hodinách přemyšlení, proč to nefunguje v lazarusu, jsem zjistil, že to ukládám v FormCreate
a načítám v FormClose.
Nic se nemá přehánět a když něco nefunguje po půl hodině, nechat to na další den. :-)

Nahoru Odpovědět

25.11.2016 17:10

Naučíme tě pracovat na home-office.

Zjistit více...

Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 3 zpráv z 3.