función split en delphi

[andres1569]

Hola:

No me suena una función con ese nombre, pero imagino que sería algo así (dices que devuelve un array, supongo que te refieres a un string, que es un array of char):

function DelphiSplit (const s: string; SepChr: Char) : String;
var
  p : Integer;
begin
  p := Pos (SepChr, s);
  if p <> 0 then result := Copy (s, p + 1, Length(s) - p)
  else result := s;
end;

Saludos