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

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

Как запустить процедуру [D7, XP]

SKIPtr ©   (2007-05-12 16:23:00) 

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

---

SKIPtr   (2007-05-13 10:27:00) [1]

Этот вариант для меня хороший

---

Leonid Troyanovsky   (2007-05-13 10:26:00) [2]

> SKIPtr   (12.05.07 18:16) [5]

> меня есть напр.  Если s = ‘MyProc’ нужно запустить процедуру
> с именем MyProc

http://rsdn.ru/Forum/Message.aspx?mid=476748&only=1

--
Regards, LVT.

---

Loginov Dmitry   (2007-05-12 23:59:00) [3]

> Как запустить процедуру, имя которой в этом файле.


Используй вот такой скелет:


unit Unit2;

interface
uses
 Classes;

type
 TProc = procedure;

procedure RegisterProc(AProc: TProc; const ProcName: string);

function ProcByName(const ProcName: string): TProc;

implementation

var
 AList: TStringList;

procedure RegisterProc(AProc: TProc; const ProcName: string);
begin
 if AList.IndexOf(ProcName) < 0 then
   AList.AddObject(ProcName, TObject(@AProc));
end;

function ProcByName(const ProcName: string): TProc;
var
 I: Integer;
begin
 I := AList.IndexOf(ProcName);
 if I >= 0 then
   Result := TProc(AList.Objects[I])
 else
   Result := nil;
end;

procedure Proc1;
begin

end;

procedure Proc2;
begin

end;

procedure Proc3;
begin

end;

initialization
 AList := TStringList.Create;

finalization
 AList.Free;
end.


Доработай его под свои нужды.

---

Anatoly Podgoretsky   (2007-05-12 22:15:00) [4]

> SKIPtr  (12.05.2007 22:00:08)  [8]

Не обязательно, if можно применять к списку, например TStringList

---

homm   (2007-05-12 22:14:00) [5]

> Получается если у меня i процедур, то надо i раз выполнить IF

Есть еше способ. Создаешь заранее хэш нужных тебе имен функций, и записываешь их вместе с точками входа. При необходимости вызвать считаешь хэш нужного тебе имени и сравниваешь с заготовленными загодя. Нашел - вперед наточку входа.

---

DVM   (2007-05-12 22:05:00) [6]

> SKIPtr   (12.05.07 22:00) [8]

case не работает со строками. Только с порядковыми типами.

---

SKIPtr   (2007-05-12 22:00:00) [7]

Получается если у меня i процедур, то надо i раз выполнить IF

---

DVM   (2007-05-12 21:56:00) [8]

> Anatoly Podgoretsky ©   (12.05.07 21:38) [6]

Чего то 2 поста из разных веток склеились вроде.

---

Anatoly Podgoretsky   (2007-05-12 21:38:00) [9]

> SKIPtr  (12.05.2007 18:16:05)  [5]

Тут IF нужен2озникновения исключения в данном случае выше, вплоть до полного зависания системы.

---

SKIPtr   (2007-05-12 18:16:00) [10]

После case идёт переменная, Что там должно быть, если у меня есть напр.  Если s = ‘MyProc’ нужно запустить процедуру с именем MyProc

---

SKIPtr   (2007-05-12 18:06:00) [11]

После case идёт переменная, Что там должно быть, если у меня есть напр.  Если s = ‘MyProc’ нужно запустить процедуру с именем MyProc

---

>>DEATH<<   (2007-05-12 16:33:00) [12]

ну к примеру через case of

---

>>DEATH<<   (2007-05-12 16:31:00) [13]

ну к примеру через case of

---

DVM   (2007-05-12 16:29:00) [14]

Сценарий кто исполнять то будет?

---

Наверх