Распечатать текст программы...

← →
vasIZmax © (2006-12-30 23:08) [0]

...такую задачу в инсте препод задал. Ну я ему и предложил два варианта.
1 -ый такой:
form1.memo1.loadfromfile("unit1.pas").
Ему не то.
я ему такой вариант предложил:
- В unit1.pas перегнать в картинку (jpg).
- Поместить в exe этот самый jpg
- чтобы распечать этот акаяный код: выгрузить обратно jpg, и перевести в текст.
ЗЫ. Препод задумался...
ЗЫЫ. Какие еще могут быть варианты

← →
Gero © (2006-12-30 23:11) [1]

http://delphimaster.net/view/15-1166712306/

← →
X9 © (2006-12-30 23:11) [2]

> я ему такой вариант предложил:
> - В unit1.pas перегнать в картинку (jpg).
> - Поместить в exe этот самый jpg
> - чтобы распечать этот акаяный код: выгрузить обратно jpg,
> и перевести в текст.
> ЗЫ. Препод задумался...

Я бы тоже задумался на его месте :-D

← →
ferr © (2006-12-30 23:12) [3]

есть вариант читать книги, до просветления.
Шень Верещагин подойдёт.

← →
vasIZmax © (2006-12-30 23:14) [4]

> Gero © (30.12.06 23:11) [1]

Sorry, не видел эту ветку :)

← →
TUser © (2006-12-31 01:48) [5]

> - чтобы распечать этот акаяный код: выгрузить обратно jpg,
> и перевести в текст.

Это лаба или уже курсач?)

← →
vasIzmax © (2006-12-31 02:10) [6]

Не то и не другое. Просто я любитель поспорить с преподами на темы программирования (да и вообще, любитель... дискуссий). Вот и в этот раз Этот (ничего не хочу сказать плохого в его адрес, весьма Уважаемый мною человек) препод размышлял на такую тему, ну и я естесно встрял со своими вопросами к нему. Имхо, преподы, не особо долюбливают любопытных студентов, вот он и предложил мне, такому, блин умному, поделиться с незнающими своими идеями по "поставленной проблеме". :)
ЗЫ. Курсовик у меня уже сдан: "Кластерный анализ результатов тестирования". :)

← →
kaZaNoVa © (2007-01-03 21:46) [7]

vasIzmax © (31.12.06 2:10) [6]

> Имхо, преподы, не особо долюбливают любопытных
> студентов,

это Ваше личное мнение или общее впечатление студентов:))?

← →
vidiv © (2007-01-03 23:06) [8]

> Курсовик у меня уже сдан: "Кластерный анализ результатов
> тестирования". :)

Ознакомится можно? У меня тема дисера связана с этим =)

← →
Esu © (2007-01-04 00:09) [9]

Раньше это было на разных олимпиадах... Сейчас решения находится довольно быстро в интернете.
IMHO формулировка задачи обычно неверная, непоятно почему вдруг решение прочитать код из памяти или там из файла как в [1] это неверно но в то же время верным считается знание кодов символов 8-)
У меня первая мысль была написать чего-то на basic где компилится программа без единого символа ;) (не помню уже что за компилятор)

← →
vasIZmax © (2007-01-08 13:26) [10]

> kaZaNoVa © (03.01.07 21:46) [7]

Не это я знаю по себе. Надоело уже с преподами в войнушки играть. А по другому никак: когда слышишь чушь, ну как не возразить?!

← →
Sha © (2007-01-08 13:46) [11]

> vasIZmax © (30.12.06 23:08)
> ...такую задачу в инсте препод задал. Ну я ему и предложил два варианта.
> 1 -ый такой:
> form1.memo1.loadfromfile("unit1.pas").
> Ему не то.

Мне тоже не то.
Во-первых, где полный текст программы?
Во-вторых, ты забыл про печать кучи других файлов проекта.

> я ему такой вариант предложил:
> - В unit1.pas перегнать в картинку (jpg).
> - Поместить в exe этот самый jpg
> - чтобы распечать этот акаяный код: выгрузить обратно jpg, и перевести в текст.
> ЗЫ. Препод задумался...

Я б тоже задумался.
Тебя просили написать программу, которая...
Где в твоем случае кончается написание и начинается работа программы?
Какой из вариантов написания ты выбрал
1. программа сама перегоняет картинку и далее...
2. ты перегоняешь, а программа помещает в ехе и далее...
3. ты перегоняешь, помещаешь в ехе, а программа выгружает и далее...
Что в выбранном случае является исходным текстом программы?
Ну, и хотелось бы увидеть его - этот текст ))

> ЗЫЫ. Какие еще могут быть варианты

var s:string;begin s:= "var s:string;begin s:="";insert(s[23],s,24);insert(s,s,24);write(s)end."; insert(s[23],s,24);insert(s,s,24);write(s)end.

> vasIZmax © (08.01.07 13:26) [10]
> Не это я знаю по себе. Надоело уже с преподами в войнушки играть.
> А по другому никак: когда слышишь чушь, ну как не возразить?!

