问个关于读取txt文件的问题

[xbingle]

现在又一个txt文档，内容都是数字，比如有一行：1,2,3,4,5，想问如何能一次取出1 ,2 ,3 ,4 ,5 这几个数字来

[Temp_DX]

读到s中以后

a:array of integer;
i:=1;
j:=i;
k:=1;
while i<=length(str) do
 begin
   while str[j]in['0'..'9','-','.'] do inc(j);
   if j<>i then
    begin
     a[k]:=strtointdef(copy(str,i,j-1),maxint);   //a[k]=maxint 为错误
     inc(k);
    end;
   i:=j+1;
   j:=i;
 end;

[blazingfire]

var
  List: TStrings;
  i, iPos: Integer;
  S, OnePart{一个部分}: String;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile('文本文件名称');
    for i := 0 to List.Count - 1 do
    begin
      S := List[i];//1,2,3,4
      while S <> '' do
      begin
        iPos := Pos(',', S);//查找","的位置
        if iPos > 0 then
        begin
          OnePart := Trim(Copy(S, 1, iPos - 1)); //","的位置前的部分
          Delete(S, 1, iPos);
        end
        else
        begin
          OnePart := Trim(S);
          S := '';//已经取完所有的数据
        end;

        ShowMessage(OnePart);//显示出结果，StrToInt(OnePart)就是数字了
      end;
    end;
  finally
    List.Free;
  end;
end;

[liangpei2008]

var
  Str:TStrings;
begin
  Str:=TStringList.Create;
  try
    Str.LoadFromFile('c:\Test.txt');
    Showmessage(Str[0]);//0行
  finally
    Str.Free;
  end;
end;

[liangpei2008]

var
  F:TextFile;
  s: string;
begin
  AssignFile(F,'c:\Test.txt');
  Reset(F);  //只读打开
  Readln(F, s);   //读取
  ShowMessage(s); //显示: 第一行
  CloseFile(F);
end;

[wxmwxmwxm]

1楼全部取了

[Temp_DX]

按楼上的做吧,拿数字当字符串取

[xbingle]

以上代码都是读一行的吧，我想读取一行中的某些字符呢？

[xbingle]

原来是我写错了，是依次取出，不是一次取出