如何按固定格式读取文件?????(50分)

如何按固定格式读取文件，如读一文本文件，内容如下：
1234564564566343443343434343434345345


我想读出123，存入一个数组如x[1],读4564到x[2],645到x[3],......
请问delphi能实现吗？？？说说方法了@


(读入数据库更好了！！！！！！）谢谢啊！

你读到x[1]中是整数123还是字符串'123'?

如果只有这么多数据搞几个while循环就行了，如果还有的话
不妨做一个结构体文件

可以利用 ODBC 中的Microsoft Text Driver试试

如有规律就作一个结构,以后就以块的方式读到结构中,再分别给x[1]...x[n]赋值
如没有规律但很短就手工处理吧,
否则没法了

to kang:
数据类型不是可以转化的吗？这个无所谓吧.


呵呵，小弟可是初学啊，各位大虾能不能仔细些啊。。。。其实要读的数据是这样的
文件头是数据组个数，接着是数据，
如 10，345，34，59，67，。。。。。

看样子你的文件格式是固定的！这样好办！
var
txtF : TextFile;
begin
...
if OpenDialog.Execute then
begin
if not FileExists(OpenDialog.FileName) then
begin
Application.MessageBox('文件不存在!',
'注意', MB_ICONINFORMATION + MB_OK);
Exit;
end;
AssignFile(txtF, OpenDialog.FileName);
Reset(txtF);
if ioresult <> 0 then ;
Readln(txtF, ReadText);
try
Table1.DisableControls;
while not Eof(txtF) do
begin
Readln(txtF, ReadText);
if trim(ReadText) <> '' then
writedata(Sender);//具体写的过程请自已编程实现,主要思路就是把逗
//号做为分隔符，把相应的数据取出来并存入相应
//的数据库字段中去
end;
Table1.First;
Table1.EnableControls;
except
;
end;
...
end;

>>

简单的读写文件问题...
注意变量类型读写时一致就行了

copy ();便可以

你那样的存法可不行，如果只是整数的话，
用 f: Text 直接读就可以了，随便读什么都可以。

多人接受答案了。