A angellover Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-30 #2 var s:TStringList; a:array[0..20,0..1]of double; i,j:integer; begin s:=tstringlist.Create; for j:=0 to 20 do begin a[j,0]:=j+20; a[j,1]:=j+30; S.Add(Format('%d,%f',[a[j,0],a[j,1]])) end; s.SaveToFile('1.txt') end;
var s:TStringList; a:array[0..20,0..1]of double; i,j:integer; begin s:=tstringlist.Create; for j:=0 to 20 do begin a[j,0]:=j+20; a[j,1]:=j+30; S.Add(Format('%d,%f',[a[j,0],a[j,1]])) end; s.SaveToFile('1.txt') end;
D danng Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-30 #3 自己定义文件格式（需要互逆，即根据格式可以得出数组），然后把它写到TStringLists中，再把它保存成文件就行了。
P PlayBoysjz Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-30 #4 对angellover 的热情回答中心感谢！送上30分
