5,388
社区成员
发帖
与我相关
我的任务
分享讨论一下Copy函数的问题,顺便放分
鄙人在用COPY的时候总是想着Delphi中的源码的注释,下面是它的注释
{ limit index to satisfy 1 <= index <= Length(src) }
但是呢我们在用的时候index可以为0，也可以为1，一般情况下我们都是用1的，呵呵，
纳闷呀这两个参数传进去得到的值是一样的
{ limit index to satisfy 1 <= index <= Length(src) }
但是呢我们在用的时候index可以为0，也可以为1，一般情况下我们都是用1的，呵呵，
纳闷呀这两个参数传进去得到的值是一样的
...全文
请发表友善的回复…
发表回复
chinaandys 2004-11-30
- 打赏
- 举报
强烈支持 beyondtkl(大龙驹<*step by step:Cpp&&Crack*>) ,这位兄弟，是真正的高手，高深莫测
好人啊，CSDN上的好兄弟啊
好人啊，CSDN上的好兄弟啊
surpassable 2004-11-30
- 打赏
- 举报
mark~~~
学习，学习~~
preview 汇编
学习，学习~~
preview 汇编
beyondtkl 2004-11-29
- 打赏
- 举报
呵呵，什么人都有，to beyondtkl(大龙驹<暗黑系魔法师&&赏金猎人>) 你注释的很好，研究嘛，还是深一些的好，写delphi程序不是pascal语言的堆砌。
// ??? 唉 我看不懂你说的话 是赞同我的说法么 呵呵
我也是略懂皮毛而已... 研究 是谈不上的。
// ??? 唉 我看不懂你说的话 是赞同我的说法么 呵呵
我也是略懂皮毛而已... 研究 是谈不上的。
劣势 2004-11-29
- 打赏
- 举报
呵呵，老兄我不是在说你的坏话，我是说有些人上来就知道要分码，也不说上几句有印象的话语。
学习Java中 2004-11-28
- 打赏
- 举报
up
bgtlw 2004-11-28
- 打赏
- 举报
学习
fsybaby 2004-11-28
- 打赏
- 举报
看不懂！
zz5290 2004-11-28
- 打赏
- 举报
学习学习再学习
nyf1220 2004-11-27
- 打赏
- 举报
欺负看不动汇编的，哈哈
masterjames 2004-11-27
- 打赏
- 举报
支持一下
lyguo 2004-11-27
- 打赏
- 举报
学习
劣势 2004-11-27
- 打赏
- 举报
呵呵，什么人都有，to beyondtkl(大龙驹<暗黑系魔法师&&赏金猎人>) 你注释的很好，研究嘛，还是深一些的好，写delphi程序不是pascal语言的堆砌。
beyondtkl 2004-11-27
- 打赏
- 举报
什么研究那么深。。。就算研究深点 不好吗????
呵呵 也许人人都不一样吧...
呵呵 也许人人都不一样吧...
cloudyandfog 2004-11-27
- 打赏
- 举报
研究的好高深啊。历害。
merkey2002 2004-11-27
- 打赏
- 举报
汗...
研究那么深...
不就是一个copy函数么
其实我是来接分的^_^
研究那么深...
不就是一个copy函数么
其实我是来接分的^_^
jackie168 2004-11-26
- 打赏
- 举报
uses shellapi;
var tmp:string; //全局变量
function WinCOPY(SourceFileName: String; TargetFileName: String): String;
var
OpStruc: TSHFileOpStruct;
FromBuf,ToBuf: Array[0..128] of Char;
opstr, Wnd:integer;
begin
FillChar(FromBuf,Sizeof(FromBuf),0);
FillChar(ToBuf,Sizeof(ToBuf),0);
//用0初始化FromBuf和ToBuf数组
StrPCopy(FromBuf,Pchar(SourceFileName));
StrPCopy(ToBuf,Pchar(TargetFileName));
//分别在 FromBuf和ToBuf数组中填入操作的源目录及目标目录
//开始填充OpStruc记录
with OpStruc do
begin
// Wnd:=Handle;
wFunc:=FO_COPY;
//复制操作
pFrom:=@FromBuf;
pTo:=@ToBuf;
fFlags:=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:=False;
hNameMappings:=nil;
lpszProgressTitle:=nil;
OpStR:= SHFileOperation(OpStruc);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
tmp:=OpenDialog1.FileName;
if SaveDialog1.Execute then
WinCOPY(tmp,(SaveDialog1.FileName+ExtractFileExt(OpenDialog1.FileName)));
showmessage('文件复制成功！');
end;
var tmp:string; //全局变量
function WinCOPY(SourceFileName: String; TargetFileName: String): String;
var
OpStruc: TSHFileOpStruct;
FromBuf,ToBuf: Array[0..128] of Char;
opstr, Wnd:integer;
begin
FillChar(FromBuf,Sizeof(FromBuf),0);
FillChar(ToBuf,Sizeof(ToBuf),0);
//用0初始化FromBuf和ToBuf数组
StrPCopy(FromBuf,Pchar(SourceFileName));
StrPCopy(ToBuf,Pchar(TargetFileName));
//分别在 FromBuf和ToBuf数组中填入操作的源目录及目标目录
//开始填充OpStruc记录
with OpStruc do
begin
// Wnd:=Handle;
wFunc:=FO_COPY;
//复制操作
pFrom:=@FromBuf;
pTo:=@ToBuf;
fFlags:=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:=False;
hNameMappings:=nil;
lpszProgressTitle:=nil;
OpStR:= SHFileOperation(OpStruc);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
tmp:=OpenDialog1.FileName;
if SaveDialog1.Execute then
WinCOPY(tmp,(SaveDialog1.FileName+ExtractFileExt(OpenDialog1.FileName)));
showmessage('文件复制成功！');
end;
liyu001xj 2004-11-26
- 打赏
- 举报
up ,mark
ahpei 2004-11-26
- 打赏
- 举报
明年再看,先mark.
whythinkwhy 2004-11-26
- 打赏
- 举报
楼上都汗
我up
我up
Jute 2004-11-26
- 打赏
- 举报
_Copy{ s : ShortString; index, count : Integer ) : ShortString};
asm
{ ->EAX Source string }
{ EDX index }
{ ECX count }
{ [ESP+4] Pointer to result string }
PUSH ESI
PUSH EDI
MOV ESI,EAX
MOV EDI,[ESP+8+4]
XOR EAX,EAX
OR AL,[ESI]
JZ @@srcEmpty
....
asm
{ ->EAX Source string }
{ EDX index }
{ ECX count }
{ [ESP+4] Pointer to result string }
PUSH ESI
PUSH EDI
MOV ESI,EAX
MOV EDI,[ESP+8+4]
XOR EAX,EAX
OR AL,[ESI]
JZ @@srcEmpty
....
加载更多回复（12）
