загрузить файлы в мемо

[brownb]

Пытаюсь загрузить файлы(10 шт) в мемо
var SR: TSearchRec;
begin
if FindFirst('*.txt', faAnyFile, SR) = 0
then memo1.lines.loadfromfile(SR.Name);
end;

Но он грузит один файл, а не все

[Heneken87]

Так у вас и цикла нету чтобы он что то повторял,взял первый попавшийся и загрузил

[Heneken87]

procedure Tlogins.GetAllFiles(Path: string; lb: Tlistbox);
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst(Path + '/*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name<>'.' ) and ( sRec.Name<>'..' )  then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + '/' + sRec.Name, Lb );
Lb.Items.Add(sRec.Name);
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );

end;

[brownb]

а с моим примером можно какнить?

[Аватар]

loadfromfile затирает предыдущее содержимое. А AddStrings нет, насколько помню