Perché le variabili sono dichiarate come TStrings e create come TStringList?

Question

Perché le variabili sono dichiarate come TStrings e create come TStringList?

ad esempio: la var sl è dichiarato come TStrings ma creata come TStringList

var 
    sl : TStrings; 
begin 
    sl := TStringList.Create; 

    // add string values... 
    sl.Add('Delphi'); 
    sl.Add('2.01'); 

    // get string value using its index 
    // sl.Strings(0) will return 
    // 'Delphi' 
    MessageDlg(
    sl.Strings[ 0 ], 
    mtInformation, [mbOk], 0); 

    sl.Free; 
end; 

Answer 1

Per la mia mente che è piuttosto inutile anche se del tutto innocuo. Potresti benissimo dichiarare sl come TStringList e lo farei sempre in questo modo. Per un lettore del codice rende più facile capire la lista delle variabili locali.

In questo codice viene sempre assegnato sl un'istanza TStringList e quindi non c'è nulla da guadagnare da dichiarare sl di avere il tipo di classe di base di TStrings. Tuttavia, se si dispone di un codice che ha assegnato una varietà di diversi tipi di discendenti alla variabile, sarebbe opportuno dichiararlo come TStrings.

Le situazioni in cui è possibile dichiarare una variabile di tipo TStrings si verificano in genere quando il codice non creava esplicitamente l'istanza. Ad esempio, un metodo di utilità che ha ricevuto un elenco di stringhe come parametro sarebbe più utile se accettasse un valore TStrings da quando qualsiasi discendente potrebbe essere passato ad esso. Ecco un semplice esempio:

procedure PrintToStdOut(Strings: TStrings); 
var 
    Item: string; 
begin 
    for Item in Strings do 
    Writeln(Item); 
end; 

Chiaramente questo è di molto maggiore utilità quando il parametro è dichiarato TStrings piuttosto che TStringList.

Tuttavia, il codice nella domanda non è di questo tipo e credo che sarebbe migliorato così leggermente se sl è stato dichiarato di tipo TStringList.

Answer 2

un TStringList è un'implementazione concreta della TStrings classe astratta

Answer 3

TStrings è un tipo astratto che non ha tutti i metodi implementati.

TStringList è un discendente di TStrings e implementa tutte le funzioni. Nel codice, è possibile dichiarare la variabile anche come TStringList.

Tuttavia, ad es. su definizioni di funzioni ha senso accettare un parametro invece di un TStringListTStrings:

procedure doSomething(lst: TStrings); 

In questo modo la funzione di lavorare con tutte le implementazioni di TStrings, non solo TStringList.

Answer 4

Perché in questo modo si potrebbe mettere un altro TStrings discendente nella variabile SL (probabilmente sarei chiamare che Strings, non SL).

Nel tuo caso, questo è discutibile, poiché la logica intorno a SL contiene la creazione di uno TStringList e nessuna assegnazione esterna o analisi dei parametri.

Tuttavia, se si separa la logica dall'assegnazione, è possibile trarre vantaggio dall'utilizzo di qualsiasi discendente TStrings.

Per esempio, un TMemoy.Lines, TListBox.Items, TComboBox.Items, ecc
Dall'esterno sembra che sono TStrings, ma internamente non usano un TStringList ma loro discendente.

Alcuni esempi di classi che scendono dal TStrings:

source\DUnit\Contrib\DUnitWizard\Source\DelphiExperts\Common\XP_OTAEditorUtils.pas: 
    TXPEditorStrings = class(TStrings) 
source\fmx\FMX.ListBox.pas: 
     TListBoxStrings = class(TStrings) 
source\fmx\FMX.Memo.pas: 
    TMemoLines = class(TStrings) 
source\rtl\common\System.Classes.pas: 
    TStringList = class(TStrings) 
source\vcl\Vcl.ComCtrls.pas: 
    TTabStrings = class(TStrings) 
    TTreeStrings = class(TStrings) 
    TRichEditStrings = class(TStrings) 
source\vcl\Vcl.ExtCtrls.pas: 
    TPageAccess = class(TStrings) 
    THeaderStrings = class(TStrings) 
source\vcl\Vcl.Grids.pas: 
    TStringGridStrings = class(TStrings) 
    TStringSparseList = class(TStrings) 
source\vcl\Vcl.Outline.pas: 
    TOutlineStrings = class(TStrings) 
source\vcl\Vcl.StdCtrls.pas: 
    TCustomComboBoxStrings = class(TStrings) 
    TMemoStrings = class(TStrings) 
    TListBoxStrings = class(TStrings) 
source\vcl\Vcl.TabNotBk.pas: 
    TTabPageAccess = class(TStrings)