排序
delphi中按指定字符重复生成指定长度字符串
delphi中没有和VB的string函数相同的函数; 网上有人这么建议: var tmp :string; SetLength(tmp, n); //指定长度 FillChar(tmp[1], sizeof(tmp), '0'); //用0填充 需要注意的是fillchar函数的第...
2个月前delphi 判断是否是Hash
function IsHash(Hash: String): boolean;var i: integer;begin Result := false; if Hash = '' then exit; if Length(Hash) = 3...
2个月前delph 自带URL编码函数 TNetEncoding
USES NetEncoding;procedure TForm1.FormCreate(Sender: TObject);varSTR1:STRING;beginSTR1:= TNetEncoding.URL.Encode('中国',[],[],TEncoding.ANSI); //编码TEXT:= TNetEncoding.URL.Decode(...
2个月前delphi 判断指定字符串是否开头 StartsText用法
var URL := edtAddress.Text;if not StartsText('http', URL) then //判断是否是http 开头，如果不是则begin URL :=&nb...
2个月前delphi 检查字符串是不是 包含 中文和获取中文字符个数
function IsChineseText(const AStr:{$IFDEF UNICODE}string{$ELSE}WideString{$ENDIF}; const OutCharecterCountValAddr: PInteger = nil; const Out...
2个月前Delphi IPNumberIPV4
unit Unit5;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;type ...
2个月前Delphi 提取标签之间的字符串（重复标签）
Delphi 提取标签之间的字符串（重复标签）函数类型： 自定义函数函数说明：提取标签之间的字符串（重复标签）代码如下： Function sExtractBetweenTagsB(Const s, Las...
2个月前Delphi 为数字补充前缀0
标准的Format函数可以做同样的事情！Format（'％。10d'，[15]）将返回'0000000015'或者：function AddLeadingZeros(const Source: string; Len: Integer): string;var i: Integer;begin&n...
2个月前Delphi HTML转义
function torehtml(const strHTML: string): string;begin Result :=strHTML; Result := StringReplace(Result, ''', '"', [rfReplaceAll]); Result := Strin...
2个月前Delphi 如何从html格式的字符串中提取纯文本？
function StripHTMLTags(const strHTML: string): string;var P: PChar; InTag: Boolean; i, intResultLength: Integer;begin P := PChar(strHTML); Result := '...
2个月前
Delphi 如何从URL提取文件名？
//1function ExtractUrlFileName(const AUrl: string): string;varI: Integer;beginI := LastDelimiter(':/', AUrl);Result := Copy(AUrl, I + 1, MaxInt);end;procedure TForm3.FormCreate(Sen...
2个月前
Delphi 如何解析网址？
演示：unit Unit3;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vc...
2个月前Delphi 验证IP地址
//有点老旧了，就当是学习了function IsIPaddr(IP: string): Boolean;var Node: array[0..3] of Integer; tIP: string; tNode: string; tPos: Integer; tLen: In...
2个月前
Delphi 逐个分解后字符串加载到StringGrid1
procedure TForm1.sEdit1Change(Sender: TObject);procedure TForm1.sEdit1Change(Sender: TObject);var i: integer; str: string; c: char; arr: array[0..200, 0..20...
2个月前Delphi里面判断一个字符串在另一个字符串中出现的次数
function SubStrConut(mStr: string; mSub: string): Integer;{ 返回子字符串出现的次数 }begin Result := (Length(mStr) - Length(StringReplace(mStr, mSub, '', [rfRepla...
2个月前
Delphi 2009 查看所有 Unicode 字符
代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;type TForm1 = class(TForm)&n...
2个月前Delphi 2009 之 TStringBuilder 类[3]: Replace
Delphi 2009 之 TStringBuilder 类[3]: Replaceunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type&n...
2个月前
Delphi 2009 中 string 与 Char 的改变
在 Delphi 2009 中:string = UnicodeString; (同样: PString = PUnicodeString;)Char = WideChar; (同样: PChar = PWideChar;)本例效果图:代码文件:unit Unit1;interfaceuses Windows, Me...
2个月前Delphi 2009 新增单元 Character IsLetter、IsUpper、IsLower、IsDigit、IsNumber
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Butt...
2个月前
Delphi 查看字符串在不同编码(ASCII、Unicode、UTF7、UTF8、Default、BigEndianUnicode)下的 Hex
代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm...
2个月前Delphi 中字符串比较函数对比
函数名称大小写排序规则备注CompareStr区分内码或OS当前用户设置 SameStr区分内码或OS当前用户设置 CompareText不区分内码或OS当前用户设置 SameText不区分内码或OS当前用户设置...
2个月前Delphi 字符串定界符
定界符://--------------------------------------------------------------------------------var str: string; b: Boolean; n: Integer;begin str := 'http://del.cn...
2个月前Delphi 字符串连接
字符串连接:var S: string; str: string; strArr: TArray<string>;begin str := 'A1,B2,C3,,,,D4,E5,F6,G7'; strArr := str.Split([','], ExcludeEmpty);&...
2个月前Delphi 字符串分割
字符串分割://--------------------------------------------------------------------------------var str: string; arr: TArray<string>;begin str := 'A-1,B-2,,,C-...
2个月前Delphi 字符串替换
替换://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := 'ABC ABC ABC'; str2 := str1.Replace('A...
2个月前Delphi 字符串截取
截取://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := 'Delphi XE4'; str2 := str1.Substring(7...
2个月前Delphi 字符串插入与删除
插入与删除://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := 'Delphi 4'; str2 := str1.Insert(...
2个月前Delphi 自带大小写转换
大小写转换://--------------------------------------------------------------------------------var str: string;begin str := 'Delphi'; str := str.ToLower; // delphi&...
2个月前Delphi 清除字符串两边空格或指定字符
清除两边空格或指定字符://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := ' Delphi 10000...
2个月前
灿烂人生 7天前0
链接过期了，兄弟wakswaks 8天前0
学习一下iplans 18天前0
学习学习一下chenlongsoft 1个月前0
付50积分可以下载，还是看看？流浪 1个月前0
感谢支持！zhe0421 1个月前0
两个是一样的吧？lfengwelcome 1个月前0
很好，可以学习一下lfengwelcome 1个月前0
下载看看，学习一下