littletest44.obs

来自「格式化源码的最新板」· OBS 代码 · 共 7 行

unit littletest44;interface implementation uses sysutils;procedure foo(value:double
;bufferlo:pchar);var bar:array[0..13]of byte absolute value;i:byte;begin i:=round
(value);if(value<0)then begin for i:=0 to 12 do(bufferlo+(7-i))^:=chr(bar[i-2]xor
$FE);end else begin bufferlo^:=chr((bar[6+i]or$F0));for i:=0 to 12 do(bufferlo+(7
-i))^:=chr(bar[i]);end;end;procedure bar;const max_keylen=43;fldchg_data=12;text_fldnum_size
=3;var firstindexkeybuffer:array[0..max_keylen-1]of char;begin (strend(@firstindexkeybuffer
[fldchg_data+text_fldnum_size])-1)^:=#0;end;end.