主题：关于.txt 文档的问题高分请教
克里斯
[专家分：0] 发布于 2006-09-20 19:58:00
给位高手
我想问问一个东西
就是想我做个程序 在开始的时候 搜寻指定的盘付 下 看看有没有 指定.txt文挡
如果有的话 把它读到 memo里
没有 不显示 提示找不到 谢谢了各位
回复列表 （共4个回复）
沙发
长尾兔 [专家分：3630] 发布于 2006-09-21 09:09:00
if fileexists('d:\a.txt') then
memo1.Lines.LoadFromFile('d:\a.txt')
else
showmessage('找不到');
板凳
克里斯 [专家分：0] 发布于 2006-09-21 11:31:00
谢谢了 我还想知道 我想在当前目录下 创键 .txt 文档
怎么创建 啊 然后在从里面的读出数据 谢谢了
3 楼
克里斯 [专家分：0] 发布于 2006-09-21 11:34:00
能给我写个比较全的代码吗 在下感激不尽 呵呵
4 楼
xiaohongna [专家分：180] 发布于 2006-09-21 12:57:00
var
fl:textfile;
str:string;
filename:string;
begin
filename:=‘文件的完整名字’
if not fileexists(filename) then
begin
filecreate(filename);
assignfile(tl,filename);
reset(tl);
while not eof(fl) do
begin
readln(tf,str)
memo1.lines.add(str);
end;
closefile(tf);
end;
这个当然什么也读不出来~~文件是空的
我来回复
您所在位置：