Ramzey
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[code=pas]
USES Crt;
VAR
F1,F2 : text;
FileName : string;
procedure InputFile(var F : text);
var
InStr : string;
begin
repeat
readln(InStr);
if InStr='' then break;
writeln(F,InStr);
until false;
end;
procedure MyAppend(var F1,F2 : text);
var
s : string;
begin
{$I-}
Append(F1);
{$I+}
if IOResult<>0 then
begin
writeln('Can`t open file ',FileName);
exit
end;
{$I-}
Reset(F2);
{$I+}
if IOResult<>0 then
begin
writeln('Can`t open file ',FileName);
exit
end;
while not EOF(F2) do
begin
readln(F2,s);
writeln(F1,s);
end;
close(F1);
close(F2);
end;
BEGIN
clrscr;
if ParamCount<2 then
begin
writeln('Wrong parameters');
exit
end;
FileName:=ParamStr(1);
Assign(F1,FileName);
{$I-}
ReWrite(F1);
{$I+}
if IOResult<>0 then
begin
writeln('Can`t create file ',FileName);
exit
end;
InputFile(F1);
close(F1);
FileName:=ParamStr(2);
Assign(F2,FileName);
{$I-}
ReWrite(F2);
{$I+}
if IOResult<>0 then
begin
writeln('Can`t create file ',FileName);
exit
end;
InputFile(F2);
close(F2);
MyAppend(F1,F2);
END.
[/code]
|
Всего записей: 11 | Зарегистр. 10-12-2006 | Отправлено: 11:58 17-12-2006 | Исправлено: Ramzey, 15:28 17-12-2006 |
|
