Файлы.Дан символьный файл f. Получить копию файла в файле g (на Delphi)

[Zaraaa]

Дан файл f, компоненты которого являются символами. Получить копию файла в файле g, не используя стандартных процедур.
на делфи пжл((

[Stilet]

Список стандартных процедур в студию.

[Serge_Bliznykov]

Сообщение от Stilet

Список стандартных процедур в студию.

+1

точно так. без конкретного знания, какие процедуры тут подразумеваются под запрещёнными, ничего не напишешь!

[Zaraaa]

Сообщение от Stilet

Список стандартных процедур в студию.

быть может эти стандартные процедуры. К сожалению, препод просто дибил(извиняюсь за выражение), который ни фига не объясняет, дает задачку и делай как хочешь, сделаем и показываем прогу, а он ржет(не знаю почему, при этом ниче не спрашивает, не говорит где ошибка, не говорит переделать...) и ставит при этом С-.Пытались отказаться от него писали заявление но заявление не приняли(( А что делать как не обращаться к вам

Стандартные Процедуры(может быть эти)

Append {открывает существующий файл для присоединения.}
Flush {очищает буфер выходного файла.}
Read {считывает одно или более значений
из текстового файла в одну или более переменных.}
Readln {выполняет те же действия, что и процедура Rеаd,
а затем делает пропуск до начала следующей строки файла.}
Buf {назначает для текстового файла буфер ввода-вывода.}
Write {записывает в текстовый файл одно или более значений.}
Writeln{выполняет те же функции, что процедура Write,
а затем добавляет к файлу метку конца строки (end-of-line).}

[Stilet]

**здец короче...

var f,g:TFileStream;
begin
 f:=TFileStream.Create('f',fmopenread);
 g:=TFileStream.Create('g',fmCreate);
 g.copyfrom(f,f.Size);
 g.free; f.free;
end;

Надеюсь достаточно нестандартно для твоего недалекого преподавателя?

[Zaraaa]

Сообщение от Stilet

**здец короче...

var f,g:TFileStream;
begin
 f:=TFileStream.Create('f',fmopenread);
 g:=TFileStream.Create('g',fmCreate);
 g.copyfrom(f,f.Size);
 g.free; f.free;
end;

Надеюсь достаточно нестандартно для твоего недалекого преподавателя?

спс)) надеюсь