Discussion :

[Okaryn]

Hello,

Dans un composant que je suis en train de développer, j'utilise cette propriété

Code :

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

1
2
FTableStats:   array of TTableStats;
property TableStats[index: integer]: TTableStats Read GetStatsTable;

La fonction privée GetStatsTable contient juste

Code :

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

Result := FTableStats[Index];

Ce tableau dynamique (FTableStats) est alimenté lors de l'appel d'une fonction publique GetTableStats() du composant.

Je souhaiterais connaître la taille du tableau TableStats dans mon programme, pour boucler sur ses éléments.

J'ai essayé Length(MonComposant.TableStats) mais Delphi le refuse, il attend un [] après la propriété, logique vu ma déclaration de propriété.

Existe-t-il un moyen de connaître la taille du tableau ou vais-je devoir créer une propriété supplémentaire à mon composant, du style TableStatsCount qui sera alimenté lors de l'appel à GetTableStats() ?

Merci

[Fabrice ROUXEL 1]

Bonjour,

Je propose de passer non pas par la propriété TableStats mais par la variable membre FTableStats.

Exemple:
je remplace le record TTableStats par un string, le principe étant là.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
  TTest = class(TObject)
  private
    FTableStats: array of string;
    procedure SetStatsTable(index: integer; const Value: string);
    function GetStatsTable(index: integer):string;
    function GetSize():integer;
  protected
  public
    constructor Create;
    property Size: Integer Read GetSize;
    property TableStats[index: integer]: string Read GetStatsTable write SetStatsTable;default;
  end;
 
var
  Form1: TForm1;
  test: TTest;
 
implementation
 
{$R *.DFM}
 
{ TTest }
 
constructor TTest.Create;
begin
  inherited Create;
end;
 
function TTest.GetSize: Integer;
begin
  Result := Length(FTableStats);
end;
 
function TTest.GetStatsTable(index: integer): string;
begin
  Result := FTableStats[Index];
end;
 
procedure TTest.SetStatsTable(index: integer; const Value: string);
begin
  SetLength(FTableStats,Length(FTableStats)+1);
  FTableStats[Index] :=  Value;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  test := ttest.create;
    ShowMessage(IntToStr(test.Size));
  test.TableStats[0] := 'coucou';
    ShowMessage(IntToStr(test.Size));
  test.TableStats[1] := 'le';
  test.TableStats[2] := 'monde';
    ShowMessage(IntToStr(test.Size));
  FreeAndNil(test);
end;
 
 
end.

@+

[Okaryn]

Merci Fabrice, mais je n'ai pas été assez explicite dans ma question, désolé.

FTableStats & GetStatsTable() sont déclarés en privés
GetTableStats() lui est public car appelé par l'utilisateur

Et j'essaie d'obtenir la longueur depuis le programme utilisant le composant, je ne peux donc pas tester la longueur de FTableStats.

Ce que tu me proposes reviens à ce que j'utilise en ultime solution, en utilisant une fonction plutôt qu'une propriété simple Mais je voudrais éviter d'avoir une tonne de propriétés et fonction.

Par contre, je vais utiliser comem toi la fonction, au moins je suis sur qu'il n'y aura pas d'erreur d'alimentation de la propriété comme ça.

Voici la partie de code complète de ce que j'utilise :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Type
  TTableStats = record
    CatalogName  : string;
    SchemaName:  string;
    TableName:   string;
    NonUnique:   boolean;
    IndexQualifier : string;
    IndexName: string;
    StatsType: SmallInt;
    OrdinalPosition : smallint;
    ColumnName:   string;
    AscendingSort : Boolean;
    Cardinality : Integer;
    Pages : Integer;
    FilterCondition: string;
  end;
 
private
 
    FTableStats:   array of TTableStats;
    function GetStatsTable(Index: integer): TTableStats;
 
public
 
    function GetTableStats(sTableName : String; TypeIndex : Integer): boolean;
    function GetTableStatsSize : Integer;
 
implementation
 
function TOdbcConnexion.GetTableStatsSize : Integer;
begin
  Result := Length(FTablestats);
end;
 
  // Stats des tables
