1.String转化成PChar 例: var str: string; pStr:PChar; ... pStr := PChar(str); 2.PChar转String 例: var pStr:PChar; str:string; ... str := strPas(pStr);

http://www.cnblogs.com/ywangzi/archive/2012/12/12/2815219.html   Delphi进制转换(二进制/十进制/十六进制)  2009-11-27 11:42:24|  分类: 计算机知识 |  标签: |字号大中小 订阅 . Delphi进制转换(二进制/十进制/十六进制) 2008-08-29 10:24 一.完全用API完成:..uses Windows; function IntToStr(I: integer): string;

delphi c#语法转换 delphi c#       s:array[1..5] of integer TIArr  = array of integer; Berlin有这个新功能 TArray<Integer>; int[]  TBytes  byte[]                            

http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=104986 試看看 這個是豬寶寶從網路上抄來的 檢視純文字版列印? function Cn2Big(CnStr: string): string; var Len: Integer; begin Len := Length(CnStr); SetLength(Result, Len); LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONA

新版的 Delphi 應該不用這麼麻煩, 據說只要直接在 AnsiString, WideString, UTF8String 之間 assign 時就會自動幫你做轉換 (沒用過, 不知道是不是真的這樣就可以). 不過... 還在用 Delphi 3/5, 所以... 只好自己來轉: unit util_utf8; interface uses Windows; type UTF8String = AnsiString; function AnsiToWide(const S: AnsiStri

重新书写了float型转为十六进制的delphi程序 Function FloatToHex(Value: single): string; var l, i: integer; HexText,tempHexText,temp: String; begin SetLength(HexText, 2 * SizeOf(Value)); BinToHex(pchar(@Value), pchar(@HexText[1]), SizeOf(Value)); l := length(HexText);

delphi有提供十进制转换成十六进制的函数: IntToStr();   返回值为String // 十进制转十六进制 var i: integer; str: string; begin i := 255; ShowMessage(IntToHex(I, 2)); //FF 2表示返回的位数 // 另外,Formart也有把十进制用十六进制输出的功能 str := Format('%.2x', [i]); ShowMessage(str); // FF 返回结果跟IntToStr()函数想一

1.16 TO 10 ******************************************************** 16转10,否则输出-1 function Hex(c: char): Integer;var  x: Integer;begin  if ( Ord(c)>= Ord('0')) and (Ord(c) <= Ord('9')) then    x:= Ord(c) - Ord('0')  else if (Ord(c) >= Ord('a')) an

获取Unix时间戳 http://www.cnblogs.com/findumars/p/4716753.html 最简单准确一句话 Result:=IntToStr(  DateTimeToUnix(now())-28800); 还有函数UnixToDateTime,在文件system.DateUtils c++builder // 将Java中的日期转换为Delphi中的日期 TDateTime ConvertJavaDateTimeToDelphiDateTime(__int64 Valu

2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 var P: Pchar; //P 是指针 CSize: Cardinal; begin CSize := MAX_COMPUTERNAME_LENGTH + 1; GetMem(P, CSIze);//在这里你给 P 分配了一块内存. P := '4321'; //这里你将 P 指向另一处含有常量 '4321' 的内存.此时先前给 P 分配的内存 //已经成了“孤岛”,就是

{*------------------------------------------------ 金额大小写转换函数 @author 王云盼 @version V1506.01 在delphi7测试OK -------------------------------------------------} unit UnTranRMB; //主要是考虑数字的小数部分,和大写金额的零 interface uses Windows, Messages, SysUtils, Variants, Cl

{************************************************************************** 名称: BaseImage 参数: fn: TFilename 返回值: string 功能: 将fn文件转换成Base64编码,返回值为编码 **************************************************************************}uses EncdDecd; function Bas

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

Delphi有三种类型的字符: AnsiChar这是标准的1字节的ANSI字符,程序员都对它比较熟悉. WideChar这是2字节的Unicode字符. Char在目前相当于AnsiChar,但在Delphi 2010 以后版本中相当于WideChar. 记住因为一个字符在长度上并不表示一个字节,所以不能在应用程序中对字符长度进行硬编码, 而应该使用Sizeof()函数.注意Sizeof()标准函数返回类型或实例的字节长度. Delphi有下列几种不同的字符串类型 String: ShortSt

1.Delphi 的 Utf-8 转换 - findumars - 博客园.html https://www.cnblogs.com/findumars/archive/2013/12/26/3492891.html 新版的 Delphi 應該不用這麼麻煩, 據說只要直接在 AnsiString, WideString, UTF8String 之間 assign 時就會自動幫你做轉換 (沒用過, 不知道是不是真的這樣就可以). 不過... 還在用 Delphi 3/5, 所以... 只好自己來轉

varc: 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}ShowMes

一.开使你的第一个DLL专案 1.File->Close all->File->New﹝DLL﹞ 代码: //自动产生Code如下 library Project2; //这有段废话 uses SysUtils, Classes; {$R *.RES} begin end. 2.加个Func进来: 代码: library Project2; uses SysUtils, Classes; Function MyMax ( X , Y : integer ) : integer ; std

文章编目 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.

unit UnitWinUtils; interface uses Windows; Type TDWA128=Array [..] of LongWord; TDWA256=Array [..] of LongWord; TDWA512=Array [..] of LongWord; TDWA1024=Array [..] of LongWord; TDWA4096=..] of LongWord; TDWA32768=..] of LongWord; function GetAllChild

一.开使你的第一个DLL专案  1.File->Close all->File->New﹝DLL﹞代码: //自动产生Code如下  library Project2;  //这有段废话  uses  SysUtils,  Classes; {$R *.RES} begin  end. 2.加个Func进来:  代码: library Project2;  uses  SysUtils,  Classes; Function MyMax ( X , Y : integer ) : int