Программа печатающая саму себя :o

[K@$K@]

Что то я в недоумении, кто что подскажет.

[Viteef]

Печатающая свой скрин? Код? На принтере? На экране?

[K@$K@]

свой код на экране . Глупо у меня только одна мысль записать в строки и вывести )

[alexBlack]

Уже обсуждалось:

http://programmersforum.ru/showthread.php?t=15445

[K@$K@]

спасибо, в поиске не правельно написал

[SunKnight]

Я уже предлагал решение, только вариант для консоли ДЕлфи.

program Project2;   
{$APPTYPE CONSOLE}   
uses   
  SysUtils;   
var i:integer;   
    mas:array [0..13] of string;   
begin   
     mas[0]:='program Project2;';   
     mas[1]:='{$APPTYPE CONSOLE}';   
     mas[2]:='uses SysUtils;';   
     mas[3]:='var i:integer;';   
     mas[4]:='mas:array [0..13] of string;';   
     mas[5]:='begin';   
     mas[6]:='     for i:=0 to 5 do';   
     mas[7]:='     writeln(mas[i]);';   
     mas[8]:='     for i:=0 to 13 do';   
     mas[9]:='     writeln(FUCK)';   
     mas[10]:='     for i:=6 to 13 do';   
     mas[11]:='     writeln(mas[i]);';   
     mas[12]:='readln;';   
     mas[13]:='end.';   
     for i:=0 to 5 do   
        writeln(mas[i]);   
     for i:=0 to 13 do   
        writeln('mas['+inttostr(i)+']:='+mas[i]);   
     for i:=6 to 13 do   
        writeln(mas[i]);   
readln;   
end.

только нужно в строке mas[9]:=' writeln(FUCK)'; вместо FUCK подставить всю строку writeln('mas['+inttostr(i)+']:='+mas[i]);.
там нужно помудрить немного, а то с этими ''''' -выводами запара.
По этому методу можно выводить в МЕМО!

Я думаю под паскаль переделаете, главное что бы принцип был понятен.

[Stilet]

А что тут тяжелого? Открыл файл который редактируеш в паскале и распечатал.

[K@$K@]

Ну это очень легко, я решл сначало сделать в 1 unit'e, как предложил SunKnight, но пришел к выводу что просто не возможно, времени уже не хватало и сделал через файл. Есть еще вариант через 2 unit'aю