А где тот препод сказал чушь?
А чем ты возразил?

← →
vasIzmax © (2007-01-08 16:22) [12]

> Sha © (08.01.07 13:46) [11]

>Во-первых, где полный текст программы?
Нет, может я конечно и ошибаюсь - но код программы хранится в .pas

> var s:string;begin s:=
> "var s:string;begin s:="";insert(s[23],s,24);insert(s,s,
> 24);write(s)end.";
> insert(s[23],s,24);insert(s,s,
> 24);write(s)end.

Он тоже предложил типа такого варианта. Мне он, вариант, не нравится,имхо. Какой-то детский. Присваиваем в переменную то же самое что и текст проги... Ну это уж слишком просто.

← →
palva © (2007-01-08 16:26) [13]

> Какие еще могут быть варианты

Я всегда делаю так: открываю текст в блокноте и нажимаю Ctrl-P

← →
Sha © (2007-01-08 16:49) [14]

> vasIzmax © (08.01.07 16:22) [12]
> Нет, может я конечно и ошибаюсь - но код программы хранится в .pas

В *.dpr загляни.
Чем считать *.dfm - вопрос открытый, но без него "не запустится".

> Он тоже предложил типа такого варианта.
> Мне он, вариант, не нравится,имхо. Какой-то детский.
> Присваиваем в переменную то же самое что и текст проги...
> Ну это уж слишком просто.

И ты готов прям щас запросто написать че-нить такое же простое
за пару минут на чистом листе бумаги )))

← →
vasIzmax © (2007-01-08 17:12) [15]

> Sha © (08.01.07 16:49) [14]
> И ты готов прям щас запросто написать че-нить такое же простое
> > за пару минут на чистом листе бумаги )))

Это за пару минут:
procedure TForm1.Button2Click(Sender: TObject); var s:string; begin s:="unit Unit1;"+#13+"interface"+ #13+"uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) .."; form1.Memo1.Lines.Add(s); end;

Но это рутинно, отрицать не буду.

> В *.dpr загляни.
> Чем считать *.dfm

form1.Memo1.Lines.LoadFromFile("Unit1.dfm");
*.dpr так же.

← →
Sha © (2007-01-08 17:22) [16]

> vasIzmax © (08.01.07 17:12) [15]

Предложенное в [15] решение не компилируется ((

← →
vasIzmax © (2007-01-08 17:48) [17]

> Sha © (08.01.07 17:22) [16]

То что написано в [15] у меня работает. Может просто попробовать в одну строку написать присваиваемое значение S. Если честно то даже не знаю.

Если нетрудно, запости сюда точное содержимое *.pas и *.dfm

← →
try (2007-01-08 17:56) [19]

> vasIzmax © (08.01.07 17:48) [17]
> То что написано в [15] у меня работает.

То, что там написано - это огрызок непонятно какой и чего.
Работать не может. Ты нагло врёшь.

Вот так текст выглядит в делфи(тобишь pas):
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); var s:string; begin s:="unit Unit1;"+#13+"interface"+ #13+"uses Windows, Messages,, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) .."; form1.Memo1.Lines.Add(s); end; end.

Вот файл unit1.dfm
object Form1: TForm1 Left = 192 Top = 116 Width = 696 Height = 480 Caption = "Form1" Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = "MS Sans Serif" Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 112 Top = 104 Width = 75 Height = 25 Caption = "Button1" TabOrder = 0 end object Memo1: TMemo Left = 256 Top = 152 Width = 185 Height = 89 Lines.Strings = ( "Memo1") TabOrder = 1 end object Button2: TButton Left = 280 Top = 16 Width = 75 Height = 25 Caption = "Button2" TabOrder = 2 OnClick = Button2Click end end
PS. 2try - работает и это факт. Выводит в мемо кусок текста программы. )))

если это и работает, то выведет вот что

unit Unit1; interface uses Windows, Messages,, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ..

А ты в качестве текста программы запостил нечто иное.

Неувязочка.

> Sha ©

[20] - так это же выводит текст программы, все что в ней написано, со всеми процедурами, функциями, и пр. Просто здесь копируется текст проги в переменную до компиляции.

Смотря как понимать текст программы:
1. можно начать как предложено с самого верху));
2. или можно например сделать так чтобы выводился текст уже после {$R *.dfm}.

ЗЫ. Это как я вижу решение..))

> vasIzmax © (08.01.07 18:19) [22]
> Смотря как понимать текст программы:
> 1. можно начать как предложено с самого верху));
> 2. или можно например сделать так чтобы выводился текст уже после {$R *.dfm}.

Если ты считаешь выведенное твоей программы исходным текстом - попробуй его откомпилировать )))

А после того, как добьешься компиляции - попробуй исполнить.
Как ты помнишь, при исполнении данная прога должна вывести свой исходник )))

выведенное твоей программой

Распечатать текст программы... Найти похожие ветки