代码搜索：INTEGER
找到约 10,000 项符合「INTEGER」的源代码
代码结果 10,000
www.eeworm.com/read/424126/10490527
bas i7000.bas
Attribute VB_Name = "i7000"
Option Explicit
'------------------------ Error Message ------------------
Global Const NoError = 0
Global Const FunctionError = 1
Global Const PortError = 2
Global
www.eeworm.com/read/352901/10494968
bas preparedata.bas
Attribute VB_Name = "Module17"
Public Sub preparedata()
Dim i As Integer
For i = 0 To 21
sendstr(i) = sendstr(i) + (admax - admin) * 0.1
If sendstr(i) > admax Then sendstr(i) = admin
www.eeworm.com/read/424063/10502539
hlp encode.hlp
ha_help_begin
ENCODE Encodes a message using Hamming code method.
CODE = ENCODE(MSG, N, K, METHOD), METHOD = 'hamming', encodes the
binary codeword in CODE using Hamming code method.
www.eeworm.com/read/352829/10504159
pas xmltree.pas
unit XmlTree;
interface
uses
Variants, XMLIntf;
function TreeView(XmlNode: IXMLNode; depth: Integer): AnsiString;
implementation
uses
Tabs;
function TreeView(XmlNod
www.eeworm.com/read/160661/10510393
bas module1.bas
Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public flagTedit As Boolean
Public flagRedit As Boolean
Public flagBedit As Boolean
Public flagCedit As Boolean
Public gintCmode As Inte
www.eeworm.com/read/278758/10511998
txt error9.txt
const a=4.4;
var x:integer;
procedure add(var x,y:integer) ;
var sum;
begin
sum:=x+y;
add:=sum
end
x:=add(2,4);
.
www.eeworm.com/read/278758/10512015
txt function.txt
const a=30,b=4;
var x :integer;
function f(c,d:integer):integer;
begin
if c
www.eeworm.com/read/278742/10514003
frm form1.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic
www.eeworm.com/read/160587/10516174
frm frmmanapp.frm
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmManApp
Caption = "员工评价列表"
ClientHeight = 4428
ClientLeft = 60
www.eeworm.com/read/160584/10516533
frm frmmaterout.frm
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmMaterOut
Caption = "物资领用列表"
ClientHeight = 4056
ClientLeft =