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

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

Запись процедуры или функции в файл. [D7, WinXP]

Страницы:   < 1 2 >

Bios_ ©   (2005-08-11 14:27:00) 

Кодеры. Как записать процедуру или функцию в файл? Очень нужно,
заранее спасибо!

---

Digitman   (2005-08-11 15:28:00) [21]

> Bios_   (11.08.05 15:18) [5]


в таком случае потенциальное хныканье, мол, "не работает" при коде отличном от А + В, будет расцениваться известным образом.

---

Bios_   (2005-08-11 15:18:00) [22]

>>begin...end
Спасибо! У меня все получилось!

---

begin...end   (2005-08-11 14:51:00) [23]

function Func(A, B: Integer): Integer;
begin
 Result := A + B
end;

procedure Proc;
begin
end;

...

// Сохранение Func

procedure TForm1.btnSaveClick(Sender: TObject);
var
 L: Cardinal;
begin
 L := Cardinal(@Proc) - Cardinal(@Func);
 with TFileStream.Create('c:\File.ext', fmCreate) do
   try
     Write(L, sizeof(L));
     Write(Func, L)
   finally
     Free
   end
end;

// Загрузка Func

procedure TForm1.btnLoadClick(Sender: TObject);
type
 MyFunc = function(A, B: Integer): Integer;
var
 L: Cardinal;
 P: Pointer;
begin
 with TFileStream.Create('c:\File.ext', fmOpenRead) do
   try
     Read(L, sizeof(L));
     GetMem(P, L);
     try
       Read(P^, L);
       L := MyFunc(P)(3, 5);
       ShowMessage(IntToStr(L))
     finally
       FreeMem(P)
     end
   finally
     Free
   end
end

:-)

---

Rule   (2005-08-11 14:47:00) [24]

чегото я не понял, неужели опять сессия :-)

---

Digitman   (2005-08-11 14:45:00) [25]

запусти NotePad.exe

напиши в открывшемся окне для редактирования след.текст :

procedure MyDummyProc;
begin
end;

сохрани написанное в файл с указанным тобой именем.
все ! задача в приведенной формулировке решена.

---

Leonid Troyanovsky   (2005-08-11 14:39:00) [26]

> Bios_   (11.08.05 14:27)  
> Кодеры. Как записать процедуру или функцию в файл? Очень


Compile project. {Program|Library}

--
Regards, LVT.

---

Страницы:   < 1 2 >

Наверх