Array of Integer setzen mit StrToIntDef(): gibt es was schnelleres?

[Fritzew]

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;