Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by p80286,
28. Okt 2010
der Doppelaufruf steht hier:
if (DataType= rdString) or (DataType = rdExpandString) then
begin
RG.ReadString(valuenames); {---------------------------------------!!!!!!}
(*// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL*)
// data := '';
// data :=...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by p80286,
26. Okt 2010
Leider beschreibst Du nicht genau, was Dich zu der Überzeugung bringt, Das Programm sei korrupt.
(von mir hat es sich nicht schmieren lassen)
Unter D7 tut es was es soll, und verdaut auch den überflüssigen Mehrfachaufruf von
RG.Readstring().
Du bist Dir im Klaren darüber, daß OpenKey für eine erfolgreiche Durchführung Schreibrechte in der Registry benötigt?
Für Billy Normalbenutzer ist...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by p80286,
25. Okt 2010
Da hast Du eine kleine Änderung übersehen:
if length(knames)>0 then begin
Die von mir angelegte Datei protokolliert den Fortgang des Suchvorgangs, ist nätürlich nicht notwendig, erleichtert aber meiner Meinung nach die Fehlersuche.
Gruß
K-H