Variant Problem...

[faux]

Hallo!

Ich hab folgende Prozedur:

Delphi-Quellcode:

function StrToKey(var AString: Variant): boolean;
begin
  result := false;
  if AString = 'HKCU' then
  begin
    AString := HKEY_CURRENT_USER;
    result := true;
  end;
  if AString = 'HKLM' then
  begin
    AString := HKEY_LOCAL_MACHINE;
    result := true;
  end;
  if AString = 'HKU' then
  begin
    AString := HKEY_USERS;
    result := true;
  end;
  if AString = 'HKCC' then
  begin
    AString := HKEY_CURRENT_CONFIG;
    result := true;
  end;
  if AString = 'HKCR' then
  begin
    AString := HKEY_CLASSES_ROOT;
    result := true;
  end;
end;

Es wird ein String übergeben und sollte ein Double zurück kommen.
Nur kommt immer eine Fehlermeldung, dass ein Fehler beim konvertieren auftrat...

[Stevie]

Hi faux,

ein Blick in den Debugger wird dir zeigen, dass die Fehlermeldung dann auftritt, wenn du bereits einen Double-Wert in deine Variable eingetragen hast und dann die nächste if-Abfrage aufgerufen wird. Dort wird nämlich versucht, ein Double-Wert mit einem String zu vergleichen und das kracht! Deshalb nach jeden result := true ein exit! Möglich wäre auch ein VarToStr(AString) = ... aber das ist mit Sicherheit langsamer.

MfG
Stevie

[Sourcemaker]

Oder so:

Delphi-Quellcode:

function StrToKey(var AString: Variant): boolean; 
begin 
  result := false; 
  if AString = 'HKCU' then 
  begin 
    AString := HKEY_CURRENT_USER; 
    result := true; 
  end
  else if AString = 'HKLM' then 
  begin 
    AString := HKEY_LOCAL_MACHINE; 
    result := true; 
  end
  else if AString = 'HKU' then 
  begin 
    AString := HKEY_USERS; 
    result := true; 
  end
  else if AString = 'HKCC' then 
  begin 
    AString := HKEY_CURRENT_CONFIG; 
    result := true; 
  end
  else if AString = 'HKCR' then 
  begin 
    AString := HKEY_CLASSES_ROOT; 
    result := true; 
  end; 
end;

Grüße

Frank