hallo
DP,
Um zu prüfen ob ein eintrag ein einer TreeView liste schon existiert oder nicht benütz ich die registry weil ich es anderst nicht hinbekomme.
Da hab ich mir eine kleine function geschrieben, hier:
Delphi-Quellcode:
function RegExists(Entry: String): boolean;
var
regist: TRegistry;
begin
result := false;
regist.Create;
regist.RootKey := HKEY_LOCAL_MACHINE;
if regist.KeyExists('Software\phpbb_manager\Server'+Entry) then
result := true;
end;
Hab ich aufgerufen mit:
Delphi-Quellcode:
procedure TForm2.AddServerBtnClick(Sender: TObject);
var
Ibox: String;
begin
Ibox := Inputbox('Add new server', 'Enter name of the new server:', '');
if not RegExists(Ibox) then
//if not (Ibox = '') then
ServerView.Items.AddChild(nil, Inputbox('Add new server', 'Enter name of the new server:', 'New server'));
{Und hier eben noch den registry-eintrag machen}
end;
Ich verstehe nicht wieso dor eine addressViolation kommt, habs auch schon versucht indem ich zuerst "OpenKey" mache, ging aber auch nicht
Ich hoffe ich könnt mir helfen
danke im vorraus
