Ich würde ganz klar den Vorschlag von DeddyH (Beitrag #16) bevorzugen wenn auch mit kleinen Änderungen.
Das
Clear
wird weggelassen und der Name beginnt mit
Appendxxx.
Delphi-Quellcode:
procedure AppendTiere(const Dest: TStrings);
begin
Assert(Assigned(Dest));
Dest.BeginUpdate;
try
Dest.Add('Hund');
Dest.Add('Katze');
Dest.Add('Maus');
finally
Dest.EndUpdate;
end;
end;
Je nach Anwendungsfall kann man das
Clear
auch dazunehmen; nur dann beginnt die Prozedure mit
Fillxxx.
Wenn ich weiss, dass die Prozedure nicht mehr als 100 Einträge erzeugen wird, dann lasse ich auch
BeginUpdate
und
EndUpdate
weg.