Задача наверняка не сложная, просто у меня опыта не хватает (пишу всего пару недель) .
Необходимо к каждой строке текстового файла f1 добавить строки файла f2.
Код:
begin
AssignFile(f1,PChar(Memo1.Text));
Reset(f1);
While not EOF(f1) do
begin
ReadLn(f1,st1);
AssignFile(f2,PChar(Memo2.Text));
Reset(f2);
While not EOF(f2) do
ReadLn(f2,st2);
stM:= st1+' '+ st2;
WriteLn(fMain, stM);
end;
CloseFile(f2);
end;
begin
CloseFile(f1);
CloseFile(fMain);
end;
Не работает. Почему-то из второго файла берет только последнюю строку