以下是为您整理出来关于【delphi in】合集内容，如果觉得还不错，请帮忙转发推荐。
uses SysUtils; function TCommonAll.GetGUID: string;var LTep: TGUID; sGUID: string;begin CreateGUID(LTep); sGUID := GUIDToString(LTep); sGUID := StringReplace(sGUID, ‘-‘, ‘‘, [rfReplaceAll]); sGUID := Copy(sGUID, 2, Length(sGUID) - 2); Result := sGUID;end;原文：http://www.cnblogs.com/xwgcxk/p/7233683.html
在delphi开发中，经常需要用到窗体中控件的name名来进行对象方法或属性的调用，所以如何对delphi窗体进行简洁，清楚，完整的描述就很重要。最好能不看界面也能进行界面编码，具体如下表所示：xxx界面控件类型name captiontext备注 把控件的常用属性作为列名，列名可以扩展，这样就不需要在编码时不断查询控件对象管理器了。 原文：https://www.cnblogs.com/zxwbky/p/10057612.html
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end; typeTMyRec = recordId: Integer;Name : String;Age : Integer;end;PTMyRec = ^TMyRec; varForm1: TForm1;implementation{$R *.dfm}procedure TFor...
MD5需要引入system.Hash，BASE64需要引入System.NetEncoding，这两个单元应该只有高版本的DELPHI IDE才有（貌似XE5以上版本才有）。如果是D7的话，找第三方的库。 procedure TForm19.Button8Click(Sender: TObject); //md5加密beginEdit3.Clear;Edit3.Text := THashMD5.GetHashString(Edit2.Text); end;procedure TForm19.Button9Click(Sender: TObject); // base64加密varbase64: TBase64Encoding; beginbase64 := TBase64Encodi...
procedure TForm1.FormCreate(Sender: TObject);begin BorderStyle := bsNone; Brush.Style := bsClear;end;原文：http://www.cnblogs.com/cq5811809/p/3718648.html
主窗体FormShow事件(主窗体为Form1为例,Form2为登陆窗体) procedure TForm1.FormShow(Sender: TObject); beginif Form2.ShowModal=mrOk thenbeginForm2.Close;endelseApplication.Terminate; end;登陆窗的通过验证 procedure TForm2.Button1Click(Sender: TObject); beginif Edit1.Text = ‘通过‘thenForm2.ModalResult := mrOk end;原文：http://www.cnblogs.com/jijm123/p/7881024.html
TJPEGScale = (jsFullSize, jsHalf, jsQuarter, jsEighth);//图片大小（全部，1/2，1/4，1/8）TBitmap.pixelFormat:=pf8bit;//图片位数（8，24） 给大家提供几个常用的图象格式转换方法和其转换函数希望可以对你有帮助1. ICO图标转换BMP格式2. 32x32 BMP格式图象转换为 ICO格式3.转换BMP->JPEG文件格式4.JPEG 转换为BMP函数5.Bmp转换为JPEG文件格式函数------------------------------------------------------------------------...
位于Standard选项卡上，它是对EDIT控件的扩展，可以对多行文本进行显示、输入 和编辑. Lines属性： 该属性实际上为TStrings类型的对象，用来存放Memo对象的文本 TStrings有一个缺省的属性Strings，它的定义为： property strings[index:integer]:string; 其中，Index表示字符串的索引值，从0开始，到TStrings对象中字符串的最大行 数减1为止。 TStrings的主要方法： procedure add(const s:string);//在尾部添加一个字符串 pro...
//单字符 Char、AnsiChar (在目前版本(2007)中, 它们是一回事, 只有 1 字节大小)var c: Char; {Char 类型的取值范围是: #0..#255, 用十六进制表示是: #$0..#$FF}begin {用十进制方式赋值:} c := #65; ShowMessage(c); {A} {用十六进制方式赋值:} c := #$41; ShowMessage(c); {A} {用 Chr 函数代替 # 符号} c := Chr(65); ShowMessage(c); {A} c := Chr($41); ShowMessage(c); {A} {Char 长度当然会是 1} ...
if语句主要来检测一个条件，并根据这个条件是True或者False来执行一段代码；1234567891011121314151617var I: Integer; FileGood: Boolean;begin FileGood := True; if FileGood then { 简洁的写法，判断FileGood是否为True} ShowMessage(‘True‘); { 上面的写法等同于下面} if FileGood = True then ShowMessage(‘True‘); if I > 0 then { 如果I大于0} DoSomething1 else if I < 0 then { 如果I小于...