FindNext (role) - Historique des versions

Syfre le 21 septembre 2012 à 14:23

2012-09-21T14:23:29Z

Syfre le 21 septembre 2012 à 14:23

2012-09-21T14:23:09Z

Syfre : Page créée avec « function FindNext(const iExpression:string; iArgs:Array of variant; iFromIndex:Integer):Integer; Cette fonction retourne l'index de l'objet su… »

2012-09-21T14:19:52Z

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… »

Nouvelle page

<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

{|class="wikitable"
|-
|Result
|Index du premier objet retrouvé
|-
|iExpression
|Expression logique
|-
|iArgs
|Argument de l'expression
|-
|iFromIndex
|Index de début de recherche
|}

{{info|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;
begin
instA := ClassA.Find('Caption=%1','',true,[ACaption]);
Result := Assigned(instA);
if not Result then Exit;
Result := instA.listB.FindNext(''unCodeB=%1'',[BCode],iIndex)<>-1;
end;

</source>

Voir aussi

*[[FindFirst (role)|FindFirst]]

{{Footer|Rôles (tech)}}
[[category:Rôles (tech)]]

@@ Ligne 23 : / Ligne 23 : @@
 <source lang='delphi'>
-function doFindNext(const ACaption,BCode:string;iFrom:Integer):Boolean;
+function doFindNext(const ACaption,BCode:string):Boolean;
 var instA:ClassA; indx:Integer;
 begin

@@ Ligne 23 : / Ligne 23 : @@
 <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
    instA := ClassA.Find('Caption=%1','',true,[ACaption]);
    Result := Assigned(instA);
    if not Result then Exit;
-   Result := instA.listB.FindNext(''unCodeB=%1'',[BCode],iIndex)<>-1;
+   indx := instA.listB.FindFirst(''unCodeB=%1'',[BCode]);
 end;