Массивы, ввод.вывод через TEdit/TMemo

[MaksimSeriy]

Задание: Каждый из элементов ti массива Т(т) заменить минимальным среди первых i элементов этого массива.
при этом необходимо кол-во элементов в массиве ввести в TEdit а исходный и результативный массив вывести в TMemo, вот тут и косяк, например вот эта конструкция выдает ошибку:

var
S:array [0..9] of integer;
i,n:integer;
begin
n:= strtoint (ed_input.Text);//ввод эл-тов массива
for i:=0 to n-1 do
S[i]:= strtoint(Memo_in.Lines[i]);
Memo_out.Lines.Clear;
for i:=0 to n-1 do
Memo_out.Lines.Add(inttostr(s[i]));
end;

Суть моего вопроса как мне в этом случае совместить компонент TEdit и TMemo?

[Ntlegend]

если количество элементов массива нада вводить вручнуюу то нельзя использовать статические массивы:
S:array [0..9] of integer;
нужна использовать динамические
S:array of integer;
дальше после
n:= strtoint (ed_input.Text);//ввод эл-тов массива
нужно установить длинну массива:
SetLength(S, n);
и дальше уже так как у вас написано.

[MaksimSeriy]

ясно, спасибо, буду пробовать, только тогда как я думаю нужно два динамических массива - один - исходный - а второй результативный и в процессе цикла их надо будет сравнивать м/д собой?

[spamer]

Лучше используй TStringGrid. Будет лучше видно, что куда выводится, и что надо сравнивать.

[MaksimSeriy]

сделал все

procedure TMassive.BtndoitClick(Sender: TObject);

var

S : array of integer;
T : array of integer;
i,n:integer;

Begin
n:=strtoint(EdInput.Text);//ввод числа элементов массива
SetLength(S,i);
SetLength(T,i);
for i:= 0 to n-1 do
S[i]:=strtoint(Memo1.Lines[0]);
T[0]:= S[0];
for i:= 1 to n-1 do
if T[i-1] > S[i] then
T[i] := S[i]
else
T[i] := T[i-1];
for i:= 0 to n-1 do
Memo2.Lines.Clear;//очистка Memo2
Memo2.Lines.Add(inttostr (T[i]));
end;
в итоге вылетает ошибка "is not a valid integer Value"

[Jeni]

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

сделал все
n:=strtoint(EdInput.Text);//ввод числа элементов массива
SetLength(S,i);
SetLength(T,i);

Считывается переменная N, а используется переменная I !!!
Нужно записать:
SetLength(S,n);
SetLength(T,n);


В строке
S[i]:=strtoint(Memo1.Lines[0]); логическая ошибка.
Должно быть
S[i]:=strtoint(Memo1.Lines[i]);


В коде

for i:= 0 to n-1 do
Memo2.Lines.Clear;//очистка Memo2
Memo2.Lines.Add(inttostr (T[i]));

Постоянно (в цикле) происходит очистка Мемо2, а потом в него заносится одно (непонятное) значение. Должно быть:

Memo2.Lines.Clear;//очистка Memo2 ==> выполняется перед циклом
for i:= 0 to n-1 do
  Memo2.Lines.Add(inttostr (T[i]));

Если делать отступы для строк внутри циклов, то такие ошибки сразу становятся заметными.