Как содержимое файла передать в процедуру ?!

[stalker1995s]

Здравствуйте форумчане, помогите пожалуйста с моей проблемой:
Проблема заключается в том, и это даже по большей части вопрос:
Как содержимое функции пример:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Close; // есть содержимое
end;

Записать в файл, в общем как записать знаю, как содержимое процедуры вывести незнаю.

Далее: Как содержимое файла, передать в процедуру, пример:

procedure TForm1.FormCreate(Sender: TObject);
begin
//Содержимоей файла
end;

Очень жду помощи, спасибо вам за ранее.

[Serge_Bliznykov]

нет такого понятия "содержимое" файла!

Что за файл? Что за "содержимое"? И, главное, что Вы с ним хотите делать на событии создания формы (FormCreate)?

Чем более конкретный вопрос Вы зададите, тем больше вероятность того, что Вы получите конкретный ответ.


пока, извините, но Ваш ответ звучит так: у меня есть типографское изделие, как мне брату передать его внутренности....

[stalker1995s]

Извените, не правельно задал вопрос.

Вопрос: Как на пример:

Процедура может быть любой, привел для примера.

procedure SetDCPixelFormat ( hdc : HDC );
var
 pfd : TPixelFormatDescriptor;
 nPixelFormat : Integer;
begin
 FillChar (pfd, SizeOf (pfd), 0);
 nPixelFormat := ChoosePixelFormat (hdc, @pfd);
 SetPixelFormat (hdc, nPixelFormat, @pfd);
end;

Как сделать так, чтобы все что находится после procedure SetDCPixelFormat ( hdc : HDC );
При нажатии скажем на кнопку, сохранялось в текстовый документ по указанной деректории.
Т.е -

 var
 pfd : TPixelFormatDescriptor;
 nPixelFormat : Integer;
begin
 FillChar (pfd, SizeOf (pfd), 0);
 nPixelFormat := ChoosePixelFormat (hdc, @pfd);
 SetPixelFormat (hdc, nPixelFormat, @pfd);
end;

записывается в текстовый документ.

Второй вопрос:

Как из уже созданного ранее тестового документа с уже вынесенным в него выше указанного кода.
Внести в уже после procedure SetDCPixelFormat ( hdc : HDC ); Опять же для примера взял процедуру.

Возможно будет понятней, делаю небольшой 3D движок. Пытаюсь сделать так чтобы созданный в левел редакторе код, теесть где находятся обьекты, их размер, и ТД. Сохранялось в текстовы документ, и потом уже в другая программа брала эту информацию.

[Пепел Феникса]

ищите готовые скриптовые движки, например PaxCompiler(если не ошибаюсь)

[stalker1995s]

Боюсь мне это не подойдет, буду ждать и надеится.

[Пепел Феникса]

именно это вам и подойдет, или подобное(загрузили з файла скрипт и выполнили).
а иначе никак, Делфи компилируемый язык, динамически изменять код не умеет.

[stalker1995s]

Был бы рад его использовать, но не знаю как, если вы знаете расскажите пожалуйста, буду очень признателен.

[Пепел Феникса]

с PaxCompiler есть примеры.
и справка там есть http://www.paxcompiler.com/

[artemavd]

Он бесплатен? Платные только исходники?

[Serge_Bliznykov]

Он бесплатен? Платные только исходники?

насколько я знаю - нет, не бесплатен! Это шароварный продукт!

Кстати, автор продукта Барановский Александр проживающий в городе Донецке ныне самостийной Украины - можете списаться с ним по мылу и пообщаться.
Он уж точно в курсе!

p.s. забавный (полезный) комментарий - сравнение PaxCompiler и FastScript - ТУТ