TROUVEZ LES MOTS DE 9 LETTRES AU JEU DES «CHIFFRES ET DES LETTRES»
cs_grandvizir
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
-
19 déc. 2004 à 11:45
cs_leonard14 Messages postés 1 Date d'inscription dimanche 11 janvier 2009 Statut Membre Dernière intervention 11 janvier 2009 - 11 janv. 2009 à 09:48
cs_leonard14 Messages postés 1 Date d'inscription dimanche 11 janvier 2009 Statut Membre Dernière intervention 11 janvier 2009 - 11 janv. 2009 à 09:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/28256-trouvez-les-mots-de-9-lettres-au-jeu-des-chiffres-et-des-lettres
https://codes-sources.commentcamarche.net/source/28256-trouvez-les-mots-de-9-lettres-au-jeu-des-chiffres-et-des-lettres
11 janv. 2009 à 09:48
28 déc. 2004 à 21:34
28 déc. 2004 à 15:58
22 déc. 2004 à 13:08
19 déc. 2004 à 17:11
Et comme on est prudent, on rajoutera:
BeginUpdate;
try
...
finally
EndUpdate;
end;
On ne sait jamais.
19 déc. 2004 à 13:37
Alors pourquoi ajouter le mot clé Var ?
La classe TStrings dispose d'une méthode Exchange hautement performante pour réaliser des permutations.
Et comme ici, tu n'es pas dans la cadre d'un "banal" tableau de données, il vaut mieux utiliser cette méthode exchange.
Résultat, sur ma machine et une liste de 10000 éléments :
1- ta méthode de permutation : 3140 Msec
2- Avec la méthode Exchange : 1375 Msec
Le code utilisé :
procedure TForm1.ReverseSort(List: TStrings);
var
i: integer;
begin
with List do
begin
BeginUpdate;
for i := 0 to Count div 2 do
Exchange(i, Count - 1 - i);
EndUpdate;
end;
end;
Même sans utiliser BeginUpdate et EndUpdate, la méthode Exchange est plus performante de 30% par rapport à une routine de permutation classique.
19 déc. 2004 à 11:45
procedure ReverseSort(var Stg:TStringList);
var
x, Cnt : integer;
s : string;
begin
Cnt:=Stg.Count;
{Celle là ==>} if Stg.Count>0 then
for x:=0 to (Cnt div 2) do
begin
s:=Stg[Cnt-x-1];
Stg[Cnt-x-1]:=Stg[x];
Stg[x]:=s;
end;
end;