Delphi ASC转换成unicode
//ASC转换成unicodefunction EncodeUniCode(Str:WideString):string; //字符串－>PDUvar i, len:Integer; cur: Integer;begin Result := ''; len := Length(Str); i := 1; while i <= len do begin cur := ord(Str[i]); Result := Result+In
Delphi
Delphi 取Windows登录用户名
//取本机的计算机名{ ComputerName }function ComputerName: string;var FStr: PChar; FSize: Cardinal;begin FSize := 255; GetMem(FStr, FSize); Windows.GetComputerName(FStr, FSize); Result := FStr; FreeMem(FStr);end;//取Windows登录用户名{ WinUserName }f
delphi java 日期 转换 获取Unix时间戳
uses system.DateUtils;//将Java中的日期转换为Delphi中的日期function ConvertJavaDateTimeToDelphiDateTime(Value: Int64): TDateTime;begin Result := IncMilliSecond(StrToDate('1970-01-01'), Value);end;//将Delphi中的日期转换为Java中的日期function ConvertDelphiDateTimeToJavaD
Delphi 先加载原内容在写入增加新内容
{先附上原内容在写入新内容}Procedure AppendTxt(Str:String;FileName:String);Var F:Textfile;Begin AssignFile(F, FileName); Append(F); {附上原来的内容以免原内容被清空} Writeln(F, Str); {把内容 Ser 写入文件F } Closefile(F);End;
Delphi 新建一个TXT文档函数
{新建一个TXT文档}Procedure NewTxt(FileName:String);Var F : Textfile; {定义 F 为 Textfile}Begin AssignFile(F,FileName); {将文件名与变量 F 关联} ReWrite(F); {创建Txt文档并命名为 “FileName ” } Closefile(F); {关闭文件 F}End;
Delphi 根据开始和结束符取得中间字符串
// 根据开始和结束符取得中间字符串function CenterStr(const strSrc : String; const strBegin : String; const strEnd : String) : String;var iPosBegin, iPosEnd: integer; strSrcLow, strBeginLow, strEndLow: String;begin strSrcLow := LowerCase(strSrc); strBeginLow
Delphi Concat 字符串函数
Delphi-Concat 函数函数名称 Concat所在单元 System函数原型 function Concat ( const String1 {,String2 ...} : string ) : string;函数功能 返回由将多个字符串连接成的一个字符串.函数备注 类似于多个字符串直接用 “ + ” 相加的操作，但是效率比较直接加高。举例如下 var s: string; begin s := Concat('www.', 'hhit.',
Delphi Copy 字符串函数
Delphi-Copy 函数函数名称 Copy所在单元 System函数原型 1 function Copy ( Source : string; StartChar, Count : Integer ) : string;2 function Copy ( Source : array; StartIndex, Count : Integer ) : array;函数功能 根据指定起始位置和数量,返回一个字符串的子串或者一个数组的子数组. 函数备注 第