Funktion der kompencere for php's explode

Nu kender jeg ikke en meter til PHP, men jeg antager, at der med Explode er tale om en kommando, der klipper et stykke ud af en streng.  I delphi bruger man Copy kommandoen.

Ex:
  A := 'ABCDEF';
  B := Copy(A, 2, 3);  // Resultat: B = 'BCD'

Mht til en funktions oversigt, så har Delphi en udemærket indbygget help funktion.  Copy funktionen findes således i den sektion der omhandler "string handling routines"

explode funktionen fungere ved at en streng klippes over ved et hvis tegn eller bogstav.

$variabel = explode("+", "hej+med+dig");

der vil da komme følgende variabler $variabel[0] = "hej", $variabel[1] = "med" og $variabel[2] = "dig";

Ok, det ville jeg gøre i en loop, alá:

SourceStr := 'Hej+med+dig';
While SourceStr<>'' do 
  Begin
    DividePos := Pos('+', SourceStr); 
    If DividePos=0 Then DividePos=MaxInt;  // Handles last word in Source

    DestStr := Copy(SourceStr, 1, DividePos-1);
    SourceStr := Copy(SourceStr, DividePos+1, MaxInt);
  End;

Kunne sikkert gøres smartere...

var
  s: string;
  sl: TStringList;
  i: Integer;
begin
  s := 'hej+med+dig';
  sl := TStringList.Create;
  try
    sl.Delimiter := '+';
    sl.DelimitedText := s;
    for i := 0 to sl.Count - 1 do
      Memo1.Lines.Add(sl[i]);
  finally
    sl.Free;
  end;

D7 (måske D6?) har følgende funktion

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;

Ex:

ExtractStrings([','],[' '],PChar(Text),Memo.Lines);

Tjaa, det kunne gøre smartere! :)

Der kan man bare se - det er ikke lige den slags string handling routines jeg benytter mest....


NIP

Hov.. undskyld. Jeg ville egenlig have givet jer begge point, men jeg tror vist jeg misforstod noget. doc404 i owe you one! :D
- men tak for hjælpen