подскажите как определить код символа табуляции в тексте

← →
апельсин== © (2003-03-25 13:45) [0]

задача. из текста выбрать отдельные слова.
слова разделены либо пробелами(вопросов не вызывает)либо табуляцией.

← →
Palladin © (2003-03-25 13:48) [1]

код символа табуляции #9

← →
snake1977 (2003-03-25 13:53) [2]

Функция выдает лексему № n из строки S с разделителем лексем L
например:
myStr:=GetLex(2,"ффф#$еее#$yyyyy","#$");
..
результат: myStr:="eee"

в твоем случае параметр L=#9

Function GetLex(n:Integer; s:String; l:String):String;
Var i:Integer;
lx,st:String;
Begin
If S<>"" Then
Begin
lx:="";
i:=1;
st:=s;
Delete(st,Length(l)+1,Length(st)-Length(l));
While (st<>l) and (s<>"") do
Begin
lx:=lx+s[1];
Inc(i);
Delete(s,1,1);
st:=s;
Delete(st,Length(l)+1,Length(st)-Length(l));
End;
Delete(s,1,Length(l));
If n>1 Then lx:=GetLex(n-1,s,l);
End
Else
lx:="";
GetLex:=lx;
End;

спасибо

подскажите как определить код символа табуляции в тексте Найти похожие ветки