assignfile(f,edit1.text);
reset(f);
readln(f,s);
table2.EmptyTable;
while s<>'' do
begin
table2.active:=true;
table2.Edit;
j:=0；
i:=pos(',',s);
table2.Insert;
while i>0 do
begin
s1:=copy(s,1,i-1);
s:=copy(s,i+1,length(s)-1);
table2.fields[j].asstring:=s1;
i:=pos(',',s);
j:=j+1;
end;
readln(f,s);
end;
closefile(f);
table2.Post;
这个只是按逗号分开的文本。
