Discussion :

[jjnoui]

Bonjour,

En exécutant l'instruction

Code :

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

result := AnsiCompareStr('A C', 'ABC');

j'obtiens result = 1 avec Lazarus 2.2.0, FPC 3.2.2 sous UBUNTU 20.4

En exécutant la même instruction
j'obtiens result = -1 avec DELPHI Sydney 10.4 sous Windows 10

Seule différence entre les 2 sources la clause uses.

Le source (Lazarus):

Code :

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

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
26
27
28
 
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
   TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;
var
  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
  result : Integer;
 
begin
  result :=AnsiCompareStr('A C', 'ABC');
  ShowMessage(InttoStr(result);
end;
 
end.

Le source (DELPHI)

Code :

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

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
26
27
 
unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  result : Integer;
 
begin
  result := AnsiCompareStr('A C', 'ABC');
  ShowMessage(InttoStr(result));
end;
 
end.

Si quelqu'un a une piste ,...Merci

[Alcatîz]

Bonjour,

Dans le code source de Lazarus, les littéraux de type chaîne de caractères sont stockés en UTF-8 (à moins d'utiliser une directive contraire). Il est donc toujours préférable d'utiliser les routines de l'unité LazUTF8 pour les opérations sur les chaînes de caractères. Ainsi, la comparaison

Code :

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

result := UTF8CompareStr('A C', 'ABC');

renvoie bien -1.

[jjnoui]

Bonjour Alcatiz.
Merci pour cette réponse rapide.
Malheureusement je ne suis pas maître du code car cette instruction fait partie du code de fpSpreadsheet (function TsWorksheet.DefaultCompareCells(ACell1, ACell2: PCell; ).
N'ayant pas trouvé d'information quant à l'usage de la fonction sort je l'ai appelée comme ceci

Code :

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

FVisual.sWorksheetGrid1.Worksheet.Sort(sortParams, 0, 0, FVisual.sWorksheetGrid1.worksheet.GetLastRowIndex {3}, FVisual.sWorksheetGrid1.worksheet.GetLastColIndex {1}) ;

Je vais quand-même mettre le problème comme résolu.
Bonne journée

[BeanzMaster]

Bonjour,

le résultat est différent avec Delphi car celui-ci utilise le code page de Windows alors que Lazarus utlise les unicodes et ne supporte pas le code page Windows. Pour que cela fonctionne comme Delphi il faut convertir les données au bon format.

[jjnoui]

@BeanzMaster
Bonjour.

Mon problème se pose car je trie une colonne contenant : un nom, un espace suivi d'un prénom.
Tout se passe comme si les espaces étaient supprimés.

Si j'ai bien compris il me faut balayer toutes les cellules de la colonne à trier pour les convertir?

Question subsidiaire :
Quel fonction utiliser pour effectuer une telle conversion ?

bonne journée

[BeanzMaster]

Il existe la fonction Utf8ToAnsi https://www.freepascal.org/docs-html...tf8toansi.html qui normalement devrait fonctionner. Mais vu que le résultat est simplement inversé, pourquoi ne pas juste inverser le libellé du sens de ton tri (technique de sioux ).

Ou juste inverser l'ordre de tes paramètres pour obtenir le résultat souhaité. Ce qui serait le plus simple amha.

[jjnoui]

@BeanzMaster


Si j'ai bien compris ta réponse => Code Page de Windows = UTF-8 alors qu'ANSI = UniCode , d'où la conversion à l'aide de UTF8toANSI ?



Pour répondre à ta proposition de 'technique de sioux' (que je n'ai d'ailleurs pas comprise ) :

Il y a un petit détail supplémentaire qui a son importance, la cellule qui contient un nom suivi d'un espace et d'un ou plusieurs prénoms) peut ressembler à :

Dupont de Nemours André, Antoine,Anselme.

Bon après midi

[jjnoui]

Bonsoir à tous

@BeanzMaster

J'ai contourné le problème en triant sur 2 clés : une avec le nom, la suivante avec le prénom.
Mais je n'ai pas testé avec des noms contenant des espaces.

Je vais donc définitivement clore ce fil pour ne pas trop dériver, mais j'en ouvre un autre avec pour titre : Problème de tri d'un worksheet dans l'environnement Ubuntu.

A bientôt