Discussion :

[peter27x]

Dans le F1 sur TStringList on trouve ça:

Dans Delphi, Strings est la propriété par défaut des objets liste de chaînes.Il est donc possible d'omettre l'identificateur Strings pour accéder à la propriété Strings d'un objet liste de chaînes.Par exemple,les deux lignes de code suivantes sont correctes et font la même chose:
MaStringList.Strings[0]:='Voici la première chaîne';
MaStringList[0]:='Voici la première chaîne';

Alors, me demandant comment était définie une propriété par défait je suis allé voir le code de cette classe, je ne vois pas où on définit cette propriété par défaut:

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
 
{ TStringList class }
 
  TStringList = class;
 
  PStringItem = ^TStringItem;
  TStringItem = record
    FString: string;
    FObject: TObject;
  end;
 
  PStringItemList = ^TStringItemList;
  TStringItemList = array[0..MaxListSize] of TStringItem;
  TStringListSortCompare = function(List: TStringList; Index1, Index2: Integer): Integer;
 
TStringList = class(TStrings)
  private
    FList: PStringItemList;
    FCount: Integer;
    FCapacity: Integer;
    FSorted: Boolean;
    FDuplicates: TDuplicates;
    FCaseSensitive: Boolean;
    FOnChange: TNotifyEvent;
    FOnChanging: TNotifyEvent;
    procedure ExchangeItems(Index1, Index2: Integer);
    procedure Grow;
    procedure QuickSort(L, R: Integer; SCompare: TStringListSortCompare);
    procedure SetSorted(Value: Boolean);
    procedure SetCaseSensitive(const Value: Boolean);
  protected
    procedure Changed; virtual;
    procedure Changing; virtual;
    function Get(Index: Integer): string; override;
    function GetCapacity: Integer; override;
    function GetCount: Integer; override;
    function GetObject(Index: Integer): TObject; override;
    procedure Put(Index: Integer; const S: string); override;
    procedure PutObject(Index: Integer; AObject: TObject); override;
    procedure SetCapacity(NewCapacity: Integer); override;
    procedure SetUpdateState(Updating: Boolean); override;
    function CompareStrings(const S1, S2: string): Integer; override;
    procedure InsertItem(Index: Integer; const S: string; AObject: TObject); virtual;
  public
    destructor Destroy; override;
    function Add(const S: string): Integer; override;
    function AddObject(const S: string; AObject: TObject): Integer; override;
    procedure Clear; override;
    procedure Delete(Index: Integer); override;
    procedure Exchange(Index1, Index2: Integer); override;
    function Find(const S: string; var Index: Integer): Boolean; virtual;
    function IndexOf(const S: string): Integer; override;
    procedure Insert(Index: Integer; const S: string); override;
    procedure InsertObject(Index: Integer; const S: string;
      AObject: TObject); override;
    procedure Sort; virtual;
    procedure CustomSort(Compare: TStringListSortCompare); virtual;
    property Duplicates: TDuplicates read FDuplicates write FDuplicates;
    property Sorted: Boolean read FSorted write SetSorted;
    property CaseSensitive: Boolean read FCaseSensitive write SetCaseSensitive;
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
    property OnChanging: TNotifyEvent read FOnChanging write FOnChanging;
  end;

Merci à vous.

[Aka Guymelef]

Bonjour,

Parce que la propriété Strings est définit dans la classe parent TStrings, c'est pour ça que tu ne peux pas la voir ici Faut remonter d'un cran.

[peter27x]

Bonjour,

Parce que la propriété Strings est définit dans la classe parent TStrings, c'est pour ça que tu ne peux pas la voir ici Faut remonter d'un cran.

Oui je viens de le voir ! La file est déjà marquée résolue du coup !

Code :

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

1
2
3
4
 
TStrings = class(TPersistent)
...
property Strings[Index: Integer]: string read Get write Put; default;