Ja, es ist weniger geworden.
Nein, es gibt keine schöne Lösung im Quellcode, außer die Strings auszulagern ... z.B. in die Ressourcen oder in andere Prozeduren.
Delphi-Quellcode:
procedure blablaA(Result: TStrings);
begin
...
Result.Add('blabla');
Result.Add('blabla');
Result.Add('blabla');
...
end;
procedure blablaB(Result: TStrings);
begin
...
Result.Add('blabla');
Result.Add('blabla');
Result.Add('blabla');
...
end;
function blabla: TStrings
begin
...
blablaA(Result);
blablaB(Result);
...
end;
PS:
http://www.delphipraxis.net/150786-d...enden-sie.html
http://www.delphipraxis.net/127145-l...-begrenzt.html