代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/426469/9019363
pas dblookupgridseh.pas
{*******************************************************}
{ }
{ EhLib v4.3 }
{ TDBLookupGridEh,
www.eeworm.com/read/426469/9019382
pas memtreeeh.pas
{*******************************************************}
{ }
{ EhLib v4.3 }
{ TMemTree
www.eeworm.com/read/185611/9025394
ctl usercontrol1.ctl
VERSION 5.00
Begin VB.UserControl XnButton
Alignable = -1 'True
BackColor = &H8000000A&
CanGetFocus = 0 'False
ClientHeight = 1155
ClientLeft =
www.eeworm.com/read/185607/9025523
ctl panel3d.ctl
VERSION 5.00
Begin VB.UserControl Panel3D
Alignable = -1 'True
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
ClientHeight = 1485
ClientLeft =
www.eeworm.com/read/185575/9028755
pas ucaniicon.pas
unit UCAniIcon;
interface
uses Windows, SysUtils, Consts, Classes, Graphics;
type
TAniIconHeader = record
dwSizeof: LongInt;
dwFrames: LongInt;
dwSteps: LongIn
www.eeworm.com/read/382441/9029137
txt trapzd.txt
implementation
procedure TRAPZD(A, B:real;var S:real; N:integer);
var
J,IT:integer;
TNM,DEL,X,SUM:real;
begin
If N = 1 Then
begin
S:=0.5 * (B - A) * (FUNC(A) + FUNC(B))
www.eeworm.com/read/382441/9029142
txt midpnt.txt
procedure MIDPNT(A, B:real;var S:real; N:integer);
var
TNM,DEL,DDEL,X,SUM:real;
J,IT:integer;
begin
If N = 1 Then
begin
S:=(B - A) * FUNC(0.5 * (A + B));
IT:=1;
www.eeworm.com/read/382441/9029152
txt midinf.txt
Function INF(X:real):real;
begin
INF:=FUNC(1 / X) / Sqr(X);
End;
procedure MIDINF(AA, BB:real; var S:real; N:integer);
var
A,B,TNM,X,DEL,DDEL,SUM:real; J:integer;
begin
B:=1 / AA;
www.eeworm.com/read/382441/9029167
txt midexp.txt
procedure MIDEXP(AA,BB:real; var S:real;N:integer);
var
IT,J:integer; A,B,DEL,DDEL,SUM,TNM,X:real;
begin
FUNC(X)=FUNK(-ALn(X))/X;
B:= EXP(-AA);
A:= 0.0;
IF N = 1
www.eeworm.com/read/382440/9029206
txt bessy.txt
Function BESSY(var N:integer; X:real):real;
var
TOX,BY,BYM,BYP:real;j:integer;
begin
If N < 2 Then
ShowMessage('bad argument N in BESSY');
TOX:= 2 / X;
By:= BESSY1(X);