我现在有一个txt的数据文件，每一行的数据格式如下： 209592000;2008-01-01 09:53:11;0;0;210;30;100;71;0;1; 第一个是数字，然后是一个分号，再是一个时间的字符串，然后是分号和数字 我用readln这个函数时，readln(ff,x,ch1,str0,ch2,a,ch3,b,ch3....)为什么不行呢/ x,a,b是integer, ch1,ch2,ch3....是string[1],str0是string[19]。 各位高手指点下应该怎么读取方便啊？
追问：每行的数据格式是一致的，但是长度不一致。我现在的方法是和langjilife的差不多，先把一行的数据读给一个字符串str，然后从每个位置分析，每个分号前的一段字符串读出来付给一个变量。暂时只能想到这样的方法。不知道有更简便的没?数据文件不是我弄得。。答案：不要拘泥于比较规范的代码。先要看读取这数据的目的是什么？我看这数据像是一条数据记录信息，只是没有字段名而已。如果想把这些数据读取出来，显示到界面上的话，比如门诊号是209592000，就诊时间是2008-01-01 09:53:11，等等，比喻而已；那么代码这样写更简单；
tex:=txt的数据文件.行数.字符串；
显示门诊号的组件（edit或者label组件都可以）:=copy(tex,1,9);
显示就诊时间的组件）:=copy(tex,10,18);
.......如此取完全部数据
txt的数据文件每一行的数据格式是一致的，长度也是一致的，所表示的内容应该也是一致的，因此直接用copy函数取数据，应该比langjilife的代码更简单。
我认为写代码不必死死的抱着delphi的例子不放，他们也是人，咱也是人，不兴咱也来点新鲜的。比如很多delphi的函数，我就自己写。用起来顺手。自己写的东西，出了错可以马上知道错在那里了。其他：readln(ff,str);
m:=pos(';',str);
x:=copy(str,1,m-1);
str:=copy(str,m+1,length(str)-m);
m:=pos(';',str);
ch1:=copy(str,1,m-1);
str:=copy(str,m+1,length(str)-m);
……
…… 上一个：如何delphi button1用FormatdateTime取当前系统日期，然后按钮2实现日期递增？
下一个：谁能教我学DELPHI编程啊?我对此感兴趣!先谢谢了
