[vers0]

Сообщение от lmikle

У меня, вроде, все правильно работает.
Только надо инвертировать разряды.
Видимо ты пытаешься как-то добраться до массива неправильно, вот и получаешь какой-то мусор.
На выходе показывает 'A1=2 A2=7'.

Код тот же, единственное InNmb заменено на s1 и A1,A2 выводятся через Edit3.Text:=IntToStr(A1);

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
s1:=d1+m1+y1;

begin
  SetLength(A,0);
  While s1 > 0 Do
   Begin
     SetLength(A,Length(A)+1);
     A[High(A)] := s1 mod 10;
     s1 := s1 div 10;
   End;
A1 := A[0];
A2:=A[1];
Edit3.Text:=IntToStr(A1);
Edit4.Text:=IntToStr(A2);
end;
end;

Самое интересное, что сумма в А1 всегда верная, какие бы входные данные не передавались. A1, A2, S1 фигурируют только в этой процедуре, больше ни где.