testdelphinetuses.obs

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

unit testdelphinetuses;interface uses windows,messages,sysutils,classes,graphics
,controls,forms,dialogs,stdctrls,db,dbtables,system.text,system.componentmodel;const
effrandlinks=28;effrandoben=15;effrandunten=effrandoben+102;effrandrechts=effrandlinks
+293;effmax=4;effmin=1;efffaktor:extended=(effrandunten-effrandoben)/(effmax-effmin
);implementation end.