DJIKSTRA EN MODE GRAPHIQUE

Commentaire de John Dogget le 09/12/2008 21:48:53

Tu pourrais aussi commenter ton code parce que franchement c'est pas évident ...
Par contre, t'oublie pas de nous coller un à propos de 3m².

C'est comme d'hab avec tes sources en fait.

Commentaire de offlake le 10/12/2008 07:06:28

Pour John Dogget
Pour les commentaires je pense que tu sais qu'est ce qu'un Canvas...etc
DOnc le code est plus Optimal que possible et je pense qu'il est plus comprehensible que les autres Codes
Oui Ta raison!!
Pour les prochaine Source je tient en compte les commentaires
Merci John Dogget
BY OFFLAKE

Commentaire de offlake le 13/12/2008 07:25:33

Un code plus Optimale c'est un code qui réalise le maximum de chose avec le minimum de ligne source
Je c que le compilateur ne tien pas compte des commentaires Né au moin un code source plus optimale remplace les commentaires!!
BY OFFLAKE

Commentaire de rt15 le 15/12/2008 14:51:58 administrateur CS

Un exemple de code plus long mais plus rapide. Copy_Memory recopie les octets un par un de la source vers la destination. C'est le code le plus simple. Copy_MemoryEx recopie par paquets de 4 octets autant que possible, sachant que c'est la taille avec laquelle les processeurs actuels sont les plus à l'aise.

Par curiosité, on peut aller voir la fonction Move (Appelée par CopyMemory) proposée par Delphi. Elle utilise le même algo que Copy_MemoryEx (4 octets d'abord, puis octets par octets pour finir). Par contre, rédigée en assembleur, elle est plus dense et probablement nettement plus rapide.

type PTByteArray = ^TByteArray;
type TCardinalArray = array[0..High(Word) div SizeOf(Cardinal)] of Cardinal;
type PTCardinalArray = ^TCardinalArray;

implementation

{$R *.dfm}

procedure Copy_Memory(const lpDest: PTByteArray; const lpSrc: PTByteArray; const nSize: Cardinal);
var
  nI: Integer;
begin
  for nI:= 0 to nSize - 1 do
    lpDest[nI]:= lpSrc[nI];
end;

procedure Copy_MemoryEx(const lpDest: PTByteArray; const lpSrc: PTByteArray; const nSize: Cardinal);
var
  lpDestCard: PTCardinalArray;
  lpSrcCard: PTCardinalArray;
  nI: Integer;
  nFirstCopyEnd: Integer;
begin
  lpDestCard:= PTCardinalArray(lpDest);
  lpSrcCard:= PTCardinalArray(lpSrc);

  for nI:= 0 to nSize div 4 - 1 do
    lpDestCard[nI]:= lpSrcCard[nI];

  nFirstCopyEnd:= (nSize div 4) * 4;

  for nI:= nFirstCopyEnd to nFirstCopyEnd + nSize mod 4 - 1 do
    lpDest[nI]:= lpSrc[nI];
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  lpSrc: String;
  lpDest: array [0..MAX_PATH] of char;
  nSize: Integer;
begin
  lpSrc:= '123';
  Copy_MemoryEx(PTByteArray(@lpDest), PTByteArray(lpSrc), length(lpSrc) + 1);
  ShowMessage(lpDest);
end;

Commentaire de rt15 le 15/12/2008 18:03:38 administrateur CS

Boh ? Il y a même pas de "Pointer".

Pas forcément très inspiré mon exemple... En plus, le code plus long est plus lent pour copier de petites zones mémoire.

Autre exemple concret : les algos de tri. Un tri à bulle fait quelques dizaines de lignes... Un quicksort, plus rapide à l'exécution, est nettement plus long à codé... Encore plus si on le dérecursifie pour gagner encore plus.