[DELPHI] Se trovi funzione esegui...

[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;