FindNext (role)
De Wiki1000
(Différences entre les versions)
| Ligne 23 : | Ligne 23 : | ||
<source lang='delphi'> | <source lang='delphi'> | ||
| − | function doFindNext(const ACaption,BCode:string | + | function doFindNext(const ACaption,BCode:string):Boolean; |
var instA:ClassA; indx:Integer; | var instA:ClassA; indx:Integer; | ||
begin | begin | ||
Version actuelle en date du 21 septembre 2012 à 15:23
function FindNext(const iExpression:string; iArgs:Array of variant; iFromIndex:Integer):Integer;
Cette fonction retourne l'index de l'objet suivant vérifiant une expression logique
| Result | Index du premier objet retrouvé |
| iExpression | Expression logique |
| iArgs | Argument de l'expression |
| iFromIndex | Index de début de recherche |
|
Note : Cette fonction provoque le chargement du rôle si celui-ci n'est pas chargé. |
Exemple
function doFindNext(const ACaption,BCode:string):Boolean; var instA:ClassA; indx:Integer; begin instA := ClassA.Find('Caption=%1','',true,[ACaption]); Result := Assigned(instA); if not Result then Exit; indx := instA.listB.FindFirst(''unCodeB=%1'',[BCode]); Result := indx<>-1; if not Result then Exit; indx := instA.listB.FindNext(''unCodeB=%1'',[BCode],indx); Result := indx=-1; end;
Voir aussi
