Hallo Zusammen,
ich habe ein Programm geschrieben und bekommen diese Fehlermeldung: Em Projekt ... ist eine
Exception der Klasse EInvalidPointer mit der Meldung 'Ungültige Zeigeroption' aufgetreten.
Woher kommt dieser Fehler und wie kann ich ihn beheben? Das ganze kommt, wenn ich auf einen Button drücke... Hier einmal der dazugehörige Quelltext.
Delphi-Quellcode:
var schluessel1, schluessel2, schluessel3 : String;
i : Integer;
KeyA, KeyB, KeyC : array of Integer;
zwisch1, zwisch2, zwisch3 : array[0..7] of integer;
const bin0: array[0..3] of Integer = (2,4,6,8);
const bin1: array[0..3] of Integer = (3,5,7,9);
begin
keyx := '';
keyy := '';
keyz := '';
schluessel1 := IntToStr(key11);
SetLength(KeyA, Length(schluessel1));
Randomize;
for I := 1 to length(schluessel1) do
begin
zwisch1[i] := StrToInt(schluessel1[i]);
case StrToInt(Schluessel1[i]) of
0: keyA[i] := (bin0[random(3)]);
1: keyA[i] := (bin1[random(3)]);
end;
end;
for I := 1 to length(schluessel1) do
begin
keyX := keyX + IntToStr(keyA[i]);
end;
edit8.text := keyX;
Schluessel2 := IntToStr(key12);
SetLength(keyB, Length(Schluessel2));
Randomize;
for I := 1 to length(Schluessel2) do
begin
zwisch2[i] := StrToInt(Schluessel2[i]);
case StrToInt(Schluessel2[i]) of
0: keyB[i] := (bin0[random(3)]);
1: keyB[i] := (bin1[random(3)]);
end;
end;
for I := 1 to length(Schluessel2) do
begin
keyY := keyY + IntToStr(keyB[i]);
end;
edit9.text := keyY;
schluessel3 := IntToStr(key13);
SetLength(KeyC, Length(schluessel3));
Randomize;
for I := 1 to length(schluessel3) do
begin
zwisch3[i] := StrToInt(schluessel3[i]);
case StrToInt(schluessel3[i]) of
0: KeyC[i] := (bin0[random(3)]);
1: KeyC[i] := (bin1[random(3)]);
end;
end;
for I := 1 to length(schluessel3) do
begin
keyZ := keyZ + IntToStr(KeyC[i]);
end;
edit10.text := keyZ;
schonmal vielen dank für eure Hilfe
Euer Manu