function Explode(const Separator, S: string; Limit: Integer = 0): TArray;var SepLen : Integer; F, P : PChar; ALen, Index : Integer;begin SetLength(Result, 0); if (S = '') or (Limit < 0) then Exit; if Separator = '' then begin SetLength(Result, 1); Re