Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

домашнее задание)) [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;


Наверх

Титульная страница Поиск, карта сайта Написать письмо