原来的Delphi中有两种字符串:AnsiString和WideString.默认的string即AnsiString.而在Delphi 2009中,新增加了一种UnicodeString.为什么不沿用之前的WideString呢?WideString其实是为了方便使用COM而产生的,就是BSTR.BSTR没有引用计数,效率较低.而UnicodeString才是AnsiString的真正unicode版本.于是,Delphi 2009就有了三种字符串类型:AnsiString.WideStrin…

Delphi 7和XE中间有好几个版本号,可都不太流行,一是由于Delphi有些边缘化,二是7在XP环境下是近乎完美的版本号.市场上关于delphi的书越来越少,提供从7升级到XE介绍的资料差点儿没用.这里我试着列举一下7和XE的差异和注意事项,给须要升级的朋友一些线索. 1. 7和XE是能够共存的,7的project文件是.dpr,XE的是.dproj,用XE打开dpr文件会提示升级,自己主动创建新的项目文件.XE会创建debug和history文件夹,编译后的Exe文件是放在debug文件夹…

重新书写了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);…

说到网页采集,通常大家以为到网上偷数据,然后把到收集到的数据挂到自己网上去.其实也可以将采集到的数据做为公司的参考,或把收集的数据跟自己公司的业务做对比等.目前网页采集多为3P代码为多(3P即ASP.PHP .JSP).用得最有代表的就动易科技公司BBS中新闻采集系统,和网上流传的新浪新闻采集系统等都是用ASP程序来使用,但速度从理论上来说不是很好.如果尝试用其它软件的多线程采集是不是更快?答案是肯定的.用DELPHI.VC.VB.JB都可以,PB似乎比较不好做.以下用DELPHI来解释采集网页…

在Delphi 开发中,常常应用到窗体消息传递,以达成某种操作要求,以下列举一个应用的例子,供大家参考. 自定义过程/函数方法://发送字符串到指字句柄的窗口中 (接收窗体需用发送时的消息常量WM_COPYDATA)procedure SendMessageData(AHandle: THandle; AStr: String);var sData: TCopyDataStruct;begin sData.cbData := Length(AStr) + 1; //为传递的数据分配内存 GetM…

//-----------------------------------------------//16进制字符转整数,16进制字符与字符串转换中间函数//-----------------------------------------------function HexToInt(hex: string): integer;var  i: integer;  function Ncf(num, f: integer): integer;  var    i: integer;  begin…

1 字符串 >>string =unicodeString 字母的处理要定义AnsiString了 >>PChar =PWidechar >>str='普通汉字' str[1]='普',而不是str[1]+str[2]了 >>4字节的一个汉字,length=2,双字节的一个汉字,length=1 >>string 和 shorstring 不能直接赋值了.需要类型转换. 2 CharInSet key in [ ] 要求替换为 CharInSet…

uses EncdDecd; ///将Bitmap位图转化为base64字符串 function BitmapToString(img:TBitmap):string ; var ms:TMemoryStream; ss:TStringStream; s:string; begin ms := TMemoryStream.Create; img.SaveToStream(ms); ss := TStringStream.Create(''); ms.Position:=0; EncodeStre…

procedure TForm23.Button4Click(Sender: TObject); var pstr:Pchar; mestr,Str1:string; FS:TFilestream; meint,PoStr,I,LenStr:integer; Fpos:Int64; TT,IsDay:Boolean; Liststr:TStringList; begin if not Self.OpenDialog1.Execute then Exit; FS:=TFileStream.Crea…

unit Unit1; interface uses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type  TForm1 = class(TForm)    test: TMemo;    Button1: TButton;    Memo…