Discussion :

[Zhitoune]

Pour optimiser mon programme j'ai besoin d'inverser l'ordre des données (le dernier chiffre devient le premier ect) d'un tableau dynamique de manière globale sans passer par une boucle qui lis tous les éléments c'est trop long.

Merci d'avance.

[Tardiff Jean-François]

Bonjour,

Je ne sais pas comment est fait votre tableau.

Dans tout les cas vous ne devez lire que la moitié de la liste.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
For I := 0 to (Count -1) div 2 do begin
  Temp := Valuer[i];
  Valeur[I] := Valeur[Count - I];
  Valeur[Count - i] := Temp;
end;

Avec count comme nombre d'élément.

Une idée comme cela en passant.
Peut être pourriez vous simplement ajouter un flag ordre de lecture.
Dans ce cas vous n'avez pas à traiter le changement, vous vous contentez de lire de 0 à count - 1 ou de count -1 à 0.

[anapurna]

salut

tu ne pourra pas eviter la boucle par contre
se ne sera que sur la moite de indice

imagine tu as un tableau de 100 element

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
max := 100;
 
for i := 0 to round((max/2)+0.2) do 
begin
  TabFi[i]        := TabData[max-i];
  TabFi[max-i]  := TabData[i];
end;

PS : Grillé
@+ Phil

[Zhitoune]

En fait j'ai un tableau de tableau de 512*512 et je dois inverser une ligne sur deux pour que le fichier dans lequel je vais l'écrire soit lisible correctement(j'utilise un Tsreamfile). Le faire point par point c'est lent.

Peut être pourriez vous simplement ajouter un flag ordre de lecture.

Je sais pas du tout ce que c'est et j'ai rien trouvé dans ma recherche dessus. Est-ce que permettrait à mon instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

F.Writebuffer(Save_tab[i][j][0],2*length(Save_tab[0][0]));

d'écrire la ligne dans le fichier directement à l'envers??

[ShaiLeTroll]

Faudrait voir l'ensemble du programme

d'ou vient le Tableau ?
Pourquoi l'écrire à l'envers ?

Sinon, normalement l'inversion d'item dans un tableau c'est rapide, j'aurais fait le même algo que Tardiff Jean-François, avec juste la moitié de parcours...

[Zhitoune]

en fait c'est un tableau d'image 512*512 et une ligne sur deux de chaque image a était enregistré à l'envers ( et ca j'y peux rien) donc si j'enregistre le tableau tel quel, lors de la lecture on voit l'image et sa réflection mélangé. Et comme j'ai parfois besoin d'enregistrer une centaine d'image... ca traine.

[ShaiLeTroll]

Peux-tu nous fournir la fonction qui inverse actuellement ton tableau ??
tes images dans le tableau c'est des TImage, ou le binaire d'une Image ?
Et ton problème peut venir de là, si tu déplace dans le tableau le binaire, au lieu de déplacer un pointeru sur le binaire, ce n'est pas supprenant que ce soit lent, ...

Ensuite, faut bien voir qu'enregisté une centaine d'image, j'ignore la taille, mais cela peut devenir monstreux ... faut bien que le disque écrive, je m'en suis arrêté au ATA 133, mais c'est du 133 Mo/s donc en gros (disons la moitié pour le réel), si tu as 100 Images de 1.33Mo (ça fait un bitmap 24bit de 241x241) ça doit bien mettre 2s pour écrire les données, sans compter le temps de la gestion des fichiers par Windows dans la FAT, ... et vu que ton programme n'est pas tout seul, windows ne va envoyer les données que lorsqu'il a le temps de gérer les ressources pour ton programme, donc ce temps peut énormément augmenter ... mais personnellement au bureau pour écrire 133 séquence de 1Mo, dans un seul fichier, cela prend 19s (bon il y a de l'affichage ce qui est très lent, des processmessages, ...)

[Zhitoune]

Bon j'ai testé l'algo et ça marche suffisament rapidement à mon goût. donc