[es] - Pomoc oko jednog malog problema, upis u .ini ili neki drugi .txt fajl?

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.kalik.info.

Profil

Pomoc oko jednog malog problema, upis u .ini ili neki drugi .txt fajl?

^{15.10.2006. u 15:36 - pre 213 meseci}

U help-u sam nasao neki primer sa ini fajlovima, da ga ne pisem, pretpostavljam da ste ga vecina i
videli. Znaci ima dve procedure SaveSettings i LoadSettings. To funkcionise lepo sa TForm klasom.
U .ini pise:

Code:

[MainForm]
Left=192
Top=118
Width=300
Height=300

E sad, hteo bih na formu postaviti jedan TEdit u koji ce biti nesto upisano, neki text. Na formi bih
obradio event OnClose ili OnDestroy, gde ce se tad u taj ini fajl upisati text iz TEdit, njegovi
property kao i za TForm, a pri ponovnom startu programa, pored tih property -a za TEdit i TForm ucitace
se i poslednja vrednost texta koja je bila pri zatvaranju programa!?!

Hvala na svakoj pomoci, ako se to ne radi sa .ini fajlovima, molim vas, pokazite mi kako bi se to trebalo
profesionalno odraditi.

Odgovor na temu

delalt

Član broj: 68360
Poruke: 198
*.teol.net.

Profil

Re: Pomoc oko jednog malog problema, upis u .ini ili neki drugi .txt fajl?

^{15.10.2006. u 22:51 - pre 213 meseci}

Pogledaj:
http://delphi.about.com/od/adptips2005/qt/storecontrolpos.htm

Odgovor na temu

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.kalik.info.

Profil

Re: Pomoc oko jednog malog problema, upis u .ini ili neki drugi .txt fajl?

^{16.10.2006. u 07:02 - pre 213 meseci}

Hvala na odgovoru, ali kao sto sam rekao slican primer delphi ima u svom helpu. Ja bih hteo dopuniti ga jos jednom klasom TEdit i da se zapamti vrednost po gasenju programa u TEdit-u, pa da se pri ponovnom pokretanju iz .ini ili .txt ponovo ucita!?!

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.rcub.bg.ac.yu.

Sajt: https://avramovic.info

+46 Profil

Re: Pomoc oko jednog malog problema, upis u .ini ili neki drugi .txt fajl?

^{16.10.2006. u 07:31 - pre 213 meseci}

Nemam delphi ovde, ali mislim da bi ovo radilo:

Code:
uses inifiles;
...
//on form1.show (recimo)
var ini:tinifile;
begin
ini:=tinifile.create(extractfilepath(application.exename)+'data.ini');
edit1.text:=ini.readstring('section','variable','default vrednost'); //ovako ucitaj svaku vrednost, imas readstring, readinteger, ...
ini.free;

//on form1.close (recimo)
var ini:tinifile;
begin
ini:=tinifile.create(extractfilepath(application.exename)+'data.ini');
ini.writestring('section','variable',edit1.text); //ovako zapisi svaku vrednost, imas readstring, readinteger, ...
ini.free;

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

delalt

Član broj: 68360
Poruke: 198
*.teol.net.

Profil

Re: Pomoc oko jednog malog problema, upis u .ini ili neki drugi .txt fajl?

^{16.10.2006. u 08:49 - pre 213 meseci}

Citat:

inherited: Hvala na odgovoru, ali kao sto sam rekao slican primer delphi ima u svom helpu. Ja bih hteo dopuniti ga jos jednom klasom TEdit i da se zapamti vrednost po gasenju programa u TEdit-u, pa da se pri ponovnom pokretanju iz .ini ili .txt ponovo ucita!?!

Ako sam dobro shvatio, vrijednosti iz ini fajla bi trebalo ponovo da se prikažu u
TEdit, prilikom starta programa. Ako ini fajl izgledao ovako:

Code:
[MainForm]
Left=192
Top=118
Width=300
Height=300

onda prilikom prikazivanja forme iščitaš vrijednosti i upišeš u Edit, odvojene tačka-zarezom.

Code:
var:
  iniFile: TIniFile;
begin
  iniFile := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
  Edit1.Text := '';
  Edit1.Text := (Edit1.Text + iniFile.ReadString('MainForm', 'Left', '') + '; ');
  Edit1.Text := (Edit1.Text + iniFile.ReadString('MainForm', 'Top', '') + '; ');
  Edit1.Text := (Edit1.Text + iniFile.ReadString('MainForm', 'Width', '') + '; ');
  Edit1.Text := (Edit1.Text + iniFile.ReadString('MainForm', 'Height', ''));
  FreeAndNil(iniFile) ;
end;

U Edit1 će biti prikazano '192; 118; 300; 300'

Odgovor na temu

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.kalik.info.

Profil

Re: Pomoc oko jednog malog problema, upis u .ini ili neki drugi .txt fajl?

^{16.10.2006. u 14:12 - pre 213 meseci}

Nemanja, za sad mi je to to sto treba.
delat, ne vrednosti iz .ini fajla, nego vrednost iz TEdit da se upise u .ini fajl,
a po pokretanju programa da se ucita. Npr., ako u TEdit je 100, pri OnClose treba da se upise
u .ini fajl da u TEdit se nalazi vrednost = 100, a na TForm OnCreate da se ponovo iz .ini ucita
100 u TEdit, razumes?

Odgovor na temu

Srdjan_exe
Srdjan Pavlovic

Član broj: 117082
Poruke: 60
*.ptt.yu.

Profil

Re: Pomoc oko jednog malog problema, upis u .ini ili neki drugi .txt fajl?

^{23.10.2006. u 13:59 - pre 213 meseci}

Evo ti deo iz jednog mog programcica, mozda pomogne.

CODE:

procedure TForm1.Button4Click(Sender: TObject);
begin

ini:= TIniFile.Create(extractfilepath(application.exename)+ 'kursevi.ini');

ini.WriteString('sectionKURS', 'variableDINAR_KURS', JvValidateEdit3.Text);
ini.WriteString('sectionKURS', 'variableKUNA_KURS', JvValidateEdit4.Text);
ini.WriteString('sectionKURS', 'variableMARKA_KURS', JvValidateEdit5.Text);

ini.Free;

end;

procedure TForm1.Button5Click(Sender: TObject);
begin

ini:= TIniFile.Create(extractfilepath(application.exename)+ 'kursevi.ini');

DinarStr:= ini.ReadString('sectionKURS', 'variableDINAR_KURS', '');
KunaStr:= ini.ReadString('sectionKURS', 'variableKUNA_KURS', '');
MarkaStr:= ini.ReadString('sectionKURS', 'variableMARKA_KURS', '');

JvValidateEdit3.Text:= DinarStr;
JvValidateEdit4.Text:= KunaStr;
JvValidateEdit5.Text:= MarkaStr;

ini.Free;

end;

IN VINO VOMITUS

Odgovor na temu

Srdjan_exe
Srdjan Pavlovic

Član broj: 117082
Poruke: 60
*.ptt.yu.

Profil

Re: Pomoc oko jednog malog problema, upis u .ini ili neki drugi .txt fajl?

^{23.10.2006. u 14:01 - pre 213 meseci}

Dakle prva procedura upisuje u ini a druga cita iz njega.

IN VINO VOMITUS

Odgovor na temu