Discussion :

[bel'hotess]

Bonjour,

Je suis une débutante sur delphi et mon TObjectList me donne du fil à retordre.

lorsque j'appele MaListe.sort(@MaMethode), on me repond bien gentillement:

[Erreur] Fichier.pas(181): Types incompatibles : 'TListSortCompare' et 'Pointer'

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
procedure TFichier.ExtraitCas1;
function CompareSeriesCase(Item1,Item2: pointer): Integer;
begin
 
  if (TSerieCase(Item1).uneCase.ligne>TSerieCase(Item2).uneCase.ligne) then
  Result:=1
  else
  if (TSerieCase(Item1).uneCase.ligne<TSerieCase(Item2).uneCase.ligne) then
  Result:=-1
  else
  if (TSerieCase(Item1).uneCase.colonne>TSerieCase(Item2).uneCase.colonne) then
  Result:=1
  else
  if (TSerieCase(Item1).uneCase.colonne<TSerieCase(Item2).uneCase.colonne) then
  Result:=-1
  else Result:=0;
 
end;
Var
   chem    : String;
 
Begin
 
  chem:='C:\Documents and Settings\.....\Mes documents\Developpement\Fichiers\Donnees.txt';
 
  series.Sort(@CompareSeriesCase);

Pour ma methode qui appele le sort

et pour l'entete

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
29
30
31
32
33
 
unit Fichier;
 
interface
 
uses CaseTab, Serie, Contnrs, Dialogs, SysUtils, Classes;
 
 
 
type
{**
type de fichier standard, pour la gestion
**}
  TFichier = class
  public
    nomF : string;         ///nom de la structure du fichier
    cheminF : string ;     ///chemin du fichier utilisé
    nomExcel : string ;    ///nom de la feuille excel
    typeF: integer;        ///type (extention) du fichier  (1:xls, 2:csv, 3:txt, 4:tab)
    structF:integer;       ///structure du fichier
    caseLibelle: TCase;    /// case pour verification du fichier
    series : TObjectList;  /// liste des serie du fichier
    periodicite:integer;   /// periodicité des série du fichier
    function AjoutSerie(uneSerie: TSerie): integer;
    procedure Parametrage(nomFichier : string; cheminFichier: string; nomFeuilleExcel: string; typeExtentionFichier: integer; typeStructureFichier: integer; periodFichier:integer);
    constructor Create;overload;
    constructor Create(fich:TFichier); overload;
    procedure Affiche;
    procedure AfficheListe;
    procedure ExtraitDonnees;
    procedure ExtraitCas1;
 
end;

Quelqu'un aurais une idée??

j'ai essayé plusieurs methodes dites dans des forums et des tuto mais ca me resiste...

[Bleys]

Bonjour,


Je ne sais pas du tout si ce que je vais te dire fonctionne mais essaye tout simplement sans mettre le @ dans le .Sort

[bel'hotess]

hé non ça ne marche pas la même erreur quand je fait compare:=@MaMethode;

en tout cas merci de la rapidité de la réponse

[Bleys]

Je viens de mettre à jour : en gros fais ça :

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
procedure TFichier.ExtraitCas1;
function CompareSeriesCase(Item1,Item2: pointer): Integer;
begin
 
  if (TSerieCase(Item1).uneCase.ligne>TSerieCase(Item2).uneCase.ligne) then
  Result:=1
  else
  if (TSerieCase(Item1).uneCase.ligne<TSerieCase(Item2).uneCase.ligne) then
  Result:=-1
  else
  if (TSerieCase(Item1).uneCase.colonne>TSerieCase(Item2).uneCase.colonne) then
  Result:=1
  else
  if (TSerieCase(Item1).uneCase.colonne<TSerieCase(Item2).uneCase.colonne) then
  Result:=-1
  else Result:=0;
 
end;
Var
   chem    : String;
 
Begin
 
  chem:='C:\Documents and Settings\.....\Mes documents\Developpement\Fichiers\Donnees.txt';
 
  series.Sort(CompareSeriesCase);

Tout simplement en fait (regarde la dernière ligne)

[bel'hotess]

ok merci.
j'ai du en plus sortir ma fonction de ma methode.

j'avais utilisé cette solution a un moment et ça n'avait pas fonctionné. Entre temps j'ai fait des modifs, et je ne suis pas revenu dessus.

Mais ça fonctionne merci beaucoup...