Ładny brzuch

mam taki kod:

w On close Formy: [zapis]

var
reg: TRegistry;
i: integer;
begin

reg := TRegistr.Create;
try
for i := 0 to ComboBox1.Items.Count - 1 do
begin
reg.writestring('Strona ' + IntToStr(i), ComboBox1.Items[i]);
end;
reg.writeinteger('Zmienna', i);
finally
reg.free;
end;

W OnCreate: [odczyt]

var
reg: Tregistry;
i: integer;
ilosc: integer;
pomoc: string;
begin
reg := TRegistry.Create;
ilosc := reg.readinteger('Zmienna');
for i := 0 to ilosc do
begin
pomoc := Regf.readstring('Strona ' + Inttostr(i));
ComboBox1.Items.Add(pomoc);
end;

przy probie skomplikowqnia wyskakuje blad:

[Error] Unit1.pas(88): Undeclared identifier: 'Regf'

zo zrobic:?

zgory dzienkuje:)

//maros//


Zanim uzyjesz readstring lub writestring to musisz wybrac klucz w ktorym bedzie zapis/odczyt, robisz wiec tak:
reg.rootkey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftwareMojprogram',true);

OpenKey ma dwa parametry: nazwe klucza i druga, ktora okresla czy stworzyc taki klucz jesli nie istnieje.
Tak wiec w zapisie konfig. uzyjemy reg.OpenKey('SoftwareMojprogram',true) - chcemy utworzyc

a w odczycie:
if reg.OpenKey('SoftwareMojprogram',false) then
reg.ReadInteger(...

//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moj stronk:http://www.migsoft.prv.pl

Taki may bd:
pomoc := Regf.readstring('Strona ' + Inttostr(i));
Zamiast Regf, napisz Reg ;)

__ __ __ __ __ __ __ __ __ __
Procedure Oskar_;
Begin
ShowMessage('GG:4206396');
End;

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •