Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi php implode in delphi ? (https://www.delphipraxis.net/108369-php-implode-delphi.html)

agm65 12. Feb 2008 15:36


php implode in delphi ?
 
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 12. Feb 2008 15:45

Re: php implode in delphi ?
 
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 12. Feb 2008 16:02

Re: php implode in delphi ?
 
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 13. Feb 2008 11:19

Re: php implode in delphi ?
 
danke euch


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz