请高人回答： 我从.txt文件取出一条信息其中是用豆号分隔，豆号间是一个信息，问如何用一个函数取出？？？

Question

请高人回答：  我从.txt文件取出一条信息其中是用豆号分隔，豆号间是一个信息，问如何用一个函数取出？？？
在C语言中是用sprint
在DELPHI中用什么函数？

Answer 1

var
tt:tstringlist;
i:integer;
begin
tt:=tstringlist.create;
tt.Delimiter:=',';
tt.DelimitedText:=yourstring;
for i:=0 to tt.count do
  showmessage(tt[i]);
tt.free;
end;

Answer 2

用TStringS
tmpStr: TStringList;tmpStr.Delimiter := ',';
tmpStr.LoadFromfile(filename);

Answer 3

var
  TStrList: TStringList;
  Str: String;  
begin
  TStrList := TStringList.create;
  i := pos(',',str);
  while i > 0 do
  begin
    Tmp := copy(Str,1,i - 1);
    TStrList.Add(Tmp);
    Str := copy(Str,i + 1,length(Str)-i);
    i := pos(',',Str);
  end;
  if Str <> '' then
  begin
    TStrList.Add(Str);
  end;
end;