Spørgsmål om Functions

hmmm hvad er det for nogle funktioner du tænker på?

/ZIRON

og det kan du jo godt, du kan bare lave en:

if memo1.text = \'kørdenne\' then
  begin
    Form1.kørdenne;
end;

/ZIRON

Hvad med en combobox hvor du kalder funktionerne i en case lykke
på ItemIndex ?

Ziron, det kræver at man staver funktionen rigtigt

hvad med at skrive kode så du bare kan sige det ind i mic\'en :)

/ZIRON

ja han spurgte jo også bare ik, men jeg ville nok selv vælge den med mic\'en :)

/ZIRON

Ja det var sku\' da bedre, trot lige jeg har en unit liggende

okay det lyder godt, så dropper jeg det jeg lige er startet på...

/ZIRON

Men anyway, refpsych>

Du ved vel hvilke funktioner du har, snupen en combobox
skriv dine funktioner op under Items

på onclickeventet

Case MinCombo.ItemIndex of
  1 : Funktion1
  2 : Funktion2 osv
end

mic\'en? Hvad er det?

Det skal helst være dynamisk så hvis programmet modtager fx en liste over funktioner fra en dll kan man starte en af disse ved at skrive navnet på funktionon eller trykke på den i en combobox...

mic = microfon, han driller dig


Ja men du kan jo sagtens læse dine funktions navne dynamisk ind i en combobox

I mIRC kan man lave en dll selv og så skrive \"/dll navn.dll funktion\"
Det er det jeg vil lave...

  ComboBox1.Items.Add(  )

Og så kan du bruge ItemIndex til at kalde den pågæl funktion

Ja, men hvis jeg henter dem dynamisk hvordan ka jeg så kører dem?

kender ikke mIRC

Ja du ved vel i hvilken rækkefølge de ligger ?

Opret evt en array med de
navne som du skal kalde i dll, den kan du fylde dynamisk
og dit itemindex i comboboxen passer til array index

Ja okay....

Jeg har nogle funktioner i en combobox...

Func1
Func2
...

Jeg trykker på Func1
Trykker på en knap

Hvad skal jeg så skrive i koden for at Func1 bliver kaldt...

Måske du kan putte dem ind sådan her

for i := 1 to MaxFuncIDll do
begin
  ComboBox1.Items.Add(NavnPåFunction);
  DllArray.DllFunction[i] := \'Navnpå funktion + parametre\'
end;

og så på OnClickEventet på comboboksen har du dit itemIndex til din array

Hvad skal du skrive for at kalde din funktion i dll\'en ?

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  KaldDllFunktion(DllArray.DllFunction[ComboBox1.ItemIndex])
end;

Noget i denne stil hvis du opretter en funktion som kan kalde dine
funktioner i dll\'en ud fra den streng du gemmer i din array

Ja :) Men
for i := 1 to MaxFuncIDll do
begin
  ComboBox1.Items.Add(NavnPåFunction);
  DllArray.DllFunction[i] := \'Navnpå funktion + parametre\'
end;

Kalder jo ik fuctionerne...Jeg er med på hvordan jeg ka gemme dem men ik hvordan jeg ka klade en dynamisk funktion, for jeg ka jo ik lave fx en

Begin
  if (funcname = \'func1\') then
  Begin
  ...
  end;
end;

For navnene er jo ikke fastlagt...

\"Noget i denne stil hvis du opretter en funktion som kan kalde dine
funktioner\"

Det er den funktion jeg mangler! Det er det eneste... :)

Prøv at skriv et eksempel på hvordan du kalder en funktion i din dll

Min dll er det meningen at der ligger nogle funktioner:

Function Func1(Var1:string):String
Function Func2(Var1:string):String
...

Derud over skal der være en funktion der sender alle navnene på funktionerne i min dll til selve programmet hvor de gemme i en combo, array etc.

Jeg skal så bare ha en funktion der ka kalde funktionerne i dll\'en..

Hmm...Man ku seføli lave de if-sætninger i dll\'en, det ervel det eneste man kan?

kan du ikke lave det så du sender et nummer over i din dll
så ved du hvilken funktion der skal kaldes ?

Jow, det er vist det nemmeste... :)

Tak!
De points er da velfortjent :)

Jeg lukker her!

takker selv