Hallo Gemeinde
Ich habe ein Problem mit einem Dynamischen Array. Ich denke ich habe irgendwo ein Denkfehler drinne. Ich finde ihn einfach nicht. Ich mach es eigentlich wie immer. Und es geht einfach nicht :/ Ich hoffe jemand findet was:
Delphi-Quellcode:
type
ArrOfStr = array of string;
....
function ReadComPorts : ArrOfStr;
var
reg: TRegistry;
st: Tstrings;
i: Integer;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('hardware\devicemap\serialcomm', False);
st := TstringList.Create;
try
reg.GetValueNames(st);
//setlength(result,0);
for i := 0 to st.Count do // st.Count = 2 Laut Überwachung
begin
setlength(result,i);
result[i] := reg.Readstring(st.strings[i]);
end;
finally
st.Free;
end;
reg.CloseKey;
finally
reg.Free;
end;
end;
Gruß, Real-TTX