Problem s ini – Delphi – Fórum – Programujte.com

no ze nazdar a ze ja teraz robim s kamosom jeden taky program (dock) a nechce nam vytvorit ini subor i ked ho tam mame napísany zdrojovy kod. niekolko rázy sme prešli celý zdrojový kód a nevieme najst chybu preco to nece uložiť . pls poradte. vopred diky

Bez kódu to půjde těžko. Není třeba problém s uživatelskými právy?

neviem ale podla mna je problem to že som dal niektoré ( infile.create .......write string .... ) na časovače lebo keď sme to dali na FormCreate tak nam furt vyhadzovalo vyjimku. Je možne aby to bolo privela na procedúru ? "WriteString ..." sme tam mali iba 30 alebo 35 krát viac nie

To delphak : formCreate je pokud si pamatuju prilis brzo na to, abys tam neco mohl delat (hlavne s tim formem)

Bez toho abys sem hodil příslušnou část kódu ti asi těžko někdo řekne kde je chyba.
Řešení zápisem do ini v časovači je sice divný, ale pokud je to správně napsaný tak to projde bez problému.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

 IniFile:= TIniFile.Create ('data.ini');

 IniFile.WriteString (Form3.Edit1.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit2.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit3.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit4.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit5.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit6.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit7.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit8.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit9.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit10.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit11.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit12.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit13.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit14.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit15.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit16.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit17.Text,'Text','more'); //Uloží String

 IniFile.Destroy;



 TImer5.Enabled:=True;

end;



procedure TForm1.Timer3Timer(Sender: TObject);

begin

IniFile:= TIniFile.Create ('data.ini');

  Retezec:=IniFile.ReadString (Form3.Edit1.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit2.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit3.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit4.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit5.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit6.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit7.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit8.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit9.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit10.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit11.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit12.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit13.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit14.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit15.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit16.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit17.Text,'Text','more');

  IniFIle.Destroy;

end;



procedure TForm1.Timer4Timer(Sender: TObject);

begin

  IniFile:= TIniFile.Create ('data2.ini');

  Retezec:=IniFile.ReadString (Form3.Edit18.Text,'Text','more');

  Retezec:=IniFIle.ReadString (Form3.Edit19.Text,'Text','ocean');

  IniFIle.Destroy;



  IniFIle:= TIniFIle.Create ('data2.ini');

  Retezec:=IniFile.ReadString (Form3.Edit20.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit21.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit22.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit23.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit24.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit25.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit26.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit27.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit28.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit29.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit30.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit31.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit32.Text,'Text','more');

  Retezec:=IniFile.ReadString (Form3.Edit33.Text,'Text','more');

  IniFile.Destroy;

end;



procedure TForm1.Timer5Timer(Sender: TObject);

begin

 IniFile:= TIniFile.Create ('data2.ini');

 IniFile.WriteString (Form3.Edit18.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit19.Text,'Text','ocean'); //Uloží String

 IniFile.Destroy;



 IniFIle:= TIniFIle.Create ('data2.ini');

 IniFile.WriteString (Form3.Edit20.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit21.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit22.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit23.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit24.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit25.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit26.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit27.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit28.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit29.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit30.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit31.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit32.Text,'Text','more'); //Uloží String

 IniFile.WriteString (Form3.Edit33.Text,'Text','more'); //Uloží String

 IniFile.Destroy; //Nezapoeňte uvolnit soubor z paměti end;v



 Timer5.Enabled:=False;

end;

Proč IniFile není lokální proměnná?
Proč nezadáváš celou cestu k souboru?
Proč používáš edity pro určení sekce?
Co od toho timeru čekáš po zavření formu?

ja budem mať chybu asi tam kde je form3.edit... lebo tam tri krát uvodzovky a neviem kam mám dať cestu kám dátový typ a tak tak to bude asi tá chyba ale ešte asi preto lebo ja mám sice writestring a read string ale na začiatku majú byť eše dva riadky aby sa ten inisubor vobec vytvoril tak ja to skusim poupravovať a dám vám vediet

Já bych se tedy zaměřil na to, co vypíchnul nervak. Mi to připadá že se v tom krapet plácáš a vlastně nevíš co děláš. Myslím že by bylo lepší napsat si malinkej testovací program kde se to (práci s ini) naučíš a vyzkoušíš si to.

To delphak : On se asi vytvoří, ale v adresáři Windows. Další věc je pak co a jak do něj zapisuješ a čteš.

už som si našiel chybu, opravil som ju a díky.

už som si našiel chybu, opravil som ju a díky.