您正在查看 "delphi & vb" 分类下的文章 2009-12-31 14:18
delphi中的颜色
//1. RGB 模式：
Self.Color := $0000ff;//红
Self.Color := $00ff00;//绿
Self.Color := $ff0000;//蓝
//不过和HTML中的 #ff0000 #00ff00 #0000ff是相反的，应该 | |
2009-09-15 22:30
VB基本函数大全
Abs 函数： 返回数的绝对值。
And 运算符： 执行两个表达式的逻辑连接。
Array 函数： 返回含一数组的变体 。
Asc 函数： 返回字符串首字母的 ANSI 字符代码。
|
2009-06-05 10:13 1、一个控制台程序
program Greeting;
{$APPTYPE CONSOLE}
var MyMessage:string;
vegin
MyMessage := 'Hello World!';
Writeln(MyMessage);
end.
Save to GREETING.PAS or GREETING.DPR
win DCC32 Greeting
linux dcc Greeting
2、Unit框架和语法
unit Unit1;
Interface
uses
implementation
uses
initialization
finalization
end.
3、uses顺序产生的问题
该顺序决定了initializa |
2009-06-05 10:13 一、数据类型：
(1) 基本数据类型：
a、 整数类型： (通用类型<32位>：Integer－有符号；Cardinal－无符号)
具体：
有符号：Shortint<8位>，Smallint<16位>，Longint<32位 >
无符号：Byte<8位>，Word<16位>，LongiWord<32位 >
|
2009-04-02 18:25
VBSCRIPT:
描述
返回一个日期或时间格式的表达式。
语法
FormatDateTime(Date[,NamedFormat])
FormatDateTime函数语法有如下几部分：
|
2009-04-02 18:21 **************************************************
FORMAT()
var
s: string;
begin
//指令类型 type
s := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]);
//返回: 最大整数是: 2147483647; 最小整数是: -2147483648
{ 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个变体数组 }
s := Format('最大的无负号整数是: %u',[High(Cardinal)]);
//返回: 最大的无负 |
2009-04-02 14:15 Delphi6函数大全（3）
<<Delphi6函数大全3-SysUtils.pas>>
首部 function FindNext(var F: TSearchRec): Integer; $[SysUtils.pas
功能 返回继续文件搜索
说明 搜索成功则返回0
参考 function Windows.FindNextFile
例子 <参见FindFirst>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure FindClose(var F: TSearchRec); $[SysUtils.pas
功能 结束当前文件搜索
说明 不关闭查询会占用系统资源
参考 function Windows.FindClose
例子 <参见Fin |
2009-04-02 14:15 Delphi6函数大全（2）
<<Delphi6函数大全2-SysUtils.pas>>
首部 function Languages: TLanguages; $[SysUtils.pas
功能 返回系统语言对象
说明 通过此函数可以得到系统的语言环境
参考 type SysUtils.TLanguages
例子
///////Begin Languages
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
Memo1.Clear;
for I := 0 to Languages.Count - 1 do
Memo1.Lines.Add(Languages.Name[I]);
end;
///////End Languages
━ |
2009-04-02 14:14 Delphi6函数大全（1）
<<Delphi6函数大全1-StrUtils.pas>>
首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas
功能 返回两个字符串是否相似
说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写
参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc
例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiC |
2009-04-02 14:14 名称 类型 说明
abort 函数 引起放弃的意外处理
abs 函数 绝对值函数
addexitproc 函数 将一过程添加到运行时库的结束过程表中
addr 函数 返回指定对象的地址
adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列
align 属性 使控件位于窗口某部分
alignment 属性 控件标签的文字位置
allocmem 函数 在堆栈上分配给定大小的块
allowgrayed 属性 允许一个灰度选择
ansicomparestr 函数 比较字符串（区分大小写）
|
2009-04-02 14:13 ◇[DELPHI]转换函数的定义及说明
datetimetofiledate (datetime:Tdatetime):longint; 将Tdatetime格式的日期时间值转换成DOS格式的日期时间值
datetimetostr (datetime:Tdatetime):string; 将Tdatatime格式变量转换成字符串，如果datetime参数不包含日期值，返回字符串日期显示成为00/00/00，如果datetime参数中没有时间值，返回字符串中的时间部分显示成为00：00：00 AM
datetimetostring (var result string;
const format:string;
datetime:Tdatetime); 根据给定的格式字符串转换时间和日期值，result为结 |
2009-04-02 14:12 function NumToChar(const n: Real): string; //可以到万亿，并且可以随便扩大范围
const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';
cCha:array[0..1, 0..12]of string =
(( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','零万','零亿','亿万','零元'),
( '元','零','零','零','万','亿 |
2009-04-02 14:12 得到WINDOWS的SYSTEM路径:
方法:
var
MySysPath : PCHAR ;
begin
GetMem(MySysPath,255);
|
2009-04-02 14:10 作者 : gkrong
标题 : 网络函数大全
{=========================================================================
功 能: 网络函数库
时 间: 2002/10/02
版 本: 1.0
=========================================================================}
unit Net;
interface
uses
SysUtils
,Windows
,dialogs
,winsock
,Classes
,ComObj
,WinInet;
//得到本机的局域网Ip地址
Function GetLocalIp(var LocalIp:string): Boolean;
//通过Ip |
2009-04-02 13:56 Format是一个很常用，却又似乎很烦的方法，本文试图对这个方法的帮助进行一些翻译，
让它有一个完整的概貌，以供大家查询之用：
首先看它的声明：
function Format(const Format: string; const Args: array of const): string; overload;
事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，
但并不多用，所以这里只对第一个介绍：
function Format(const Format: string; const Args: array of const): string; overload;
Format参数是一个格式字符 |
| | |
