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

zusammenfalten · markieren

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;

Da fehlt ein
SetLength(ausgabe, length(eingabe)) Ansonsten hat ausgabe die größe/länge 0!

Du musst die Länge des Array mit Hilfe von Setlength setzen.
SetLength(ausgabe,length(eingabe)); Mfg

[Edit]Na toll zu langsam [/Edit]

zusammenfalten · markieren

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;

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

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