🚀 go-pugleaf

On Fri, 15 Oct 2004 10:49:18 +0300, Stefanidis Dimitris wrote:

> Class procedure Foo_ex(var aVariable:String);
...
>   s := meth.Invoke(nil, [cl, s]) as string;
This is not a function so it won't return a value.
If you wan to access var parameters you have to do something like:

 var
   ...
   params: array of TObject;
 begin
  ...
  SetLength(Params, 2);
  Params[0] := cl;
  Params[1] := 'Question';
  meth.Invoke(nil, params);
  s := Params[1] as string;

> Version 2 WinForm Object
> Class procedure Foo_ex(var aVariable:TEditBox);
TEditBox is not a Winforms component. Also why are you passing it as
var if you are not changing the reference?

> Version 2
>   s := meth.Invoke(nil, [cl, TextBox1]) as string;  <----- Exception Null 
> Refernce (aVarable in Foo_Ex is nil)
Again you return no value. Even if you did conaider the 'var'
parameter a return value it is the wrong type.

> Version 3 Vcl Objects :)
> Class procedure Foo_ex(var aVariable:TSqlConnection);
Again why are you passing this as 'var'?



> I think we cover all possiblities :) (except in assembly there is vcl form 
> insteed of FCL :) )
> Let me explain what i;m trying to do :
> I want my main application parted to dll's (assemlys);
> I want my application does not know anything about the containing of dll's 
> (not refernce) and load all dll's dynamicly when requested just by knowing 
> in string Class name, Name and dll name.
> I 'm gonna have an dll wich has all abstract objects and other dll's with 
> child classes
> In db all menu items and related dlls and classes with each menu item.
> Ufff . That's all :) What are you thing ??? is it possible ?????

Yes, this is a common way to do it. Another way might be to call a
single function each assembly and ask it to register all its menu
items etc.

-- 
Marc Rohloff [TeamB]
marc rohloff at myrealbox dot com