Delphi-Quellcode:
procedure TForm1.Deaktivieren1Click(Sender: TObject);
var regist: TRegistry;
reglist : Tstringlist;
status, i : integer;
MyIntArray: array of Integer;
arr: array[0..100] of integer;
begin
regist:=TRegistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey('Software\***\*\*', true);
reglist := TStringList.Create;
status := 1;
regist.GetKeyNames(reglist);
SetLength(MyIntArray, reglist.Count);
for i := 0 to reglist.Count - 1 do
begin
MyIntArray[i] := StrToInt(reglist.Strings[i]);
end;
for I:=Low(MyIntArray) to High(MyIntArray) do
MyIntArray[I]:=Random(High(Integer));
Quick_Sort(MyIntArray);
regist.free;
label3.caption := IntToStr(MyIntArray[0]);
Bei diesem Code kommt die Fehlermeldung:
Project *.exe raised
exception class EConvertError with message "4226805319' is not a valid integer value'. Process stopped.
4226805319 ist übrigens der höchste Wert neben ihm gibt es allerdings nur noch 0 werds aber noch auf nem anderen PC probieren dort hat es mehrere.
EDIT2: Die Fehlermeldung auf dem anderen PC gab den mittleren Wert als is not a valid iteger value an.