Delphi/Pascal论坛 今日: 0|主题: 610|排名: 34 

1、取路径 1、取路径。  1.1  ExtractFilePath之类的返回路径。 原文链接（https://www.cnblogs.com/ZhouXiHong/archive/2007/01/30/634210.html） ExtractFileDrive ：返回完整文件名中的驱动器，如"C:" ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:\test\"ExtractFileDir：返回完整文件名中 ...

1、面向过程2、基于对象3、面向对象 　　抽象：将同类事物向上抽取的过程　　派生（继承）： 编程中的继承指的是类和类之间的关系，称为派生。　　封装：将不必要的暴漏的细节隐藏起来。　　多态：一类事物以多种形态存在 1 {*------------------------------------------------------------------------------ 2 1、 ...

Delphi UTF/URL编码/解码 UTF8Encode、UTF8Decode、URLEncode、URLDecode 一、URL简介 URL是网页的地址，比如 http://www.cnblogs.com。Web 浏览器通过 URL 从 web 服务器请求页面。 由于URL字符串常常会包含非ASCII字符，URL在传输过程中，往往出现错误。因此，可以将非字符串字符，让一些特殊ASCII字符组合，代替非 ...

一、例程：Delphi中独有的称呼，例程是将具体某个功能的代码进行封装表现形式： 　　1、过程 　　2、函数　　过程和函数的区别在于有没有返回值二、例程的作用 　　1、可以解决命名冲突问题 　　2、提高代码的重复使用率 　　3、提高代码可维护性三、使用历程 　　1、定义 1 procedure Demo1(); //过程 2 begin 3 ...

Delphi 格式化函数 Format 函数 和 FmtStr 过程 单元：SysUtils 一、Format 函数 功能：返回按指定方式格式化一个数组常量的字符形式 函数原型： function Format(const Format: string; const Args: array of const): string; begin FmtStr(Result, Format, Args); end; function Format(const Format: string; const ...

1、判断0~10之间，当循环I=3时候跳出当前循环，当I等于8时候，退出当前循环。 1 procedure Countand(); 2 var 3 I: Integer; 4 begin 5 for I := 0 to 10 do 6 begin 7 Writeln(I); 8 if I = 3 then 9 begin 10 Writeln('跳过当前'); 11 Continue; 12 end; 1 ...

  原始链接 I had recently spent some time playing around with the simple to use DelphiDetours package from Mahdi Safsafi https://github.com/MahdiSafsafi/DDetours   One missing feature is the ability to inject a DLL into an external process. This is something that I wanted to do for a proj ...

  一个程序分为两个部分：1、程序首部：program 来标识这是一个pascal程序  后面的是可执行文件的名称程序名称2、程序体：说明部分：数据先定义后使用执行部分：以begin开始，以end结束 之后一个.表示整个程序的结束   uses 项目引用的其他文件，系统创建的单元文件或是用户创建的的单元文件接口部分不能相 ...

一、运算符　　1、变量　　2、运算符**　　3、表达式   1、变量  变量解释：编程中最小的存储单元（空间），它的空间大小由它在声明时的数据类型决定。 1.1、声明 : 定义一个变量，告诉Delphi一个名字的存储空间 1 var 变量名:数据类型; 1.2、变量初始化（给变量的第一次赋值） 1 {赋值： 变量名:=变量的值;} ...

Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。它的前身，即是DOS时代盛行一时的“BorlandTurbo Pascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境（I ...

Delphi 10.2.2 之前，可以通过 IDE视觉设置的系统注册表项 修改字体和字体大小，因为 Delphi 10.2.2 IDE增加了主题，主题包含了字体信息， 此方法失效了。对于高分辨率屏幕，当Windows 字体缩放到 125%、200%或者更高的时候，默认字体太小了。直到昨天发布的 Delphi 10.3.3 才解决这个问题。 有两种方法可 ...

INDY10 BASE64编码 DELPHI自带的BASE64单元，在项目中使用发现非常没有效率，INDY10的好用。 uses IdCoderMIME BASE64编码类：TIdEncoderMIME BASE64编码接口 type TIdEncoder = class(TIdBaseComponent) public function Encode(const AIn: string; AByteEncoding: IIdTextEncoding = nil {$IFDEF STRING_I ...

Delphi 滚动条的使用介绍 1、DELPHI的滚动条默认发送消息格式： function TControl.Perform( Msg: Cardinal; WParam: WPARAM; LParam: LPARAM ): LRESULT; //如：Memo1.Perform(WM_HSCROLL, SB_LEFT, 0);   2、水平/垂直滚动条： 2.1 水平滚动条 消息 WM_HSCROLL SendMessage(Memo1.Handle, WM_HSCROLL, MAK ...

一、Delphi 安装 1.1、快速启动程序，去掉加载开始欢迎页。在快捷方式--目标中添加路径 -pDelphi之后加 -np(例如，rcadero\Studio\20.p\bin\bds.exe" -pDelphi -np)   　　       1.2、安装CnPack IDE (CnWizards 是 CnPack 项目组的主力产品之一，中文全称是 CnPack IDE 专家包，英文全称是 CnPack ID ...

delphi TStringList 用法详解//TStringList 常用方法与属性 :var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Strings1' ...

转载自：https://www.cnblogs.com/lackey/p/5411389.html delphi 自带的Timer控件，使用方便，但它的 OnTimer 事件是在主线程中引发的。 如果在事件中执行较耗时的代码，会引起主界面假死。故实现一个线程的Timer就有必要了。 TThreadTimer 基于 TSimpleThread 继承而来。 本例源码下载 unit uThreadTimer; int ...

转载自：https://www.cnblogs.com/lackey/p/10357331.html 在编程开发的时候，我们时常会调用windows本身的功能，如：检测网络通断，连接无线wifi等。 虽然，用 windows api 操作可以完美地完成这些操作，但是，函数参数太难了。令人望而生畏，不是普通开发者能办到的。 但是，我们可以用一种变通的方法，来解决这个问题， ...

转载自：https://www.cnblogs.com/xumenger/p/4440646.html 当线程对象的Execute()执行完毕，我们就认为此线程终止了。这时候，它会调用Delphi的一个标准例程EndThread()，这个例程再调用API函数ExitThread()。由ExitThread()来清除线程所占用的栈。 　　当结束使用TThread对象时，应该确保已经把这个Delphi对象从内存中清 ...

参考http://blog.chinaunix.net/uid-10535208-id-2949323.html 一、概述 　　Delphi提供了好几种对象以方便进行多线程编程。多线程应用程序有以下几方面的功能： 　　1.避免性能瓶颈：单线程应用程序在进行比较慢的操作如磁盘读写的时候，CPU必须停下来等待，直到该操作执行完毕。而多线程应用程序在进行比较慢的操作如磁盘 ...

DCOM架构: 服务端开发： 采用Delphi7+SQL2008 一、创建数据库和表   [sql] view plain copy   CREATE TABLE [dbo].[tb_Department](       [FKey] [uniqueidentifier] NOT NULL,       [FName] [varc ...