php implode in delphi ?

[Andi1985]

suchst du sowas ?

Delphi-Quellcode:

function Implode(sPatter : char; sArray : TStringList): string;
var
  I : integer;
  sReturn : string;
begin
  sReturn := '';
  for I := 0 to sArray.Count - 1 do
  begin
    sReturn := sReturn + sArray[I];
    if (I+1 < sArray.Count) then
    begin
      sReturn := sReturn + sPatter;
    end;
  end;
  Implode := sReturn;
end;

function Implode(sPatter : char; sArray : array of string): string;
var
  I : integer;
  sReturn : string;
begin
  sReturn := '';
  for I := 0 to Length(sArray) - 1 do
  begin
    sReturn := sReturn + sArray[I];
    if (I+1 < Length(sArray)) then
    begin
      sReturn := sReturn + sPatter;
    end;
  end;
  Implode := sReturn;
end;