文本文件的操作(100分)

  • 主题发起人 主题发起人 无意的梦
  • 开始时间 开始时间

无意的梦

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样直接打开文本文件?
 
你是用程序,还是在windows中??说清楚
 
在windows中
 
var

F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Readln(F, S); { Read first line of file }
Edit1.Text := S; { Put string in a TEdit control }
CloseFile(F);
end;
end;
 
Memo1.lines.loadformfile('路径/文件名');
 
老兄我的意思是用文本文件打开
 
ShellExecute(Handle, 'open',
'C:/Documents and Settings/Jiangsb/桌面/新建 文本文档.txt',
//'C:/Documents and Settings/Jiangsb/桌面/新建 文本文档.ini', //也可以是由文本文件而生成的其他后缀的文件
nil, nil, SW_SHOWNORMAL);
 
后退
顶部