[Koontz]

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

Если я правильно понял - Вам нужно из несколько Memo записать в один файл.
Для этого Вам надо составить по сути еще один memo, который можно скрыть, а потом его записывать в файл.
или через переменную

Код:

var s: Tstringlist;
    i: integer;
begin
s:=TstringList.Create;
for i:= 0 to memo1.Lines.Count-1 do s.Add(memo1.Lines[i]);
{ в нужном порядке пишите строки }
for i:= 0 to memo2.Lines.Count-1 do s.Add(memo2.Lines[i]);
for i:= 0 to memo3.Lines.Count-1 do s.Add(memo3.Lines[i]);
s.SaveToFile('ИМЯ ФАЙЛА');
s.Free;
end;

Мне нужно записать произвольное количество массивов в типизированный. Из одного memo сделать это нельзя?