Perché memo.Lines usa TStrings invece di TStringList?

Question

Perché Memo.Lines utilizza la classe astratta TStrings? Perché non usa TStringList invece?

E dovrei convertirlo in TStringList prima di utilizzarlo?

Answer 1

TMemo.Lines, TListBox.Items, TComboBox.Items, ecc .; tutti sono dichiarati come TStrings. Attenzione, parlando della proprietà che è! I tipi creati internamente sono TMemoStrings, TListBoxStrings e TComboBoxStrings rispettivamente, che sono tutti discendenti di TStrings e differiscono tutti in modo di archiviazione.

E perché? Per intercambiabilità e interoperabilità. Così ogni TStrings -descendant ha le stesse proprietà, e così si può fare:

Memo1.Lines := ListBox1.Items; 

Come usare? Bene, una proprietà TStrings come TMemo.Lines funziona bene. È possibile aggiungere, eliminare, modificare, rinnovare e cancellare le stringhe (e gli oggetti) sulla proprietà, perché internamente è un TMemoStrings che implementa tutta questa interazione. Dichiarazione <> implementazione.

Ma quando si desidera un trattamento speciale, ad es. come ordinare che fornisce TStringList, quindi hai bisogno di aiuto. Non si può typecast né convertire un TMemo.Lines ad un TStringList, perché non è uno, ma invece è necessario creare un oggetto intermedio per questa elaborazione speciale:

var 
    Temp: TStringList; 
begin 
    Temp := TStringList.Create; 
    try 
    Temp.Assign(Memo1.Lines); 
    Temp.Sort; 
    Memo1.Lines.Assign(Temp); 
    finally 
    Temp.Free; 
    end; 
end;