домашнее задание))

← →
Ezorcist (2006-01-27 07:41) [0]

вопрос распространенный но юзанье поиска результатов не дало( препод по инфе задал задачку: прога, выводящяя свой исходник.
(у меня мозги враскоряку:( даже не наю с какой стороны думать)

← →
Cash © (2006-01-27 08:57) [1]

Гы-гы-гы... :) А ты думаешь прога сама себя читать должна?
Имею ввиду сам бинарник, а не исходник.
Дак вот!, без исходника тут никак!
Клади рядом с прогой ее исходник и говори проге читать его как текстовый
файл и выводить на экран.

Если для консоли, то:
var
f: TextFile;
s: string;
begin
assignfile(f,"fdsghfdjsfgsdj.pas");
reset(f);
Repeat
readln(f,s);
writeln(s);
until eof(f);
end;
end;

← →
Gydvin © (2006-01-27 08:59) [2]

В ресурс свой исходник запихни, а потом доставай

> Ezorcist (27.01.06 07:41)
> вопрос распространенный но юзанье поиска результатов не
> дало( препод по инфе задал задачку: прога, выводящяя свой
> исходник.

http://groups.google.com/group/fido7.ru.delphi/browse_frm/thread/727ccc94c2b781d8/27c437851e22890b#27c437851e22890b

--
Regards, LVT.

домашнее задание)) Найти похожие ветки