php implode in delphi ?

[agm65]

hi leute ..gibt es in delphi eine funktion die dem php implode gleich kommt ?

danke cu ! (ich weiss wie es selber geht -> aber gibt es eine funktion dafür)

[Nuclear-Ping]

Vlt. in den JEDI-Libs oder hier in der Code-Lib. Aber von Haus aus in Delphi afaik nicht wirklich. Du könntest höchstens mit einer TStringList und deren Delimiter-Eigenschaft rumhantieren, wenn es das ist was du willst.

[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;

[agm65]

danke euch