M
msfm
Unregistered / Unconfirmed
GUEST, unregistred user!
真的希望有个人能带带我，我几乎做不出一个完整的程序，苦恼啊，考虑问题没一点深度，我想找个 能带着我进步的公司，给我必要的指点，让我从小的程序写起，让我建立信心。只会写些小函数有什么用啊，深深的苦恼，希望各位给我指点，让我建立一些走下去的勇气。我的职业规划该如何啊。。。。。function HashIt(const Key: AnsiString): Cardinal;var i: integer;
begin
Result := 5381;
for i := 1 to Length(Key) do
Result := ((Result shl 5) + Result) + Ord(Key);
end;
function HashItAsm(const Key: AnsiString): Cardinal;asm push ebx xor ebx,ebx mov ecx, eax-4;
mov esi,eax mov eax,5381 inc ebx @@lop: cmp ebx,ecx ja @@exit mov edi,eax shl eax,5 add eax,edi movzx edx, [esi+ebx-1] add eax, edx inc ebx jmp @@lop @@exit: pop ebxend;
begin
Result := 5381;
for i := 1 to Length(Key) do
Result := ((Result shl 5) + Result) + Ord(Key);
end;
function HashItAsm(const Key: AnsiString): Cardinal;asm push ebx xor ebx,ebx mov ecx, eax-4;
mov esi,eax mov eax,5381 inc ebx @@lop: cmp ebx,ecx ja @@exit mov edi,eax shl eax,5 add eax,edi movzx edx, [esi+ebx-1] add eax, edx inc ebx jmp @@lop @@exit: pop ebxend;