Вывести исходный код на экран

[SoftKoc]

!Здравствуйте!

У меня вот в чем проблема
Мне нужно чтобы моя программа выводила собственный исходный код на экран ( не используя чтения из файла ).
Помогите пожалуйста!
Заранее очень благодарен!

[ОДИНОЧЕСТВО В СЕТИ]

так устроит?

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
I :integer;
STAT :array[1..15] of string;
S0,S1,S2,S3 :string;
begin
S0:=char(39);
S1:=char(83)+char(84)+char(65)+char(84)+char(91);
S2:=char(93)+char(58)+char(61);
S3:=char(59);
STAT[1]:='program project1;';
STAT[2]:='uses SysUtils;';
STAT[3]:='var';
STAT[4]:='I :integer;';
STAT[5]:='STAT :array[1..15] of string;';
STAT[6]:='S0,S1,S2,S3 :string;';
STAT[7]:='begin';
STAT[8]:='S0:=char(39);';
STAT[9]:='S1:=char(83)+char(84)+char(65)+char(84)+char(91);';
STAT[10]:='S2:=char(93)+char(58)+char(61);';
STAT[11]:='S3:=char(59);';
STAT[12]:='for I:=1 to 11 do writeln(STAT[I]);';
STAT[13]:='for I:=1 to 15 do writeln(S1,I,S2,S0,STAT[I],S0,S3);';
STAT[14]:='for I:=12 to 15 do writeln(STAT[I]);';
STAT[15]:='Readln;end.';
for I:=1 to 11 do writeln(STAT[I]);
for I:=1 to 15 do writeln(S1,I,S2,S0,STAT[I],S0,S3);
for I:=12 to 15 do writeln(STAT[I]);
Readln;end.

[SoftKoc]

Устроит, большое спасибо!!! +

[ОДИНОЧЕСТВО В СЕТИ]

Если бы еще кто-то описал что и где происходит! =-)

В смысле? Там же все прозрачно

[SoftKoc]

Сори сонный, не обратил внимания =-)

А это только один метод, или есть еще какой-то???

[ОДИНОЧЕСТВО В СЕТИ]

А это только один метод, или есть еще какой-то???

Скорее есть, чем нету!
Вот еще варианты http://programmersforum.ru/showthread.php?t=15445