Registry (Standard) auslesen, Fehlermeldungen

[Delphijunkie2006]

Hi eine Frage, wie schafft es Delphi7 diesen Standard Wert ohne Fehlermeldung auszulesen?

Delphi-Quellcode:

Function pascan: string; 
begin Reg := TRegistry.Create;
Reg.Rootkey:=HKEY_CLASSES_ROOT; Reg.Openkey('.~pas', true);
Result := Reg.Readstring(''); Reg.Destroy;
end;

procedure showpas;
begin if pascan = '~pas auto file' then showmessage('alles ok!');
reg.destroy; end;

Er macht es aber danach kommt Fehlermeldung:
Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000.

Wie kriegt man diesen Fehler weg?

[mkinzler]

Das sieht komisch aus:

Zitat:

Result := Reg.Readstring('');

[Delphijunkie2006]

(STandard) kann nur mit '' ausgelesen werden oder kennst du eine bessere Methode?

[TBx]

Ich gehe davon aus, daß Du den Fehler bekommst, wenn Du schowpas aufrufst.

Nach der Ausführung der Funktion ist Reg nicht mehr mit einem gültigen Objekt besetzt. In der Funktion zerstörst Du das Objekt bereits.

Gruß

Onlinekater

[Delphijunkie2006]

Ich werds ausprobieren aber auch mit reg.close und reg.free in der function kam dasgleiche Problem.

[Luckie]

Warum rufst du in schowpas reg.destroy auf? Du erstellst doch gar kein Objekt.

Und etwas Formatierung des Quellcodes würde bestiummt auch gut tun:

Delphi-Quellcode:

function pascan: string; 
var
  Reg: TRegistry; // !!!
begin
  Reg := TRegistry.Create(KEY_READ); // !!! 
  try // !!!
    Reg.Rootkey := HKEY_CLASSES_ROOT;
    if Reg.Openkey('.~pas', False) then // !!!
    begin
      Result := Reg.Readstring('');
      Reg.Close; // !!!
    end;
  finally // !!!
    Reg.Free; // !!!
  end;
end; 

procedure showpas; 
begin
  if pascan = '~pas auto file' then
    showmessage('alles ok!'); 
end;

Dann fällt auch auf, dass du die Variable Reg gar nicht deklariert hast. Desweiteren fehlt der Ressourcenschutzblock und man sollte nie Destroy direkt aufrufen, sondern Objekte immer mit Free freigeben - steht aber auch in der Hilfe.

Ich habe mal so eion paar eklatante Fehler bei dir korrigiert.