procedure TForm1.Button6Click(Sender: TObject);
var
F1:textfile;
i,j,k:integer;
FIleName:String;
begin
i:=0;
j:=3200;
Filename:='TT.txt';
try
assignfile(F1,FileName);
begin
reWrite(F1);
for k:=i to j do
writeln(F1,k);
Flush(F1);
if trim(self.Edit1.text)<>'' then
begin
reset(F1);
//FileMode:=2;
for i:=0 to 10 do
begin
readln(F1,Filename);
self.Edit1.text:=intToStr(i);//Filename;
// showmessage(intToStr(i));
end;
writeln(F1,k+1000000); //这句总出错!!!!!!!!!!!!!!!
end;
closeFile(F1);
end;
except
on E: exception do
showmessage(E.message);
end;
end;
var
F1:textfile;
i,j,k:integer;
FIleName:String;
begin
i:=0;
j:=3200;
Filename:='TT.txt';
try
assignfile(F1,FileName);
begin
reWrite(F1);
for k:=i to j do
writeln(F1,k);
Flush(F1);
if trim(self.Edit1.text)<>'' then
begin
reset(F1);
//FileMode:=2;
for i:=0 to 10 do
begin
readln(F1,Filename);
self.Edit1.text:=intToStr(i);//Filename;
// showmessage(intToStr(i));
end;
writeln(F1,k+1000000); //这句总出错!!!!!!!!!!!!!!!
end;
closeFile(F1);
end;
except
on E: exception do
showmessage(E.message);
end;
end;
解决方案 »
- delphi 在文本文件中添加和删除
- DELPHI 中如何让LISTBOX控件显示SQL的数据库中所有的表名和让COMBOBOX控件显示数据库名的问题!求救!
- 如何做出photoshop那样的套索工具.
- 大侠救助:I、CreateThread()的参数如何传递?II、listview各项如何向下或向上的移动;
- 求一个扫描的程序源代码
- IntraWeb怎样设置IWEdit的焦点?
- table控件的FIELTER中能加入ORDER BY 等子句吗?
- 如何取得计算机名?
- 求教!delphi如何对ppt进行编辑…
- 能过OLE,如何实现数据导入Excel,生成指定类型的曲线??
- 我在delphi中遇到问题
- 报表问题,很急.
我觉的这样最好
Int64ToStr(k+1000000)