Zitat:
Ein Hinweis noch.
Der String beginnt im Standard bei 1. Es muss also ltemp[i + 1] lauten.
Ja das habe ich übersehen war nur so hingedaddelt
Aber wenn du sicher bist das nur 0 und 1 vorkommen dann ist mit Sicherheit der Ansatz von Dummzeuch besser also
Delphi-Quellcode:
i := 4320;
While I > 0
do begin
l_arr[i-1] := Ord(ltemp[i]) - $30);
dec(i);
end;