转帖:delphi字符串函数大全 2009-11-17 16:43:55 分类: delphi字符串函数大全 ━━━━━━━━━━━━━━━━━━━━━首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas功能 返回字符串S转换成全局标识说明 如果字符串非法将触发异常参考 fuction Windows.Succeeded例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Te

我们可以通过ClassRegistry单元的TClassRegistry类很轻松的根据字符串创建出对象. 下面是该类几个主要函数的说明: // 获取TClassRegistry自身的单例引用class function GetClassRegistry: TClassRegistry;// 注册需要动态创建的类procedure RegisterClass(ClassName: UnicodeString; ObjectClass: TClass); overload;// 判断给定的类名是否注

Delphi常用字符串函数   一.字符转换函数1.ord(input[i])返回字符表达式 input 左端起第 I 字符的ASCII 码值.2.CHAR()将ASCII 码转换为字符.如果没有输入0 ~ 255 之间的ASCII 码值,CHAR() 返回NULL .3.LOWER()和UPPER()LOWER()将字符串全部转为小写:UPPER()将字符串全部转为大写.4.STR()把数值型数据转换为字符型数据.STR (<float_expression>[,length[, <d

  //字符串转成16进制代码function strToHexStr(str:string):string;varc:char;ss:string;i:integer;beginwhile str<>'' do begin    c:=str[1];    ss:=ss+format('%0x',[ord(c)]);    delete(str,1,1);end;strtohexStr:= ss;end; //16进制字符串转换成字符串function HexStrToStr(const S

参考:http://my.oschina.net/kavensu/blog/193719 以下的各种方法都是我在Delphi 6的环境下测试成功的,可能根据你的开发环境.不同的上下文语境……有一些可能会出现问题,以自己在使用的时候进行具体的测试为准 Char数组和String的相互转换的另一种方法和注意事项请看下一篇博客 同时建议结合以下的博客一起理解: <Delphi字符串的基本操作>和<Delphi中的各种字符串.String.PChar.Char数组> 0.前提条件 var

最近在使用Delphi开发一种应用系统的集成开发环境.其中需要实现一个字符串拆分功能,方法基本原型应该是:procedure SplitString(src: string ; ch: Char; var stringList: TStringList);目的是使用字符ch拆分src字符串,把拆分的结果放入stringList中.例如:src:='abc|def|ghi'; ch='|'的时候,返回的stringList应该是{abc, def, ghi}.开始的时候,我是使用获取ch在src中

最近在使用Delphi开发一种应用系统的集成开发环境.其中需要实现一个字符串拆分功能,方法基本原型应该是:procedure SplitString(src: string ; ch: Char; var stringList: TStringList);目的是使用字符ch拆分src字符串,把拆分的结果放入stringList中.例如:src:='abc|def|ghi'; ch='|'的时候,返回的stringList应该是{abc, def, ghi}.开始的时候,我是使用获取ch在src中

函数功能:当Str不满Len长度时,在Str前自动填充PadStr以补足长度,例子如下: Str:原字符串 Len:补多长 PadStr:用什么补齐,比如‘0’ function PadString(Str: string; Len: Integer; PadStr: Char): string; begin Result:= StringOfChar(PadStr, Len - Length(Str)) + Str; end;

//1,函数代码{判断字符串是否包含汉字// judgeStr:要判断的字符串//posInt:第一个汉字位置}function TForm2.IsHaveChinese(judgeStr: string; var posInt: integer): boolean;var  p: PWideChar; // 要判断的字符  count: integer; // 包含汉字位置  isHave: boolean; // 是否包含汉字返回值begin   isHave := false; // 是否

通过字符串创建窗体类对象 1.需要在程序初始化的时候将类注册,注册到对象 RegGroups:(TRegGroups)中,以便查找. 注册类使用的函数:RegisterClass ,窗体初始化操作放在initialization 中. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TfrmReg = class(

procedure Hex2Png(str: string; out png: TPngObject); var stream: TMemoryStream; begin if not Assigned(png) then png := TPngObject.Create; stream := TMemoryStream.Create; stream.SetSize(Length(str) ); HexToBin(PChar(str), stream.Memory, stream.Size);

function StrToList(const sString, Token: string): TStringList;var sTmp: string; iPos: Integer; Toklen: Integer;begin Toklen := Length(Token); Result := TStringList.Create; sTmp := sString; iPos := Pos(Token, sTmp); while iPos <> 0 do begin Result.Ad

function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字 var i:integer; begin result:=true; //设置返回值为 是(真) Vaule:=trim(Vaule); //去空格 to length(Vaule) do //准备循环 begin 中的任一个 begin result:=false; //返回值 不是(假) exit; //退出函数 end; end; end; function IsUpperC

var FReQuestM := TMemoryStream FReQuestM.Write(PChar(FcVoucherXML)^, Length(FcVoucherXML)); 这样就读到流中了.

myStr:=StringReplace(myStr, chr(13)+chr(10), '', [rfReplaceAll]);//删除回车      myStr:=StringReplace(myStr, ' ', '', [rfReplaceAll]);//删除空格      myStr:=StringReplace(myStr, chr(9), '', [rfReplaceAll]);//删除Tab http://blog.sina.com.cn/s/blog_9e2e840501018

在程序代码里,用单引号 引起来的两个单引号,经过编译后是一个单引号.'''ok''':编译后表示'ok';

function TStringHelper.Split(const Separator: array of string; Count: Integer; Options: TStringSplitOptions): TArray<string>; var P: Integer; Total: Integer; Index: Integer; S, ToSplit: string; begin Total := ; ToSplit := Self; P := ToSplit.IndexOfA

本文目标: 了解Delphi的字符串类型 字符编码的检测与转换 简体繁体转换 0. 导言 看完“.Net与字符编码(理论篇)”,我们明白了字符是自然语言中的最小单位,在存储和传输的过程中可以使用三种编码方法:ASCII.DBCS以及Unicode.常见的DBCS编码有GB2312.GBK和BIG5,而UTF-8.UTF-16和UTF-32则是最常用的Unicode编码类型. 1. 字符串类型 在Delphi中有两种字符串类型:AnsiString和WideString.AnsiString被称为

//注意:Delphi2010以下版本默认的字符编码是ANSI,VS2010的默认编码是UTF-8,delphi版字符串事先须经过AnsiToUtf8()转码才能跟C#版得到的十六进制字符串显示结果一致. Delphi版: function StrToHex(AStr: string): string; var i : Integer; ch:char; begin Result:=''; to length(AStr) do begin ch:=AStr[i]; Result:=Result+

一.Delphi 2009 之前的字符串(不支持 Unicode): Delphi 2009 之前的字符串分为 3 种:ShortString.AnsiString.WideString. [ShortString] ShortString 是一种比较古老的 Pascal 字符串格式,它最多只能容纳 255 个字节的字符.当我们声明一个 ShortString 类型的变量时,Delphi 会自动申请 256 个字节的内存空间给该变量,其中第一个字节用来存放字符串的长度,后面的 255个字节用来存

文章编目 1. 字符串优化 1.1. 不重复初始化 1.2. 使用SetLength预分配长字符串(AnsiString) 1.3. 字符串与动态数组的线程安全(Thread Safety) 1.4. 避免使用短字符串 1.5. 避免使用copy函数 1.6. 总是使用长字符串,必要时转换为pchar 2. 整数代码优化 2.1. 尽量使用32位变量 2.2. 避免使用子界类型 2.3. 简化表达式 2.4. 不再畏惧乘法 2.5. 临时子界类型 2.6. 大整数运算 3. 浮点优化 3.1.