讨论一下Copy函数的问题,顺便放分

劣势 2004-11-26 05:53:58

鄙人在用COPY的时候总是想着Delphi中的源码的注释,下面是它的注释
{ limit index to satisfy 1 <= index <= Length(src) }
但是呢我们在用的时候index可以为0，也可以为1，一般情况下我们都是用1的，呵呵，
纳闷呀这两个参数传进去得到的值是一样的

...全文

464 32 打赏收藏转发到动态举报

写回复

用AI写文章

32 条回复

切换为时间正序

请发表友善的回复…

发表回复

chinaandys 2004-11-30

打赏
举报

强烈支持 beyondtkl(大龙驹<*step by step:Cpp&&Crack*>) ,这位兄弟，是真正的高手，高深莫测
好人啊，CSDN上的好兄弟啊

surpassable 2004-11-30

打赏
举报

mark~~~

学习，学习~~

preview 汇编

beyondtkl 2004-11-29

打赏
举报

呵呵，什么人都有，to beyondtkl(大龙驹<暗黑系魔法师&&赏金猎人>) 你注释的很好，研究嘛，还是深一些的好，写delphi程序不是pascal语言的堆砌。

// ??? 唉我看不懂你说的话是赞同我的说法么呵呵
我也是略懂皮毛而已... 研究是谈不上的。

劣势 2004-11-29

打赏
举报

呵呵，老兄我不是在说你的坏话，我是说有些人上来就知道要分码，也不说上几句有印象的话语。

学习Java中 2004-11-28

打赏
举报

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函数么

其实我是来接分的^_^

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;

liyu001xj 2004-11-26

打赏
举报

up ,mark

ahpei 2004-11-26

打赏
举报

明年再看,先mark.

whythinkwhy 2004-11-26

打赏
举报

楼上都汗
我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
....