var SS : TStringList;begin SS := TStringList.Create; SS.Add('bbbbbb'); SS.Add('aaaaaa'); SS.Add('dddddd'); SS.Add(
function Tconfigform.GetLocalIP: string; //获取本机IP地址type TaPInAddr = array[0..255] of PInAddr; //Use Winsock.pas PaPInAddr = ^TaPInAddr;var phe: PHostEnt;  
procedure TForm1.Button1Click(Sender: TObject);var aName: array[0..100] of char; WSData: Twsadata; a1, a2, a3, a4: byte; p: PHostEnt; Comput
procedure TForm1.Button2Click(Sender: TObject);var date: SYSTEMTIME;begin GetLocalTime(date); showmessage(inttostr(date.wMonth ));end;
procedure TForm1.Button1Click(Sender: TObject);var tList: TStringlist;s1: string;l: Integer;begin try s1 := '12,11212,q,qweqwe,qw'; tList := TStringList.Cre
提示信息框(MessageBox)的应用 应用程序中的提示信息处理程序是非常出重要的部分,用户要知道他输入的资料到底正不正确 ,或者是应用程序有一些提示信息要告诉用户,都必须通过提示信息处理程序来显示适当的信息, 让用户了解下一步该如何配置。提示信息有很多种类,包括警告,错误,提示,确认,重试等。不 同种类的提示信息框适合用在各种不同的情况。 在C++Builder中开发提示信息框只
以下代码读取Ini文件的所有信息 function TFrm_Main.AddIniInfoList: Integer;var IniInfoList: tstringlist; i: Integer; SecTionName: string; Titem: TListItem;begin TeListView1.Clear; 
MyQuery1.SQL.Clear; MyQuery1.Close; MyQuery1.SQL.Add('SET NAMES GB2312 '); MyQuery1.Execute; MyQuery1.Close; MyQuery1.SQL.Clear; MyQuery1.SQL.Add('select *
var Sql_Text: string; s, FileName: string; hc: TIcon; Bitmap: TBitmap; path1: string; path2: string; FileInfo: TSHFileInfo; BMPHead1: tagBITMAPFILEHEA
摘要本文详细介绍了ICO文件的格式,以及利用Jpeg、BMP等格式的24位真彩色图片,生成图标的一种方法。 关键词图标,位图,24位真彩色 引言 Delphi是目前广泛使用的可视化开发工具,它自身带有一个图片、图标的编辑器——ImageEditor,但是到Delphi7为止,都不能进行真彩图标的编辑,可以说是一个遗憾。笔者通过对图标文件的研究,实现了产生24位真彩色图标。 图标文件的格式
//用 Bitmap 显示图像var g: TGPGraphics; bit: TGPBitmap;begin g := TGPGraphics.Create(Canvas.Handle); bit := TGPBitmap.Create('c:\temp\x.jpg'); g.DrawImage(bit, 11, 11); {默认大小竟
procedure clearmemory;begin if win32platform = ver_platform_win32_nt then begin  
delphi指针简单入门: 看一个指针用法的例子: 1 var 2 X, Y: Integer; &nbs
Delphi TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。 常规的用法大家都知道,现在来讨论它的一些高级的用法。 先把要讨论的几个属性列出来: 1、CommaText 2、Delimiter & DelimitedText 3、Names & values & valueFromIndex 先看第一个:CommaText。怎么用呢?用代码说话
Delphi中的INI文件编程 Delphi提供了读写INI文件的方法,Delphi操作INI文件最为简洁,这是因为Delphi提供了一个TInifile类,使我们可以非常灵活的处理INI文件。 一、INI文件的结构:;注释[小节名]关键字=值... INI文件允许有多个小节,每个小节又允许有多个关键字,“=”后面是该关键字的值。 值的类型有三
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;&n
有谁能说出这两个类型的区别吗?后来大脚兄解释说:WideString 以两位方式处理字符串,而 String 则一位一位处理。不过,这意味着什么呢? 如果你只开发英文版的软件,那无所谓,这两个类型没有任何区别。但是如果使用了中文,那就要严格区分这两个类型的区别了,否则就像我前几天那样,为了乱码的问题百思不得其解。 聪明一点的朋友会说:我知道它们的区别,所以凡是用到中文的地方我全都用 WideS
二:字符串转换 以上介绍了Delphi中的四类字符串的定义和使用。由于各类函数对字符串参数类型要求不一,这就需要进行字符串类型转换。 1. 可以用StrPas将以null结束的字符串转换为Pascal短字符串。StrpCopy则完成相反的转换。 2. 因为长字符串以null结束,所以可以用强制类型转换将长字符串转换成Pchar类型。用法是:Pchar(s),s是一个长字
procedure TForm1.Button7Click(Sender: TObject);var FromF, ToF: file; NumRead, NumWritten: dWord; Buf: array[1..2048] of Char; countbuf: array of Char; FromFile, ToFile: s
procedure BlockRead(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]);DescriptionF is an untyped file variable, Buf is any variable, Count is an expression of type Integer, and Amt
procedure TForm1.FileCopy(const FromFile, ToFile: string); var FromF, ToF: file; NumRead, NumWritten: dWord; Buf: array[1..2049] of Char;begin AssignFile(FromF, FromFile);&nbs
TStream 是一个抽象的基类, 不能直接生成对象. 在具体的应用中, 主要使用它的子孙类:TFileStream: 文件流TStringStream: 字符串流TMemoryStream: 内存流TResourceStream: 资源文件流THandleStream: 是 TFileStream 的父类、TStream 的子类TCustomMemoryStream: 是 TMemoryStre
{ unit ClassCallback; &nb
“回调机制”是window 在执行某个API函数的过程中,调用指定的一个函数(回调函数)。 比如:你有一个任务,但是有一部分你不会做,或者说不愿做,所以我来帮你做这部分,你做你其它的任务工作或者等着我的消息,但是当我完成的时候我要通知你我做好了,你可以用了,我怎么通知你呢?你给我一部手机,让我做完后给你打电话,我就打给你了,你拿到我的成果加到你的工作中,继续完成其它的工作.这就叫回叫,手机是
type EnumWindowsProc = function (Hwnd: THandle; Param: Pointer): Boolean; stdcall;function GetTitle (Hwnd: THandle; Param: Pointer): Boolean; stdcall;var Text: string;begin&nb
procedure TForm1.Button3Click(Sender: TObject);var shfileinfo:tshfileinfo; icon:ticon;begin icon := ticon.create; try if opendialog1.execute then &
procedure TForm1.FormShow(Sender: TObject);begin AnimateWindow(handle,500,AW_Center); // AW_BLEND , AW_Center // AW_VER_POSITIVE , AW_HOR_POSITIVE
ShowButtons := False;//不显示子结点的'+' ShowRoot := False; //不显示根结点的'+' ShowLines := False; //不显示Tree
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) private &nbs
//几乎每一个提取资源的例子都用到了 HInstance, 做个对比测试: var h,a,f: Cardinal; begin h := HInstance; a := Application.Handle; f := Self.Handle; ShowMessage(IntToStr(h)); {4194304} ShowMessage(IntToStr
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号