« FindNext (role) » : différence 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… ») |
Aucun résumé des modifications |
||
| 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 à 14:23
<source lang='delphi'>function FindNext(const iExpression:string; iArgs:Array of variant; iFromIndex:Integer):Integer;</source>
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 <source lang='delphi'>
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;
</source>
Voir aussi
{{#if:Rôles (tech)|
{{#if:Rôles (tech)|— Rôles (tech) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}