You can use this function =)
TStrings are only abstract atm so you need to use TStringList
Simba Code:
program new;
function SplitRegExprEx(Expr, Data: string): TStringArray;
var
DataArr: TStringList;
I: integer;
begin
DataArr := TStringList.Create;
try
SplitRegExpr(Expr, Data, DataArr);
SetArrayLength(Result, DataArr.Count);
for I := 0 to DataArr.Count - 1 do
Result[I] := DataArr.Strings[I];
finally
DataArr.Free;
end;
end;
var
S: TStringArray;
begin
S := SplitRegExprEx('[e|s|i]', 'Testing this little string');
WriteLn('S := ' + ToStr(S) + ';');
end.
[offtopic]Woo I'm not a chicken anymore =P[/offtopic]