String's zusammenfügen mit Trennzeichen falls String nicht leer

[mleyen]

KA ob es was vorgefertiges gibt, aber lange Rede kurz gecoded:

Delphi-Quellcode:

function Combine(const Astr1, Astr2, Delim: string): string;
begin
  if (Astr1 = '') or (Astr2 = '') then
    Result := Astr1 + Astr2
  else
    Result := Astr1 + Delim + Astr2;
end;