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

[Fritzew]

Na wir wäre es mit:

Delphi-Quellcode:

procedure strToArray;
VAR
  i: Integer;
  l_arr: ARRAY [0 .. 4319] OF Integer;
  ltemp : String;
BEGIN
  ltemp :=   frm_Test_Framework.dxMemData1.Fields[8].AsString;
  if length(ltemp) <> 4320 then exit;

  FOR i := 0 TO 4319 DO
  BEGIN
    if ltemp[i] = '0' then
    l_arr[i] := 0 else
    if ltemp[i] = '1' then
    l_arr[i] := 1 else
    l_arr[i] := 9;
  END;

END;

Also den String nur einmal holen.