이거 여기 질문해도 되나 모르겠습니다..
다름이 아니고 레지스트리에 스트링을 저장하고 읽어올려고 하는데요..
ListBox에 있는 아이템들을 FormDestroy할때 저장하고
FormCreate할때 읽어와서 ComboBox와 ListBox에 뿌릴려고 하는데
키는 만들어지는데 스트링이 저장되지 않습니다.
참고로 소스는 아래에.....
procedure TListFrm.FormDestroy(Sender: TObject);
var
Reg : TRegistry;
begin
LName := ListBox1.Items.Text;
Reg := TRegistry.Create;
try
Reg.OpenKey('SoftwareNetbasePost',True);
Reg.WriteString('LocalName',LName);
finally
Reg.Free;
end;
end;
요거이 저장하는거구요...(LName은 전역으로 선언)
procedure TListFrm.FormCreate(Sender: TObject);
var
Reg : TRegistry;
KeyGood : Boolean;
begin
Reg := TRegistry.Create;
try
Reg.OpenKey('SoftwareNetBasePost',False);
If Not KeyGood then begin
LName := Reg.ReadString('LocalName',LName);
ListBox1.Items.Add(LName);
ComboBox1.Items.Add(LName);
end;
finally
Reg.Free;
end;
end;
요거이 읽어오는 겁니다.
좀 봐주세요..그리고 해답을 ......
정확하게...
> 이거 여기 질문해도 되나 모르겠습니다..
> 다름이 아니고 레지스트리에 스트링을 저장하고 읽어올려고 하는데요..
> ListBox에 있는 아이템들을 FormDestroy할때 저장하고
> FormCreate할때 읽어와서 ComboBox와 ListBox에 뿌릴려고 하는데
> 키는 만들어지는데 스트링이 저장되지 않습니다.
> 참고로 소스는 아래에.....
>
> procedure TListFrm.FormDestroy(Sender: TObject);
> var
> Reg : TRegistry;
> begin
> LName := ListBox1.Items.Text;
> Reg := TRegistry.Create;
> try
> Reg.OpenKey('SoftwareNetbasePost',True);
> Reg.WriteString('LocalName',LName);
> finally
> Reg.Free;
> end;
> end;
>
> 요거이 저장하는거구요...(LName은 전역으로 선언)
>
> procedure TListFrm.FormCreate(Sender: TObject);
> var
> Reg : TRegistry;
> KeyGood : Boolean;
> begin
> Reg := TRegistry.Create;
> try
> Reg.OpenKey('SoftwareNetBasePost',False);
> If Not KeyGood then begin
> LName := Reg.ReadString('LocalName',LName);
> ListBox1.Items.Add(LName);
> ComboBox1.Items.Add(LName);
> end;
> finally
> Reg.Free;
> end;
> end;
> 요거이 읽어오는 겁니다.
> 좀 봐주세요..그리고 해답을 ......
> 정확하게...
안녕하세요.
잘은 모르겠지만...
TRegIniFile 을 사용해보세요.
그리고 가급적이면 RootKey 라는 속성을 지정해서 사용하십시오.