盒子论坛 v2.1

begin
s:=extractfilepath(paramstr(0))+'4.txt';
sl:=TStringList.Create
sl.Clear
sl.LoadFromFile(s);
if sl.Count >0 then
  begin
    for i:=0 to sl.Count -1 do
     begin
       setlength(my,i+1);
       s1:=sl.Strings[i];

       j:=pos(chr(9),s1);
       s2:=copy(s1,1,j-1);
       my[i].content1 :=s2;

       delete(s1,1,j);
       j:=pos(chr(9),s1);
       s3:=copy(s1,1,j-1);
       my[i].content2 :=s3;

       delete(s1,1,j);
       my[i].word1 :=strtoint(s1);

     end;
    for i:=0 to high(my) do
      memo1.Lines.Add(my[i].content1+chr(9)+
             my[i].content2+chr(9)+inttostr(my[i].word1));
    setlength(my,0);
  end;

end;

这段代码是将文件中的每行的两个字符串和一个整数读入一个记录数组
chr(9)是TAB,但文件中两个字符串和一个整数间的TAB可能不止一个,该怎么写呢?
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/14 16:27:52

1楼：

你的依赖性太大，这种问题认真想想很容易，如果不勤奋去想永远都不会进步的
----------------------------------------------

作者：

guxang (※西门吹雪※)	★☆☆☆☆	-
	普通会员

2004/2/14 17:23:48

2楼：

没办法,因为我对函数了解太少,又找不到地方详细介绍DELPHI函数的,所以就算知道应该怎么写也写不出来啊
----------------------------------------------
-

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/2/14 17:36:02

3楼：

羚羊需要狮子来锻炼速度
----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

信息

登陆以后才能回复