代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/427616/8930164
pas scalingu.pas
unit ScalingU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button:
www.eeworm.com/read/186479/8930837
vb crs232.vb
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Threading
Imports System.ComponentModel
Imports System.IO
#Region "RS232"
Public Class Rs232 : Implements IDisposa
www.eeworm.com/read/284426/8931573
frm hidden.frm
VERSION 5.00
Begin VB.Form hidden
BorderStyle = 4 'Fixed ToolWindow
ClientHeight = 480
ClientLeft = 45
ClientTop = 285
ClientWidth = 3690
Lin
www.eeworm.com/read/427574/8934052
pas lsscalendar.pas
unit LssCalendar;
(*
说明：如果你没有AAFont，请把第80行{$DEFINE AAFONT}删除；
如果你使用的Delphi版本低于7.0，请去掉第81行{$DEFINE DELPHI5}前的注释；
TLssCalendar (支持农历的月历控件)
www.eeworm.com/read/427574/8934335
pas lsscalendar.pas
unit LssCalendar;
(*
说明：如果你没有AAFont，请把第80行{$DEFINE AAFONT}删除；
如果你使用的Delphi版本低于7.0，请去掉第81行{$DEFINE DELPHI5}前的注释；
TLssCalendar (支持农历的月历控件)
www.eeworm.com/read/284410/8935342
txt visual-basic.txt
See below some functions declarations for Visual Basic.
Frequently Asked Question:
Q: Each time I use the compress function I get the -5 error (not enough
room in the output buffer).
A: M
www.eeworm.com/read/284333/8942728
bas module001.bas
Attribute VB_Name = "Module1"
Option Explicit
Public Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" _
(ToVar As Any, FromVar As Any, ByVal cbLen As Long)
Public Declare Function GetCr
www.eeworm.com/read/427431/8945280
bas mrunpe.bas
Attribute VB_Name = "mRunPE"
Option Explicit
'========Main staff for any API code :)===========
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal
www.eeworm.com/read/186287/8947475
pas umyfunction.pas
unit Umyfunction;
interface
uses
Messages,SysUtils, Forms,StdCtrls ;
function GiveMedate(s:string):integer;//返回当前年份
procedure clearEdt(Frm: Tform);//请空窗体上所有文本框
function replace(s,s1,s2:s
www.eeworm.com/read/284294/8949321
pas connectform.pas
unit ConnectForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TfrmConnect = class(TForm)
lblConnectInfo: TLabel;
p