[Дюша]

Есть любое заданное в едит1 число, например 546213. Нужно поместить в массив цифры 5,4,6,2,1,3. Возможно конечно посимвольным копированием и переводом strtoint, но догадываюсь есть более простое и более умное решение.
Подскажите как это лучше сделать?

[lmikle]

Сообщение от Дюша

Есть любое заданное в едит1 число, например 546213. Нужно поместить в массив цифры 5,4,6,2,1,3. Возможно конечно посимвольным копированием и переводом strtoint, но догадываюсь есть более простое и более умное решение.
Подскажите как это лучше сделать?

Мщжно и через StrToInt. Надо просто помнить, что к строке можно обращаться как к массиву:

Код:

var
  I : Integer;
  S : String;
  A : Array Of Integer;  // zero based !!!
begin
  S := Edit1.Text; // 123456789
  SetLength(A,Length(S));
  For I := 1 To Length(S) Do
    A[I-1] := Ord(S[i]) - Ord('0'); // или A[I-1] := StrToInt(S[i]); 
  ...