Спарсить строку (скопировать до и после пробела данные)

[sxcine]

Приветствую.
Искать не стал в гугле, т.к. инет через сотовый и мало денег..
Сабж - в переменной типа стринг есть данные, примерно
"0011100 ssssaaa 5".
Так же есть ещё две переменные того же типа, надо в одну скопировать "0011100" а в другую "ssssaaa".
Благодарю.

[BOBAH13]

http://delphi.about.com/library/rtl/blrtlPosEx.htm

[sxcine]

решение сделал сам, вот :

var a,s,s1,s2 : string;
begin
a:='5555 sdfdsf 0';//строка для парсинга
s:=Copy(a,1,Pos(' ',a)-1);//копируем всё до пробела
s1:=Copy(a,Pos(' ',a)+1,Length(a));//копируем всё после пробела
s2:=Copy(s1,1,Pos(' ',s1)-1);//копируем всё до пробела
slabel1.Caption:=s;//присваиваем значения до пробела
slabel3.Caption:=s2;//присваиваем значения после пробела

[FanRa3]

используй explode(array,string,border)
в гугле найдёшь