Čitanje vrednosti iz INI fajla
Pre dve nedelje sam počeo da malo učim Delfi, pa mi je potrebna mala pomoć. Napravio sam neki programčić za čitanje baze, i naravno opciju za čuvanje izgleda prozora tj. DBgrid-a. Tak kod sam stavio u klasu i napravio dve funkcije za čitanje vrednosti DBgida tj. width-a i da li je ta kolona vidljiva - i to radi. Međutim problem se javio kod čitanja vrednsti iz ini-ja.
Funkcija koja snima vrednsti u ini izgleda ovako:
----------------------------------------------------
function TmojIni.SnimiIni (nKolona : integer) : integer;
var
i, rez, sir : integer;
saveIni : TIniFile;
begin
saveIni := TIniFile.Create('c:\demo\ispp.ini');
rez := Main.GetVisibleColumnsCount;
for i := 0 to rez - 1 do begin
sir := Main.DBGrid1.Columns.Items.Width;
saveIni.WriteString('Sirina kolone', 'Kolona_' + IntToStr(i), IntToStr(sir));
end;
saveIni.Free;
end;
---------------------------------------------------
A funkcija koja bi trebala da pročita, bar ona zadnja koju sam probao glasi ovako:
------------------------------------------------------
function TmojIni.UcitajIni(nKolona : integer) : integer;
var
i, rez, sir : integer;
openIni : TIniFile;
begin
openIni := TIniFile.Create('c:\demo\ispp,ini');
(*
for i := 0 to rez do begin
openIni.ReadSections(Main.DBGrid1.Columns.Items);
openIni.ReadSection('Kolona_', StrToInt(Main.DBGrid1.Columns.Items));
openIni.ReadSectionValues('Kolona_', Main.DBGrid1.Columns.Items);
end;
openIni.Free;*)
end;
--------------------------------------------------
Ima li neko ideju? :)
 |  |
 |
Re: Čitanje vrednosti iz INI fajla