строки

мне нужно для каждой строки из списка проделать такую манипуляцию
прибавить в конце рандомные цифры. количество цифр задается вручную

пишу так

Code:

var
i, j, k : integer;
str : string;
begin
j:=SpinEdit1.Value;
for i:=0 to InputMemo.Lines.Count-1 do
begin
str:='';
for k:=1 to j do
str:=str+inttostr(Random(9));
OutputMemo.Lines[i]:=(InputMemo.Lines[i]+str);
end;
OutputMemo.Lines.SaveToFile('output.txt');
end;

не получается( где ошибка?

 

........
OutputMemo.Lines:=(InputMemo.Lines+str);
........

Замени на
OutputMemo.Lines.Add(InputMemo.Lines+str);

P.S. После begin добавь
OutputMemo.clear;

 

разобрался.