Скачать: CL | DM;

Помогите написать прогу   Найти похожие ветки 

← →
StarReider   (2003-03-22 19:22) [0]

Уважаемые програмисты,я простой ламер прошу помочь написать мне прогу,а то я горю.Текст задания:написать прогу копирования файлов,используя нетипизированные файлы.Прога должна открывать 2 файла один для ввода,другой для вывода,проверять существование этих файлов для предотвращения ошибок и случайной перезаписи файлов без предупреждения.Прога не должна позволять копировать файл сам в себя.Помоггите,пожайлуста.

---

← →
sancho ©   (2003-03-22 19:40) [1]

copyfile

---

← →
sancho ©   (2003-03-22 19:41) [2]

assignfile

---

← →
DrPass ©   (2003-03-22 20:41) [3]

>sancho
Сам-то напишешь, советчик? :)

На TurboPascal:

{$I-}
program lamer;
var
f1,f2:file;
s1,s2:string;
i:integer;
p:pointer;
begin
writeln("введите имя первого файла");
readln(s1);
writeln("введите имя второго файла");
readln(s2);
assign(f1,s1);
reset(f1,1);
if ioresult<>0 then begin
writeln("нет такого файла");
exit;
end;
assign(f2,s2);
reset(f2,1);
if ioresult=0 then begin
writeln("нажмите Y, чтобы перезаписать файл");
if readkey<>"Y" then exit;
close(f2);
end;
rewrite(f2,1);
i:=filesize(f1);
seek(f1,0);
getmem(p,i)
blockread(f1,p^,i);
blockwrite(f2,p^,i);
close(f1);
close(f2);
end.

---

← →
Palladin ©   (2003-03-22 21:28) [4]

> DrPass © (22.03.03 20:41)

только большие файлы не учел...

---

← →
DrPass ©   (2003-03-22 22:45) [5]

А влом. И так на четверку сдаст

---

← →
Palladin ©   (2003-03-22 23:23) [6]

:)

---

← →
Knight ©   (2003-03-22 23:35) [7]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1048190634&n=3

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c