主要有:
ChangFileExt(Const Filename,Extension:String):String
ExpandFileName(Const Filename:String):String;
ExtractFileDir
ExtractFileDrive
ExtractFileExt
ExtractFileName
......
太多了,买本书看吧,一般书中的附录中都有.
别忘了分!!!嘻嘻!!!
ChangFileExt(Const Filename,Extension:String):String
ExpandFileName(Const Filename:String):String;
ExtractFileDir
ExtractFileDrive
ExtractFileExt
ExtractFileName
......
太多了,买本书看吧,一般书中的附录中都有.
别忘了分!!!嘻嘻!!!
解决方案 »
- 關於代碼復用,問一下這兩段代碼怎麼才能復用
- 關于調用存儲過程的問題(提示 list index out of bounds(10)的錯誤)
- 谁有<<delphi深度探索>>陈省著的配套光碟程序?高分
- DELPHI在建立类时能不能加入事件?DELPHI的消息机制又是怎样的?
- 我在运行Delphi7时出现了错误有哪位能帮忙解决这个问题吗?
- 聘Delphi工程师
- 可停泊窗口如何实现
- 浅谈多态——概念描述
- 请问如何在DELPHI自带的DATABASE DESKTOP的table中建立索引
- 一个专门存放本人Delphi程序的主页,有好东西的说!
- *****怎样将TreeView的全部内容用最简单的方法从中间层传至客户端*****
- form与frame有什么区别?
up!!!!
var F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;end;
打开~读取~~关闭文件var F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog box }
Reset(F);
Readln(F, S); { Read the first line out of the file }
Edit1.Text := S; { Put string in a TEdit control }
CloseFile(F);
end;
end;
var FileName:TFileName;
begin
FileName:='win.exe';
怎样令FileName='win',要用文件操作函数.哪个函数呢? 请教.
end;