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

[DeddyH]

Meine Idee ist etwas aufwändiger:

Delphi-Quellcode:

function CSVLine(const Values: array of string; const Delimiter: string = ', ';
  BlanksAllowed: Boolean = false): string;
const
  FormatStr = '%s%s';
var
  i: integer;
  Value: string;
begin
  Result := '';
  for I := Low(Values) to High(Values) do
    begin
      Value := Values[i];
      if not BlanksAllowed then
        Value := trim(Value);
      if Value <> '' then
        Result := Result + Format(FormatStr, [Value, Delimiter]);
    end;
  if Result <> '' then
    SetLength(Result, Length(Result) - Length(Delimiter));
end;