FindNext (role)
De Wiki1000
Version du 21 septembre 2012 à 15:23 par Syfre (discuter | contributions)
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 |
Exemple
function doFindNext(const ACaption,BCode:string;iFrom:Integer):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