[Помогите!] Как в memo1 подгрузить сразу 2 .txt файла

[ɱάуßƩ]

Доброго времени суток, возникла проблема и нашел решение но довольно глупое и уверен есть более разумный способ для действий.
Мне надо загрузить в memo1 сразу 2 разных текстовика, допустим первый с буквами а второй с цифрами.
Вот подгрузка первого файла: memo1.Lines.LoadFromFile('первый_текстовик'); тут как бы всё ясно-понятно, а как к этому добавить еще второй текст. Я решил проблему так, но способ смешной:
memo1.Lines.LoadFromFile('первый_текстовик');
s:=memo1.Text;
memo1.Lines.LoadFromFile('второй_текстовик');
m:=memo1.Text;
memo1.Text:=s+m;

Подскажите, как поступить, это разумное решение?! Или нет. Просто проблема будет в случае если подгружать надо будет большее кол-во файлов, а это гемор.

[Sinyss]

Цитата: Сообщение от ɱάуßƩ Подскажите, как поступить, это разумное решение?! Или нет. Просто проблема будет в случае если подгружать надо будет большее кол-во файлов, а это гемор.

из файла считывать в переменную, а потом уже записывать в мемо.

[ɱάуßƩ]

Цитата: Сообщение от Sinyss из файла считывать в переменную, а потом уже записывать в мемо.

Пример кода напиши пожалуйста, не совсем понял ответ. Не профи я в этом деле пока.

[NebesaBag]

var Temp1, Temp2: Tstringlist;
...
Temp1:=Tstringlist.create;
Temp2:=Tstringlist.create;
Temp1.LoadFromFile('1.txt');
Temp2.LoadFromFile('2.txt');
Memo1.Text:=Temp1.Text+Temp2.Text;

Набросал так, возможно между склеиванием Temp1.Text+Temp2.Text понадобится разделить(вдруг буквы склеятся)- тогда можно попробовать так Temp1.Text+#13+#10+Temp2.Text это проставит символ начала новой строки перед вторым текстом.

[Tr0y]

Цитата: Сообщение от Sinyss из файла считывать в переменную, а потом уже записывать в мемо.

Лучше все эти внешние манипуляции заключать в try except end;
Вместо повторяющихся строк
Temp1.LoadFromFile('1.txt');
поместить это в цикл и подставлять, к примеру:

var FileName: array[0..255] of string; // 255 - кол-во файлов, которые ты будешь открывать
var Temp1: Tstringlist;
begin
try
Temp1:=Tstringlist.create;
for i:= 0 to Length(FileName) do FileName[i] := ''; //магия
...
{заполняем массив FileName названиями файлов, 
тут несколько способов, те же списки и т.д.
и чтобы без потворений}
...
for i:= 0 to Length(FileName) do // пробегаемся по списку названий файлоф
if Length(FileName[i])>0 then // не пустая строка ли часом? (з.ы. магия)
Temp1.LoadFromFile(FileName[i]); 
...
except
ShowMessage('Ахтунг, ашибка');
end;
finally
Temp1.Free; // убираем за собой
end;

[RenatPro]

Раз уж тут дело зашло за текстовик в memo, задам вопрос как подгрузить файл в кодировке UCS-2 LE в memo?)