koalvi.blogspot.com - другой мой блог "сойдет на троечку"
Показаны сообщения с ярлыком Delphi. Показать все сообщения
Показаны сообщения с ярлыком Delphi. Показать все сообщения

воскресенье, 19 сентября 2021 г.

объединение двух тестовых фалов в Lazarus (Delphi) "по-старому"...

 Просто возмутило осложнение вариантов объединения двух текстовых файлов  в Lazarus (Delphi) во множестве вариантов поэтому поступили так:

var
tfOut,tfIn:textfile;
file_s1,file_s2:string;
...
AssignFile(tfOut, file_s1);
AssignFile(tfIn, file_s2);
reset(tfIn);
 try
append(tfOut);
while not eof(tfIn) do begin
readln(tfIn,body_file);
writeln(tfOut,body_file);
end;
   CloseFile(tfIn);
   CloseFile(tfOut);
 except
   on E: EInOutError do
    writeln('File error. Elaboration: ', E.Message);
 end;
===================================================
если говорить вообще об тестовом способе через консоль -
If ShellExecute(0,nil, PChar('cmd'),PChar('/c copy text1.txt+text2.txt /b text1.txt'),nil,1)=0 then;

 0/1 открывать окно консоли или нет, 
/С /K - закрывать/не закрывать окно консоли после выполнения
но при обработке тысяч файлов этот метод не справляется по скорости обработки, у меня происходит отказ доступа после какого-то времени