function TOdbcConnexion.GetTableStats(sTableName : String; TypeIndex : Integer): boolean;
var
  OdbcStmt: SQLHANDLE;
  I: integer;
  ResultCode: SQLReturn;
 
  function GetString(ColumnNumber: integer): string;
  var
    iRet:    integer;
    sRetour: array[0..64000] of char;
  begin
    Result := '';
    if SQLSUCCEEDED(SQLGetData(OdbcStmt, ColumnNumber, SQL_C_CHAR,
      @sRetour[0], sizeof(sRetour), iRet)) then
      Result := Copy(sRetour, 1, min(sizeof(sRetour), iRet));
  end;
 
  function GetInteger(ColumnNumber: integer): integer;
var
  iRet: integer;
begin
  Result := 0;
  iRet   := SizeOf(integer);
  if not(SQLSUCCEEDED(SQLGetData(OdbcStmt, ColumnNumber, SQL_C_SLONG, @Result, 0, iRet))) then
    Result := 0;
end;
 
begin
  SetLength(FTableStats,0);
  if not (FIsConnect) then
  begin
    FErrorMessage := cOdbc_No_Execute;
    Result := False;
    Exit;
  end;
  SQLAllocHandle(SQL_HANDLE_STMT, fHdbc, OdbcStmt);
  FCnxResultCode := SQLStatistics(OdbcStmt, nil, 0, nil, 0, PAnsichar(sTableName),
    Length(sTableName), TypeIndex, SQL_ENSURE);
  FErrorMessage := GetErrorMessage(SQL_HANDLE_DBC, FHDbc, FCnxResultCode);
  Result := FErrorMessage = '';
  if not Result then
  begin
    SQLFreeHandle(SQL_HANDLE_STMT, OdbcStmt);
    Exit;
  end;
  I := 0;
  ResultCode := SqlFetch(OdbcStmt);
  while SQLSUCCEEDED(ResultCode) do
  begin
    Inc(I);
    SetLength(FTablestats, I);
    with FTableStats[I - 1] do
    begin
    CatalogName  := GetString(1);
    SchemaName:=  GetString(2);
    TableName:=   GetString(3);
    NonUnique:=   GetString(4) = '1';
    IndexQualifier := GetString(5);
    IndexName:= GetString(6);
    StatsType:= GetInteger(7);
    OrdinalPosition := GetInteger(8);
    ColumnName := GetString(9);
    AscendingSort := GetString(10) = 'A';
    Cardinality := GetInteger(11);
    Pages := GetInteger(12);
    FilterCondition:= GetString(13);
    end;
    ResultCode := SqlFetch(OdbcStmt);
  end;
  SQLFreeHandle(SQL_HANDLE_STMT, OdbcStmt);
end;
 
 // Retourne un TTableStats
 // (privée)
function TOdbcConnexion.GetStatsTable(Index: integer): TTableStats;
begin
  Result := FTableStats[Index];
end;

[Okaryn]

Finalement, je vais garder le principe d'ajouter une fonction GetTableStatsSize(), car si moi je galère pour avoir ce résultat via l'application cliente, il sera normal que les utilisateurs de ce composants se posent le même problème.

Tant pis si cela fait des procédures en plus...

En tout cas, merci pour l'idée de la fonction plutôt que de la propriété

[ShaiLeTroll]

C'est le même principe pour la Tlist, qui n'est en fait qu'une encapsulation sur un tableau dynamique (géré comme en D3, c'est à dire un pointeur sur une zone mémoire alloué dynamiquement ...) et fourni la propriétés Items et Count

[Okaryn]

Que veux-tu dire par là ?

J'ai essayé Moncompo.TableStats.Items.Count (et Moncompo.TableStats.Countau cas où), à chaque fois la même erreur lors de la compilation :

[Erreur] Test_Odbc.pas(99): E2029 '[' attendu(e) mais '.' trouvé(e)

[sjrd]

Ce que veut dire ShaiLeTroll, c'est que effectivement la propriété supplémentaire au suffixe Count est la méthode utilisée habituellement.

Tu peux prendre en exemple Components/ComponentCount et Controls/ControlCount. (remarque l'absence de 's' pour les xxxCount, si tu veux suivre les règles de style )

[Okaryn]

Ah oui bonne idée ça, je vais modifier le nom des fonctions pour avoir un suffixe Count au lieu de Size, ce qui est plus logique en fait

Merci de cette remarque