[DELPHI] Se trovi funzione esegui...

[morfeusflash]

procedure TForm1.Operazione(Nome:String);
var
i:integer;
begin
i:= listbox1.Items.IndexOf(Nome);
if i = -1 then showmessage('Funzione non abilitata!')
else form1....  ;
end;

Supponendo di aggiungere alla listbox un'item con il nome di ogni funzione abilita con il codice sopra dico all'utente che l'operazione richiesta su quel form non è abilitata, ma se al contrario la funzione esiste come faccio poi a richiamarla ...
Grazie a tutti!

[morfeusflash]

help me please!!!

[davide83]

Si capisce poco da ciò che hai scritto,prova a spiegarti meglio

[morfeusflash]

ESEMPIO:

FORM MDI CON TOOLBAR DI CONTROLLO
FORM CHILD CON COLLEGAMETO AD UNA TABELLA

LE FUNZUIONI ABILITATE VARIANO PER OGNI FORM CHILD MA LA TOOLBAR MDI E SEMPRE UGUALE.
SUPPONIAMO DI INSERIRE NELLA TOOLBAR 3 BOTTONI INSERISCI MODIFICA CANCELLA, MA IN UNA FORM CHILD CI SONO SOLO DUE FUNZIONALITA MODIFICA E INSERISCI.

IO PENSAVO DI CREARE UNA PROCEDURA CHE CERCASSE SE NELLA FORM CHILD CI FOSSE LA FUNZIONE INDICATA E IN TAL CASO LA ESEGUIREBBE.

[zaion]

function pippo(uno: integer):integer
begin
..
end;

se la funzione che intendi tu è una cosa tipo questa dovrebbe essere sufficiente scrivere:
pippo(5);

ma forse ho capito male la domanda. prova a spiegarti meglio.

[morfeusflash]

IL MIO PROBLEMA E' CHE IO VORREI PASSARE IL NOME DELLA FUNZIONE NELLA VARIABILE

procedure TForm1.Operazione(NomeFUNZIONE:String);
Var
i:integer;
begin
i:= listbox1.Items.IndexOf(NomeFUNZIONE);
if i = -1 then showmessage('Funzione non abilitata!')
else form1....  ;
end;

[davide83]

Originariamente inviato da morfeusflash
IL MIO PROBLEMA E' CHE IO VORREI PASSARE IL NOME DELLA FUNZIONE NELLA VARIABILE

procedure TForm1.Operazione(NomeFUNZIONE:String);
Var
i:integer;
begin
i:= listbox1.Items.IndexOf(NomeFUNZIONE);
if i = -1 then showmessage('Funzione non abilitata!')
else form1....  ;
end;

Non riesco a capire il tuo problema.
Che dati contiene la listbox1?
Quando glieli carichi?

[morfeusflash]

La listbox contiene i nomi delle funzioni abilitate esempio

item1 = inserisci
item2 = modifica

la procedure scritta sopra cerca se nella listbox c'è il nome della funzione se non lo trova dice all'utente: Ritenta sarai più fortunato! :-) altrimenti esegue la funzione.

[davide83]

la procedura operazione quando la chiami?

[morfeusflash]

procedure TForm1.Button1Click(Sender: TObject);
begin
Operazione('CANCELLA');
end;
//----------------------------------------------//
procedure TForm1.Operazione(NomeFUNZIONE:String);
Var
i:integer;
begin
i:= listbox1.Items.IndexOf(NomeFUNZIONE);
if i = -1 then showmessage('Funzione non abilitata!')
else (QUI SORGONO I MIEI DUBBI :dhò:  )  ;
end;