关于TAB的简单问题(10分)

[red]
一个文本文件是从EXCEL中导出来的...中间是TAB分隔.... 读行后如何把TAB前的内容
和TAB后的内容取出来？？？
var
tabpos,strlength:integer;
str,str1,str2:string;
begin
readln(needfile,str);
spacepos:=pos('******',str); //******应该怎么写？？
strlength:=length(str);
str1:=copy(str,1,spacepos-1);
str2:=copy(str,spacepos+1,strlength);
end;

[/red]

readln，然后逐个判断是不是tab的ascii码

tab的ascII码好象是 $09把。

我知道答案了，应该用CHR函数做判断：）
if chr(vk_tab) then.....