排序
delphi中按指定字符重复生成指定长度字符串
delphi中没有和VB的string函数相同的函数; 网上有人这么建议: var tmp :string; SetLength(tmp, n); //指定长度 FillChar(tmp[1], sizeof(tmp), '0'); //用0填充 需要注意的是fillchar函数的第...
26天前delphi 判断是否是Hash
function IsHash(Hash: String): boolean;var i: integer;begin Result := false; if Hash = '' then exit; if Length(Hash) = 3...
29天前delph 自带URL编码函数 TNetEncoding
USES NetEncoding;procedure TForm1.FormCreate(Sender: TObject);varSTR1:STRING;beginSTR1:= TNetEncoding.URL.Encode('中国',[],[],TEncoding.ANSI); //编码TEXT:= TNetEncoding.URL.Decode(...
29天前delphi 判断指定字符串是否开头 StartsText用法
var URL := edtAddress.Text;if not StartsText('http', URL) then //判断是否是http 开头，如果不是则begin URL :=&nb...
29天前delphi 检查字符串是不是 包含 中文和获取中文字符个数
function IsChineseText(const AStr:{$IFDEF UNICODE}string{$ELSE}WideString{$ENDIF}; const OutCharecterCountValAddr: PInteger = nil; const Out...
29天前Delphi IPNumberIPV4
unit Unit5;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;type ...
29天前Delphi 提取标签之间的字符串（重复标签）
Delphi 提取标签之间的字符串（重复标签）函数类型： 自定义函数函数说明：提取标签之间的字符串（重复标签）代码如下： Function sExtractBetweenTagsB(Const s, Las...
29天前Delphi 为数字补充前缀0
标准的Format函数可以做同样的事情！Format（'％。10d'，[15]）将返回'0000000015'或者：function AddLeadingZeros(const Source: string; Len: Integer): string;var i: Integer;begin&n...
29天前Delphi HTML转义
function torehtml(const strHTML: string): string;begin Result :=strHTML; Result := StringReplace(Result, ''', '"', [rfReplaceAll]); Result := Strin...
29天前Delphi 如何从html格式的字符串中提取纯文本？
function StripHTMLTags(const strHTML: string): string;var P: PChar; InTag: Boolean; i, intResultLength: Integer;begin P := PChar(strHTML); Result := '...
29天前
Delphi 如何从URL提取文件名？
//1function ExtractUrlFileName(const AUrl: string): string;varI: Integer;beginI := LastDelimiter(':/', AUrl);Result := Copy(AUrl, I + 1, MaxInt);end;procedure TForm3.FormCreate(Sen...
29天前
Delphi 如何解析网址？
演示：unit Unit3;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vc...
29天前Delphi 验证IP地址
//有点老旧了，就当是学习了function IsIPaddr(IP: string): Boolean;var Node: array[0..3] of Integer; tIP: string; tNode: string; tPos: Integer; tLen: In...
29天前
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...
29天前Delphi里面判断一个字符串在另一个字符串中出现的次数
function SubStrConut(mStr: string; mSub: string): Integer;{ 返回子字符串出现的次数 }begin Result := (Length(mStr) - Length(StringReplace(mStr, mSub, '', [rfRepla...
29天前
Delphi 2009 查看所有 Unicode 字符
代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;type TForm1 = class(TForm)&n...
29天前Delphi 2009 之 TStringBuilder 类[3]: Replace
Delphi 2009 之 TStringBuilder 类[3]: Replaceunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type&n...
29天前
Delphi 2009 中 string 与 Char 的改变
在 Delphi 2009 中:string = UnicodeString; (同样: PString = PUnicodeString;)Char = WideChar; (同样: PChar = PWideChar;)本例效果图:代码文件:unit Unit1;interfaceuses Windows, Me...
29天前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...
29天前
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...
29天前Delphi 中字符串比较函数对比
函数名称大小写排序规则备注CompareStr区分内码或OS当前用户设置 SameStr区分内码或OS当前用户设置 CompareText不区分内码或OS当前用户设置 SameText不区分内码或OS当前用户设置...
29天前Delphi 字符串定界符
定界符://--------------------------------------------------------------------------------var str: string; b: Boolean; n: Integer;begin str := 'http://del.cn...
29天前Delphi 字符串连接
字符串连接:var S: string; str: string; strArr: TArray<string>;begin str := 'A1,B2,C3,,,,D4,E5,F6,G7'; strArr := str.Split([','], ExcludeEmpty);&...
29天前Delphi 字符串分割
字符串分割://--------------------------------------------------------------------------------var str: string; arr: TArray<string>;begin str := 'A-1,B-2,,,C-...
29天前Delphi 字符串替换
替换://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := 'ABC ABC ABC'; str2 := str1.Replace('A...
29天前Delphi 字符串截取
截取://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := 'Delphi XE4'; str2 := str1.Substring(7...
29天前Delphi 字符串插入与删除
插入与删除://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := 'Delphi 4'; str2 := str1.Insert(...
29天前Delphi 自带大小写转换
大小写转换://--------------------------------------------------------------------------------var str: string;begin str := 'Delphi'; str := str.ToLower; // delphi&...
29天前Delphi 清除字符串两边空格或指定字符
清除两边空格或指定字符://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := ' Delphi 10000...
29天前
meta 12小时前0
学习了，金智维好像用的这个语言jiaqy 昨天0
学习了平淡 2天前0
已经私发给您了，请查收盘山秃鹫 3天前0
付费了，但找不到阅读入口yl340122 15天前0
学习学习ZHUBAORUI 18天前0
我主要是用这个工具的搜索功能flow106 20天前0
跟网上的资料一样吗，好奇流浪 24天前0
有源码可以下载