AJOUTER UN SCRIPTING SIMPLE CLAIRE ET EFFICACE A VOTRE APPLICATION DELPHI !

exemple de script avec un tableau contenant un mélange de chaine et de valeur

	u[0]:="Ligne 1 du tableau"
	u[1]:="Deuxiemme ligne du tableau"
	u[2]:=2
	showmsg(u[2])

exemple avec accées aux composant
        memo1.lines.add("petit teste");

**22/10/2007**
Pour permettre au script d'acceder aux composants contenu dans la fiche vous devrez creer 3 fonction :

-1 pour la lecture des champs et dont la déclaration est la suivante : VotreMethodeGet(sfield:string;param:TVariantArray):variant;
sfield : contient le nom complet du champ
param : est un tableau de variant contenant tout les parametres.
ex :
 dans le script "x := monobjet.tableau[0].line[5].cell[1,2];"
 lors de l'apelle sfield vaudra "monobjet.tableau.line.cell" et param = [0,5,1,2]

function VotreFiche.VotreMethodeGet(sfield:string;param:TVariantArray):variant;
begin
  if sfield='self.alphablend' then result := AlphaBlend else
  if sfield='self.alphablendvalue' then result := AlphaBlendValue else
  if sfield='self.caption' then result := Caption else
  if sfield='self.left' then result := left else
  if sfield='self.top' then result := top else
  if sfield='memo1.lines.count' then result := memo1.lines.Count else
  if sfield='memo1.lines.names' then result := memo1.lines.Names[param[0]] else
  if sfield='memo1.lines.text' then result := memo1.lines.Text else
  if sfield='memo1.lines' then result := memo1.lines[param[0]] else
  if sfield='memo1.align' then result := memo1.Align else
  if sfield='stg.cells' then result := stg.Cells[param[0],param[1]];
end;

-2 pour l'ecriture des champs et dont la déclaration est la suivante : VotreMethodeSet(sfield:string;param:TVariantArray;value:variant);
sfield : contient le nom complet du champ
param : est un tableau de variant contenant tout les parametres.
value : est variant contenant la valeur a affecter.
ex :
 dans le script "monobjet.tableau[0].line[5].cell[1,2] := 125;"
 lors de l'apelle sfield vaudra "monobjet.tableau.line.cell", param = [0,5,1,2] et value = 125

procedure VotreFiche.VotreMethodeSet(sfield:string;param:TVariantArray;value:variant);
begin
  if sfield='self.alphablend' then AlphaBlend:=value else
  if sfield='self.alphablendvalue' then AlphaBlendValue:=value else
  if sfield='self.caption' then Caption:=value else
  if sfield='self.left' then left:=value else
  if sfield='self.top' then top:=value else
  if sfield='memo1.color' then memo1.Color := value else
  if sfield='memo1.lines.text' then memo1.lines.Text := value else
  if sfield='memo1.lines' then memo1.lines[param[0]] := value else
  if sfield='memo1.align' then memo1.Align := value else
  if sfield='stg.cells' then stg.Cells[param[0],param[1]]:=value;
end;


-3 pour l'appelle de méthode et dont la déclaration est la suivante : VotreMethodeMethode(sname:string;param:TVariantArray):variant;
sname : contient le nom complet de la méthode
param : est un tableau de variant contenant tout les parametres.
result : est variant contenant le résultat de la méthode si il y en a un.
ex :
 dans le script "memo1.lines.add("125");"
 lors de l'apelle sname vaudra "memo1.line.add", param = [125]


function VotreFiche.VotreMethodeMethode(sname:string;param:TVariantArray):variant;
begin
  if sname='application.processmessages' then Application.ProcessMessages else
  if sname='memo1.lines.add' then result := memo1.lines.Add(param[0]) else
  if sname='memo1.lines.indexof' then result := memo1.lines.IndexOf(param[0]) else
  if sname='memo1.lines.indexofname' then result := memo1.lines.IndexOfName(param[0]) else
  if sname='memo1.lines.delete' then memo1.lines.delete(param[0]);
end;

-enfin une fois créer faut les affecter a l'objet du script
de cette maniere
   Exec := TExecute.Create;
   with Exec do begin
     FObjetS := VotreFiche.VotreMethodeSet;
     FObjetG := VotreFiche.VotreMethodeGet;
     FObjetM := VotreFiche.VotreMethodeMethode;
   end;

Et voila vous avez accees a vos objets.

D'autre exemple sont dans le zip