文本文件中有中文就无法用

Question

var
  strlen,mytemp,counter:integer;
  strtemp:string;
  thefile:textfile;
  mystr:array[0..13] of string;
begin
  assignfile(thefile,'C:\sk_ic.txt');
  reset(thefile);
  read(thefile,strtemp);
  closefile(thefile);
  counter:=0;
  while (length(strtemp)>0) or (pos(#9,strtemp)<>0) do
    begin
      strlen:=Length(strtemp);
      mytemp:=pos(#9,strtemp);
      If mytemp=0 Then
        begin
          mystr[counter]:=strtemp;
        end
      Else
        begin
          mystr[counter]:=Leftstr(strtemp,mytemp-1);
          strtemp:=Rightstr(strtemp,strlen-mytemp);
          counter:=counter+1;
        end;
    end;
end;
其中sk_ic.txt中的内容为：
“U999999 2100103 320200W00087268 XX交通卡有限公司 XX费 XX2费 XX3费”
不包括引号，各内容以Tab键相隔，如果内容中有中文，则无法分割，如果内容中只有数字或英文则可以请问如何解决？

Answer 1

我改了一下，能够分出来呀，你看看吧。var
  strlen,mytemp,counter:integer;
  strtemp:string;
  thefile:textfile;
  mystr:array[0..13] of string;
begin
{
  assignfile(thefile,'C:\sk_ic.txt');
  reset(thefile);
  read(thefile,strtemp);
  closefile(thefile);
}
  strtemp := 'U999999'#9'2100103'#9'320200W00087268'#9'XX交通卡有限公司'#9'XX费'#9'XX2费'#9'XX3费';
  counter:=0;
  while (length(strtemp)>0) or (pos(#9,strtemp)<>0) do
    begin
      strlen:=Length(strtemp);
      mytemp:=pos(#9,strtemp);
      If mytemp=0 Then
        begin
          mystr[counter]:=strtemp;
          EXIT;
        end
      Else
        begin
          mystr[counter]:=Leftstr(strtemp,mytemp-1);
          strtemp:=Rightstr(strtemp,strlen-mytemp);
          counter:=counter+1;
        end;
    end;
end;

Answer 2

使用WideString类型代替String类型，就行了

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  ASource, ALien: TStringList;
  i: Integer;
begin
  ASource := TStringList.Create;
  ALien := TStringList.Create;
  Memo1.Lines.Clear;
  ASource.LoadFromFile('C:\22.txt');
  for i := 0 to ASource.Count - 1 do
  begin
    ALien.Clear;
    ExtractStrings([' '], [],pchar(ASource.Strings[i]) , ALien);
    Memo1.Lines.Add(ALien.Strings[0] + '  ' +  ALien.Strings[5]);//Aline里的内容是你要的自己处理一下。
  end;
end;