NOVINKA - Online rekvalifikační kurz Java programátor. Oblíbená a studenty ověřená rekvalifikace - nyní i online.
IT rekvalifikace s podporou uplatnění. Seniorní programátoři vydělávají až 160 000 Kč/měsíc a rekvalifikace je prvním krokem. Zjisti, jak na to!
Avatar
Pavel.H
Člen
Avatar
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
Avatar
Martin Dráb
Tvůrce
Avatar
Odpovídá na Pavel.H
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
Avatar
Pavel.H
Člen
Avatar
Odpovídá na Martin Dráb
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
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.