Mega Code Archive
Split a string very fast using delimiters [function]
<![CDATA[
{
VERY fast split function
this function returns part of a string based on
constant defineable delimiters, such as ";". So
SPLIT('this is a test ',' ',3) = 'is' or
SPLIT('data;another;yet;again;more;',';',4) = 'yet'
Split function shifts index integer by two to
be compatible with commonly used PD split function
gpl 2004 / Juhani Suhonen
}
function split(input: string; schar: Char; s: Integer): string;
var
c: array of Integer;
b, t: Integer;
begin
Dec(s, 2); // for compatibility with very old & slow split function
t := 0; // variable T needs to be initialized...
setlength(c, Length(input));
for b := 0 to pred(High(c)) do
begin
c[b + 1] := posex(schar, input, succ(c[b]));
// BREAK LOOP if posex looped (position before previous)
// or wanted position reached..
if (c[b + 1] < c[b]) or (s < t) then break
else
Inc(t);
end;
Result := Copy(input, succ(c[s]), pred(c[s + 1] - c[s]));
end;
]]>