Discussion :

[Montor]

Code :

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

1
2
3
4
       function Get_Field(Idx:Integer):Integer;
       procedure Set_Field(Idx:Integer;Value:Integer);
   public
       property Field[Idx:Integer=-1]:Integer read Get_Field write Set_Field;

La question est simple pourquoi ce code ne marche pas j'ai essayé avec:

Code :

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

1
2
3
4
       function Get_Field(Idx:Integer=-1):Integer;
       procedure Set_Field(Idx:Integer=-1;Value:Integer=-1);
   public
       property Field[Idx:Integer=-1]:Integer read Get_Field write Set_Field;

mais c'est la meme chose l'erreur pointe sur le mot write

Code :

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

[Erreur] : Types incompatibles

Merci

[Linkin]

L'erreur est au niveau du -1, tu ne peux pas avoir de valeur par défaut apparemment.

[Cl@udius]

+1

On ne peut pas préciser de valeur par défaut pour une propriété indicée.

@+

[Montor]

On ne peut pas préciser de valeur par défaut pour une propriété indicée.

Pour la lecture c'est possible

[Linkin]

Pas pour Delphi 7 (oui je sais ça commence à se faire vieillissant ).

[Montor]

Merci je vais essayer autre chose

[Montor]

j'ai redefini separement chaque champ comme un nouveau property

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    function Get_Field(Field: TBibFields):TField;
    function Get_Integer(Index: TBibFields):Integer;
    function Get_String(Index: TBibFields): string;
    ...
 public
    property ID: Integer index BibID read Get_Integer write Set_Integer;
    property Title: string index BibTitle read Get_String write Set_String;
    property Creation: TDateTime index BibCreation read Get_DateTime;
    ...

Les noms des champs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 TBibFields=(BibID,BibParent,BibNodeType,BibProperties,BibGroup,BibOrder,//IntFields
             BibTitle,BibBuf,  //StrFields
             BibParentList,BibChildsList,//TBibList
             BibCreation,BibEdit);    //DateTimeFields
const
  FieldsName:array[TBibFields]of string=(
             'BibID','BibParent','BibNodeType','BibProperties','BibGroup','BibOrder',
             'BibTitle','BibBuf',
             'BibParentList','BibChildsList',
             'BibCreation','BibEdit');

implementation

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function TBibRow.Get_Field(Field: TBibFields):TField;
begin
    result:=FExplorer.DataSet.FieldByName(FieldsName[Field]);
end;
 
function TBibRow.Get_Integer(Index:TBibFields): Integer;
begin
    result:=Get_Field(Index).AsInteger;
end;

est ce que je vais avoir des surprises avec ce code FieldsName[Field]
Merci