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

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

← →
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]

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

---

← →
Leonid Troyanovsky ©   (2006-01-27 09:01) [3]

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


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

--
Regards, LVT.

---

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

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



Память: 0.45 MB
Время: 0.025 c