Comparaison de tableaux

Version imprimable

Bonjour !

En travaillant sur le sujet du défi 2012, j'ai rencontré une erreur de compilation que je ne m'explique pas très bien.

Voici un exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 program Exemple; {$IfDef VirtualPascal} {&PmType Vio} {$Else} {$IfnDef Ver70}{$AppType Console}{$EndIf} {$EndIf} type t1 = array[0..1] of integer; t2 = array[0..2] of t1; const c1: t1 = (2,3); c2: t1 = (4,0); var v: t2; begin v[0] := c1; if v[0] = c1 then { erreur 41 } WriteLn('RAS'); end.
Comment se fait-il qu'on puisse attribuer la valeur, mais pas la tester ?

07/10/2012, 13h04
Alcatîz
Bonjour,

En Pascal, la comparaison de deux tableaux ne peut se faire avec l'opérateur "=".

Il y a diverses manières de contourner le problème, la seule limite étant l'imagination.
Par exemple :
Code:

1 2 3 Uses {...}, Strings; if StrLComp(pChar(@v[0]),pChar(@c1),SizeOf(t1)) = 0 then
(tordu mais performant)

;)
07/10/2012, 16h31
Roland Chastain

Très instructif. Merci Alcatîz ! :)
08/10/2012, 09h52
Paul TOTH

CompareMem() me semble plus indiqué :)
08/10/2012, 20h48
Roland Chastain

Merci Paul pour la réponse. Cela fait une corde de plus à mon arc. :)

Code:

if SysUtils.CompareMem(@v[0], @c1, SizeOf(t1)) then
08/10/2012, 22h13
Alcatîz

Le code Assembleur généré par les deux fonctions est pratiquement identique. :)

P.S. Je n'arrive pas à obtenir l'output Assembleur avec l'éditeur natif de Free Pascal, comment fait-on ?
09/10/2012, 05h19
Paul TOTH

Citation:

Envoyé par Alcatîz

Le code Assembleur généré par les deux fonctions est pratiquement identique. :)

P.S. Je n'arrive pas à obtenir l'output Assembleur avec l'éditeur natif de Free Pascal, comment fait-on ?

sous Delphi 6, StrLComp utilise SCASB alors que CompareMem commence par un "REPE CMPSD" 32bits, c'est supposé être plus rapide :)

et avec Delphi >= 2009 il vaut mieux utiliser des pointeurs que des PChar à mon avis ;)

je viens de regarder sous XE2, StrLComp en version PChar utilise des PWideChar, ce qui double la paramètre MaxLen ! ... quand au code CompareMem il est très surprenant, je ne suis pas assez calé en Assembleur pour avoir une idée objective sur ce code mais il me semble anormalement complexe.
10/12/2012, 21h13
Roland Chastain
Citation:

Envoyé par Alcatîz

P.S. Je n'arrive pas à obtenir l'output Assembleur avec l'éditeur natif de Free Pascal, comment fait-on ?

Je viens de trouver une manière de le faire avec la ligne de commande. Voici mon fichier .bat :
Code:

1 2 3 4 5 6 @echo off rem Compilation FreePascal set c="C:\FPC\bin\i386-win32\ppc386.exe" set f="factorielle.pas" %c% -a %f% pause
Soit dit en passant, j'ai aussi trouvé comment enlever le dessin du bureau : il suffit de supprimer le fichier fp.ans. :)