السلام عليكم
هل ممكن مساعدة في تحويل هذا الكود من ال Turbo Pascal الى Delphi
- الكود يتعامل مع ال registers/interrups
r:registers; // الإشكالية بدأت من هنا
buf:array[0..511] of byte;
c:char;
j:word;
begin
r.ax:=$0201; {Read Cyl 0, Hd 0, Sec 2}
r.cx:=2;
r.dx:=$80;
r.bx:=ofs(buf);
r.es:=seg(buf);
intr($13,r);
write(buf[0],’ ’,buf[1],’:’); {display it}
j:=2;
while buf[j]<>0 do
begin
write(char(buf[j]));
j:=j+1;
end;
writeln;
write(’Are you sure you want to do that ? ’);
if UpCase(ReadKey)=’Y’ then
begin
fillchar(buf,512,#0); {Apply the User choice}
r.ax:=$0301;
r.cx:=2;
r.dx:=$80;
r.bx:=ofs(buf);
r.es:=seg(buf);
intr($13,r);
end;
end.وشكرا مسبقا
