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;