Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako da snimim Array u ini

[es] :: Pascal / Delphi / Kylix :: Kako da snimim Array u ini

[ Pregleda: 1977 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

sojic
Dalibor Sojic
Makedonija

Član broj: 7051
Poruke: 796
62.162.226.*

Sajt: right-sock.net


+1 Profil

icon Kako da snimim Array u ini01.12.2006. u 15:27 - pre 211 meseci
Trebam da zapamtim array od dve polja:

Account[1] = [user, password];
Account[2] = [user, password];
Account[3] = [user, password];

Kako da zapamtim ovo u nekom fajlu (.ini na primer)?
routing protocols enable routers to route routed protocols!
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Kako da snimim Array u ini01.12.2006. u 17:21 - pre 211 meseci
> Trebam da zapamtim array od dve polja:

> Account[1] = [user, password];
> Account[2] = [user, password];
> Account[3] = [user, password];

Ne postoji gotova procedura za snimanje nizova u fajl, moraš sam osmisliti format i uraditi snimanje evo recimo mogućeg načina:

Code:

var
  a: TStringList;
  i: Integer;
begin
  a := TStringList.Create;
  try
    for i := 0 to 2 do
      a.Add(Account[i, 0] + #9 + Account[i, 1]);

    a.SaveToFile('C:\Proba.txt');
  finally
    a.Free;
  end;
end;


 
Odgovor na temu

Srdjan_exe
Srdjan Pavlovic

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



Profil

icon Re: Kako da snimim Array u ini01.12.2006. u 19:13 - pre 211 meseci

Evo ti bas sa inijem...

... Uses IniFiles, ...

Procedure BlaBla;
var
ini : TIniFile
i : integer;

begin

ini:=TIniFile.Create('imeFajla.ini');
for i:=1 to 3 do
ini.WriteString(('Account' + IntToStr(i)), 'User, Password = ', (User(i) + ', ' + Pass(i)));
ini.free;
end;

(Ovo predpostavlja da u User(i) i Pass(i) imas neke Korisnike i Lozinke kao stringove)
Dakle, User i Pass su varijable tipa string koje imaju svoje vrednosti)
IN VINO VOMITUS
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kako da snimim Array u ini

[ Pregleda: 1977 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.