我想把指定的文件:例如(C:/myfile.txt)另存为----自己指定目录,文件名!应该怎么实现?(50分)

  • 主题发起人 ilikemeng
  • 开始时间
I

ilikemeng

Unregistered / Unconfirmed
GUEST, unregistred user!
内容就是标题那些了,请帮忙!
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
‘Memo1.Lines.’这一块换成我指定的文件进行save!
 
L

linsb

Unregistered / Unconfirmed
GUEST, unregistred user!
在SaveDialog1的对话框中即可完成,或者Memo1.Lines.SaveToFile(dec);
dec:=指定的路和文件名;
 
I

ilikemeng

Unregistered / Unconfirmed
GUEST, unregistred user!
我的意思是把指定的文件另存为,和memo没有关系!
 
W

weichao9999

Unregistered / Unconfirmed
GUEST, unregistred user!
用 copyfrom()试一下
 
I

ilikemeng

Unregistered / Unconfirmed
GUEST, unregistred user!
用copyfrom()我应该怎么写啊,在那里写啊,
 
S

singler82

Unregistered / Unconfirmed
GUEST, unregistred user!
用 CopyFileTo 把 你说的文件Copy到你指定的地方不就可以了
function CopyFileTo(const Source: string;
const Destination: string): Boolean;
Parameters
const Source: string
Source file name.

const Destination: string
Destination file name.

Returns
Boolean - True if the file is copied, False on error.
 
P

pihome

Unregistered / Unconfirmed
GUEST, unregistred user!
RenameFile('C:/myfile.txt','d:/myfile.txt');
//实际是调用API函数Move将原文件移动新位置
CopyFile('C:/myfile.txt','d:/myfile.txt',False);
//复制文件,最后一个参数为False自动覆盖已存在的文件
 
L

linsb

Unregistered / Unconfirmed
GUEST, unregistred user!
function FileCopy(source,dest: String): Boolean;
var
fSrc,fDst,len: Integer;
size: Longint;
buffer: packed array [0..2047] of Byte;
begin
Result := False;
{ Assume that it WONT work }
if source <> dest then
begin
fSrc := FileOpen(source,fmOpenRead);
if fSrc >= 0 then
begin
size := FileSeek(fSrc,0,2);
FileSeek(fSrc,0,0);
fDst := FileCreate(dest);
if fDst >= 0 then
begin
while size > 0 do
begin
len := FileRead(fSrc,buffer,sizeof(buffer));
FileWrite(fDst,buffer,len);
size := size - len;
end;
FileSetDate(fDst,FileGetDate(fSrc));
FileClose(fDst);
FileSetAttr(dest,FileGetAttr(source));
Result := True;
end;
FileClose(fSrc);
end;
end;
end;
 
I

ilikemeng

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部