FindNext (role) - Historique des versions

Syfre le 21 septembre 2012 à 14:23

2012-09-21T14:23:29Z

← Version précédente		Version du 21 septembre 2012 à 14:23
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):Boolean;
	var instA:ClassA; indx:Integer;		var instA:ClassA; indx:Integer;
	begin		begin

Syfre le 21 septembre 2012 à 14:23

2012-09-21T14:23:09Z

← Version précédente		Version du 21 septembre 2012 à 14:23
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],~~iIndex~~)<>-1;		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;

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)]]

FindNext (role) - Historique des versions

Syfre le 21 septembre 2012 à 14:23

Syfre le 21 septembre 2012 à 14:23

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

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