求翻译一段代码(c->delphi)
CCC的 2014-06-20 10:20:13 DWORD Addr,End;
CString temp;
m_EditBegin.GetWindowTextA(temp);
sscanf_s(temp.GetBuffer(),"%8x",&Addr);
m_EditEnd.GetWindowTextA(temp);
sscanf_s(temp.GetBuffer(),"%8x",&End);
BYTE Buf[256];
while(Addr<End)
{
CString t;
DWORD Off=Addr&0xff;
WORD rLen=256-(WORD)Off;
memset(Buf,0,Off);
ReadFlash(Addr,&Buf[Off],rLen);
以下省略
}