Dzielenie tekstu

Witam. Jak podzielić przykładowy tekst: "kolor#tekst" tak aby otrzymać osobno kolor i osobno tekst???? Z góry dziękuję :)

Pos + Copy + Delete + F1

Pos + Copy + Delete + F1

Ja bym proponował raczej:
Pos (http://vcl.4programmers.net/viewapi.php?id=47), RightStr (http://vcl.4programmers.net/viewapi.php?id=91) i LeftStr (http://vcl.4programmers.net/viewapi.php?id=90) w tym jednym przypadku.

Pos + Copy + Delete + F1

Ja bym proponował raczej:
Pos (http://vcl.4programmers.net/viewapi.php?id=47), RightStr (http://vcl.4programmers.net/viewapi.php?id=91) i LeftStr (http://vcl.4programmers.net/viewapi.php?id=90) w tym jednym przypadku.

Trochę szkoda (chociaż nie jestem w GG)

var
p:integer;
s,a,b:string;
begin
s:='kolor#tekst';
p:=pos('#', s);
a:=Copy(s,p+1,Length(s)-p);
b:=Copy(s,0,p-1);
Caption:='kolor: '+a+' tekst: '+b;
end;

pozdrówka