![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
字符串
seagull327
若大的世界
展开
-
Textout
<br />varDH:HDC;TheT:string;begin //DoLoop; DH:=GetDC(0); TheT:='逗你玩!'; setBkmode(DH,TRANSPARENT); SetTextColor(DH,RGB(255,0,0)); Textout(DH,screen.Width -280 ,550,pchar(TheT),35);end;原创 2011-03-22 20:05:00 · 542 阅读 · 0 评论 -
中文标点的Unicode编码
0b7·18300d7×2152014—82122018‘82162019’8217201c“8220201d”82212026…82303001、122893002。转载 2013-11-08 01:24:20 · 1872 阅读 · 0 评论 -
分离包含空格字符串[xe & D7]
xevar s: string; sList: TStringList;begin s := 'aaa,bbb,cc c,dd dd,eee'; sList := TStringList.Create; sList.StrictDelimiter := True; //Delph7无此属性 sList.Delimiter := ','; sList.Delimi原创 2013-11-20 01:03:38 · 1521 阅读 · 0 评论 -
2012-2013下学期八年级期末考试成绩公布表
2012-2013下学期八年级期末考试成绩公布表学号班考号语文数学英语物理政治历史生物地理总分春中春1名末名二考名中名次21011200197105110943663.59769556.75327682102120498原创 2013-06-29 02:31:17 · 17201 阅读 · 0 评论 -
StringList存入时忽略相同元素
//避免重复值var List: TStringList;begin List := TStringList.Create; List.Add('aaa'); List.Sorted := True; //需要先指定排序 List.Duplicates := dupIgnore; //如有重复值则放弃 List.Add('aaa0'); List.add('aaa'原创 2013-04-26 21:00:40 · 1294 阅读 · 0 评论 -
Delphi - 字符串 详解
AnsiString 和 WideString的区别.好这里先留给大家想想,我讲完了,大家就应该知道了.嘿嘿.首先分类:1 ShortString,可以容纳255个字符,主要为了老版本兼容2 AnsiString,可以容纳2的31次方个字符,D2009前默认的String类型3 UnicodeString,可以容纳2的30次方个字符,D2009及以后的默认String类型4转载 2012-02-09 23:56:14 · 1410 阅读 · 0 评论 -
SmallTOBig
function SmallTOBig(small: real): string;var SmallMonth, BigMonth: string; wei1, qianwei1: string[2]; qianwei, dianweizhi, qian: integer;begin qianwei := -2; Smallmonth := formatflo转载 2011-10-28 16:28:26 · 803 阅读 · 0 评论 -
StrToHex
function strTohex(sChr: string): string;var i, d: integer;begin d := 0; for i := 1 to Length(sChr) do begin if Ord(schr[i]) > 128 then begin d := d + 1; if d = 2 t原创 2011-06-13 19:17:00 · 1043 阅读 · 0 评论 -
StringToHex&HexCharToHex
//16进制字符转整数,//16进制字符与字符串转换中间函数function HexCharToInt(HexToken: char): integer;begin if HexToken > #97 then HexToken := Chr(Ord(HexToken) - 32); Result := 0; if (HexToken > #47) and (原创 2011-06-12 19:07:00 · 6324 阅读 · 0 评论 -
format常用用法
<br />format常用用法 <br /> <br />Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译<br />,让它有一个完整的概貌,以供大家查询之用:<br />首先看它的声明:<br />function Format(const转载 2011-02-15 19:09:00 · 632 阅读 · 0 评论 -
function MD5File
function MD5File(FileName: string): string;var Md5: TIdHashMessageDigest5; //uses IdHashMessageDigest FS: TMemoryStream;begin R原创 2011-07-18 15:20:54 · 530 阅读 · 0 评论 -
ByteToStr
function ByteToStr(const i64Size:Int64):string;const i64GB=1024*1024*1024; i64MB=1024*1024; i64KB=1024;begin if i64Size div原创 2011-07-20 23:59:29 · 1775 阅读 · 0 评论 -
目录拷贝、删除和搬移的操作
<br />目录拷贝、删除和搬移的操作 1、拷贝目录 为了能拷贝目录下带有子目录的情况,先定义一个辅助的拷贝函数,它是递归执行的,直到把目录下的所有文件和子目录都拷贝完。 1.1拷贝目录的递归辅助函数:DoCopyDirfunction DoCopyDir(sDirName:String;sToDirName:String):Boolean;varhFindFile:Cardinal;t,tfile:String;sCurDir:String[2原创 2011-03-31 20:25:00 · 739 阅读 · 0 评论 -
Unicode 字符
unit unUnicodeMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ImgList, Grids;type TForm1 = class(TForm) Strin转载 2013-11-30 21:27:26 · 858 阅读 · 0 评论