|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
Delphi 11 Alexandria
|
Re: Delphi und Assembler
18. Jun 2005, 00:13
Moin HolgX,
wie, loop funktioniert nicht? 
Delphi-Quellcode:
function ReverseBits(Value,Len : DWORD) : integer;
begin
asm
mov edx,Value
mov ecx,Len
xor eax,eax
@1: shr edx,1
rcl eax,1
loop @1
mov @Result,eax
end;
end;
Wenn Du natürlich Result nicht setzt 
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|