Pobieranie kolejnego elementu ze stringa na podstawie separatora

Procedura zwraca kolejną część stringa oddzieloną od siebie znakiem seperatora. Przykład:
Jeśli mamy string: s=’Ala ma kota’;
to wywołanie GetSubstring(s,’ ’) będzie kolejno zwracało:
pierwsze wywołanie: ala
drugie wywołanie: ma
trzecie wywołanie: kota

UWAGA: string wejściowy ulega zmianie !

function GetSubstring(var inStr:string;const separator:string):string

var

  t: integer;

begin

  t := Pos(separator, inStr);

  if t <=0 then t := Length(inStr)+1;

  Result := Copy(inStr, 1, t-1);

  inStr := Copy(inStr, t+1, Length(inStr));

end;

function GetSubstring(var inStr:string;const separator:string):string

var

t: integer;

begin

t := Pos(separator, inStr);

if t <=0 then t := Length(inStr)+1;

Result := Copy(inStr, 1, t-1);

inStr := Copy(inStr, t+1, Length(inStr));

end;

Autor: Toster