Hallo cRayZo,
du mußt schon genau hinsehen:
Zitat von
Hawkeye219:
for i2 := 1 to Length(numbers) div 3 do begin
Zitat von
cRayZo:
for i2 := 1 to Length(numbers) do begin
Bemerkst du den Unterschied?
Zu deiner "Konvertierungstabelle":
Wäre es nicht viell einfacher und übersichtlicher, den Zeichenvorrat in einen String zu packen? Dann kannst du mit der Funktion
Pos nach einem Zeichen suchen und erhältst dessen Position im String oder den Wert 0, falls das gesuchte Zeichen nicht im String enthalten ist. Beim Entschlüsseln kannst du mit einem gültigen Index [1..Length(Zeichenvorrat)] jedes Zeichen aus dem String direkt auslesen.
Gruß Hawkeye