Syfre le 25 février 2020 à 12:47

2020-02-25T12:47:15Z

← Version précédente		Version du 25 février 2020 à 12:47
Ligne 1 :		Ligne 1 :
	<source lang='delphi'>function ToString(iIndex:Integer; iCount:Integer; iPropName:string; iDoubleQuote:boolean):string</source>		<source lang='delphi'>function ToString(iIndex:Integer; iCount:Integer; iPropName:string; iDoubleQuote:boolean):string</source>

	Cette ~~procédure supprime les objets~~ de ~~la liste~~.		Cette méthode retourne une chaîne liste de valeurs.

	{\|class="wikitable"		{\|class="wikitable"

Syfre : Page créée avec « function ToString(iIndex:Integer; iCount:Integer; iPropName:string; iDoubleQuote:boolean):string Cette procédure supprime les objets de la... »

2020-02-25T12:46:23Z

Page créée avec « <source lang='delphi'>function ToString(iIndex:Integer; iCount:Integer; iPropName:string; iDoubleQuote:boolean):string</source> Cette procédure supprime les objets de la... »

Nouvelle page

<source lang='delphi'>function ToString(iIndex:Integer; iCount:Integer; iPropName:string; iDoubleQuote:boolean):string</source>

Cette procédure supprime les objets de la liste.

{|class="wikitable"
|-
|iIndex
|Index de départ
|-
|iCount
|Nombre max a retourner
|-
|iPropName
|Nom de l'attribut à sérialiser
|-
|iDoubleQuote
|Ajouter des quotes aux valeurs retourner
|}

'''Pseudo code équivalent:'''
<source lang="delphi">

function ToString(iIndex:Integer; aCount:Integer; iPropName:string; iDoubleQuote:boolean; const iSep:String=','):String;
var indx:Integer; AStr,stag:string; isOID:boolean;
begin
isOID := SameText(iPropName,'oid') or SameText(iPropname,'InstanceOID');
//
Result := ''; stag := '';
indx := iIndex;
if ACount=-1 then ACount := Count;
while (indx<Count) and (ACount>0) do
begin
if isOID
then AStr := OIDs[indx]
else AStr := SafeVarToStr(Refs[indx].GetPropAsVariant(iPropName));

if iDoubleQuote then AStr := Doublequote(AStr);

Result := Result+stag+AStr;
stag := iSep;
Inc(indx);
dec(ACount);
end;
end;

</source>

Voir aussi:

{{Footer|Listes d'objets (tech)}}
[[category:Listes d'objets]]

ToString (objectlist) - Historique des versions

Syfre le 25 février 2020 à 12:47

Syfre : Page créée avec « function ToString(iIndex:Integer; iCount:Integer; iPropName:string; iDoubleQuote:boolean):string Cette procédure supprime les objets de la... »

Syfre : Page créée avec « function ToString(iIndex:Integer; iCount:Integer; iPropName:string; iDoubleQuote:boolean):string Cette procédure supprime les objets de la... »