procedure TForm1.Button1Click(Sender: TObject);
const
a:string='atlanta';
b:string='ikaro';
begin
A:='ATLANTA';
B:='IKARO';
ASM
PUSH EAX
PUSH EBX
PUSH ECX
MOV EAX, DWORD ptr a //EAX= ATLANTA VALOS POINTERE A MEMORIABAN
MOV EBX, DWORD ptr B //EBX= IKARO VALOS POINTERE A MEMORIABAN
MOV CL, [EBX+4] //CL = IKARO-BOL AZ UTOLSO 'O'
MOV BYTE ptr [EAX+1], CL //ATLANTA POINTER (T-BETU) ='O'
POP ECX
POP EBX
POP EAX
END;
caption:=a;
end;
Megjegyzés:
Tehát caption = 'aotlanta'