用TMemo读出来
var i:integer;
    s:string;
Memo1.Lines.LoadFromFile('c:\1.txt');
i:=pos(Memo1.lines.Strings[Memo1.Lines.Count-2],',');
s:=Copy(Memo1.lines.Strings[Memo1.Lines.Count-2],1,i-1);

解决方案 »

  1.   

    如果方便改文本格式的话,不妨试试Ini格式,参照TIniFile查一下帮助;
    或是改为XML格式,那就可以象数据库一样用了。
      

  2.   

    如果各字段长度一定的话,可以用TSTRINGLIST。
    一行一条记录,然后按位置取值。
      

  3.   

    长度可不一样,而且不能象INI那种方式的读取。非常麻烦。
      

  4.   

    长度可不一样,而且不能象INI那种方式的读取。非常麻烦。
      

  5.   

    >>长度可不一样,而且不能象INI那种方式的读取。非常麻烦。
    那有没有分隔符号???如果有的话也好办。
    没有的话,那判断字段的规则是什么?也就是说,如何人为判断某一行中,字段
    之间的划分???