Problem mit einer Zugriffsverletzung

[5etH]

Hallo zusammen,

ich hab ein Programm geschrieben was eine Zahl entschlüsseln soll Bzw. umcodieren soll. Leider bekomme ich die Fehlermeldung das eine Zugriffsverletzung eingetreten ist weis aber nicht wie sie zustande kommt, vielleicht könnt ihr mir ja weiter helfen.

Da ihr keine Kristallkugel habt, hier einmal der Code

Delphi-Quellcode:

var eingabe : String;
    ausgabe : array of integer;
    i       : Integer;
    test    : String;

begin
  eingabe := edit1.text;
  for I := 1 to length(eingabe) - 1 do
    begin
      ausgabe[i] := StrToint(Eingabe[i]) mod 2; //der Fehler tritt hier auf 

    end;
    for I := 1 to length(eingabe) - 1 do
      begin
        test := Inttostr(ausgabe[i]);
      end;

    edit2.text := (test);
end;

[Bernhard Geyer]

Da fehlt ein

Delphi-Quellcode:

SetLength(ausgabe, length(eingabe))

Ansonsten hat ausgabe die größe/länge 0!

[Fussball-Robby]

Du musst die Länge des Array mit Hilfe von Setlength setzen.

Delphi-Quellcode:

SetLength(ausgabe,length(eingabe));

Mfg

[Edit]Na toll zu langsam :-D [/Edit]

[DeddyH]

Delphi-Quellcode:

var eingabe : String;
    ausgabe : array of integer;
    i       : Integer;
    test    : String;

begin
  eingabe := edit1.text;
  SetLength(ausgabe, Length(eingabe)); //erstmal Speicher reservieren
  for I := 1 to length(eingabe) - 1 do //wieso -1?
    begin
      ausgabe[i] := StrToint(Eingabe[i]) mod 2; //der Fehler tritt hier auf

    end;
    for I := 1 to length(eingabe) - 1 do
      begin
        test := Inttostr(ausgabe[i]);
      end;

    edit2.text := (test);
end;

[5etH]

jetz ist mir aufgefallen das ich einen logischen Fehler habe. In edit2.text wird nur eine zahl ausgegen und nicht der ganze satz, woran kann das liegen? und schonmal vielen dank für eure hilfe ;)

[Fussball-Robby]

dazu müsste es heißen:[delphi]
for I := 1 to length(eingabe) - 1 do
begin
test := test+Inttostr(ausgabe[i]);
end;