TStrings.Exchange
| TStrings = class (TObject) | Interface de TStrings | Exemples de TStrings |
Intervertit deux éléments de la TStrings
Syntaxe
procedure Exchange(idx1: Integer; idx2: Integer)
idx1 : index du 1er élément à intervertir
idx2 : index du 2nd élément à intervertir
Remarques
Les éléments sont indexés de 0 à Count - 1.
Exemples
var liste := TStrings.Create;
liste.Commatext := 'paul,jacques,pierre';
liste.Exchange(0,2);
Informationdlg(liste.Commatext); // Affiche 'pierre,jacques,paul'
liste.Commatext := 'paul,jacques,pierre';
liste.Exchange(0,2);
Informationdlg(liste.Commatext); // Affiche 'pierre,jacques,paul'