![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
домашнее задание)) [D7, XP]
Ezorcist © (2006-01-27 07:41:00)вопрос распространенный но юзанье поиска результатов не дало( препод по инфе задал задачку: прога, выводящяя свой исходник.
(у меня мозги враскоряку:( даже не наю с какой стороны думать)
Leonid Troyanovsky (2006-01-27 09:01:00) [1]
> Ezorcist (27.01.06 07:41)
> вопрос распространенный но юзанье поиска результатов не
> дало( препод по инфе задал задачку: прога, выводящяя свой
> исходник.
http://groups.google.com/group/fido7.ru.delphi/browse_frm/thread/727ccc94c2b781d8/27c437851e22890b#27c437851e22890b
--
Regards, LVT.
Gydvin (2006-01-27 08:59:00) [2]В ресурс свой исходник запихни, а потом доставай
Cash (2006-01-27 08:57:00) [3]Гы-гы-гы... :) А ты думаешь прога сама себя читать должна?
Имею ввиду сам бинарник, а не исходник.
Дак вот!, без исходника тут никак!
Клади рядом с прогой ее исходник и говори проге читать его как текстовый
файл и выводить на экран.
Если для консоли, то:
var
f: TextFile;
s: string;
begin
assignfile(f,'fdsghfdjsfgsdj.pas');
reset(f);
Repeat
readln(f,s);
writeln(s);
until eof(f);
end;
end;