………………………………………………………………………………
data.txt的值：
1,2,3,4,5
11,22,33,44,55
44,88,66,77,99
………………………………………………………………………………
procedure TForm1.Button1Click(Sender: TObject);
var
  slNum: TStringList;
  a: array of Integer;
  i: Integer;    begin
  slNum := TStringList.Create;
  try
    slNum.LoadFromFile('f:\data.txt');
    if slNum.Count = 0 then Exit;
    slNum.Text := StringReplace(slNum.Text ,',', #13, [rfReplaceAll]);
    SetLength(a,slNum.Count);
    for i:=0 to slNum.Count-1 do
      begin
        a[i]:=strtoint(slNum.Strings[i]);
        Memo1.Lines.Add(Format('a[%d]=%d', [i, a[i]]));
      end;
  finally
    slNum.Free;
  end;
end;
得出结果：
a[0]=1
a[1]=2
a[2]=3
a[3]=4
a[4]=5
a[5]=11
a[6]=22
a[7]=33
a[8]=44
a[9]=55
a[10]=44
a[11]=88
a[12]=66
a[13]=77
a[14]=99