FindNext (role)
De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>function FindNext(const iExpression:string; iArgs:Array of variant; iFromIndex:Integer):Integer;</source> Cette fonction retourne l'index de l'objet su… ») |
|||
| Ligne 23 : | Ligne 23 : | ||
<source lang='delphi'> | <source lang='delphi'> | ||
| − | function doFindNext(const ACaption,BCode:string; iFrom:Integer):Boolean; | + | function doFindNext(const ACaption,BCode:string;iFrom:Integer):Boolean; |
| − | var instA:ClassA; | + | var instA:ClassA; indx:Integer; |
begin | begin | ||
instA := ClassA.Find('Caption=%1','',true,[ACaption]); | instA := ClassA.Find('Caption=%1','',true,[ACaption]); | ||
Result := Assigned(instA); | Result := Assigned(instA); | ||
if not Result then Exit; | if not Result then Exit; | ||
| − | Result := instA.listB.FindNext(''unCodeB=%1'',[BCode], | + | 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; | end; | ||
Version 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;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
