Function Explore()

Mit dieser Funktion kann man einen Datenstring mit Trennzeichen aufteilen lassen.

Diese Funktion entspricht der gleichnamigen PHP-Funktion.

Besonders für PHP und Delphi Programmierer wird diese Funktion einiges erleichtern, auch CVS und andere Texttabellen bzw. Datenstrings können somit leicht getrennt werden.

Die Funktion wird mit 2 Parametern aufgerufen:

delimiter = Trennzeichen -> erwartet ein Char
source = Datenstring mit dem Trennzeichen -> Widestring

Aufruf:

DeineStringDynArrayVariable := explore (CHAR,WIDESTRING);

Beispiel:

Ließt man den Datenstring "Peter|16|Administrator" ein mit dem Trennzeichen "|" erhält man:

TStringDynArray[0] = "Peter"
TStringDynArray[1] = "16"
TStringDynArray[2] = "Administrator"

Anforderungen:

Uses: Types.

Code:

...
uses {...} types;
...
function explode( delimiter : char ; source:widestring):TStringDynArray;
//VHPD Explore() function - © by Benjamin Salchow - http://www.vhpd.de
var
i,x,y:integer;
s1:widestring;

begin
s1 := source;
y := 0;

repeat
SetLength(result, y+1);
x := pos(delimiter,s1);

if x = 0 then
result[y]:= copy(s1,1,length(s1))
else
result[y]:= copy(s1,0,x-1);

delete(s1,1,x);
y := y + 1;
until x = 0;

end;