字符串共542篇

delphi中按指定字符重复生成指定长度字符串

delphi中没有和VB的string函数相同的函数; 网上有人这么建议: var tmp :string; SetLength(tmp, n); //指定长度 FillChar(tmp[1], sizeof(tmp), '0'); //用0填充 需要注意的是fillchar函数的第...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06812

delphi 判断是否是Hash

function IsHash(Hash: String): boolean;var i: integer;begin      Result := false;      if Hash = '' then exit;      if Length(Hash) = 3...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0637

delph 自带URL编码函数 TNetEncoding

USES NetEncoding;procedure TForm1.FormCreate(Sender: TObject);varSTR1:STRING;beginSTR1:= TNetEncoding.URL.Encode('中国',[],[],TEncoding.ANSI); //编码TEXT:= TNetEncoding.URL.Decode(...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04915

delphi 判断指定字符串是否开头 StartsText用法

var URL := edtAddress.Text;if not StartsText('http', URL) then  //判断是否是http 开头,如果不是则begin    URL :=&nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03715

delphi 检查字符串是不是 包含 中文和获取中文字符个数

function IsChineseText(const AStr:{$IFDEF UNICODE}string{$ELSE}WideString{$ENDIF};      const OutCharecterCountValAddr: PInteger = nil;      const Out...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0695

Delphi IPNumberIPV4

unit Unit5;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;type ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0417

Delphi 提取标签之间的字符串(重复标签)

Delphi 提取标签之间的字符串(重复标签)函数类型: 自定义函数函数说明:提取标签之间的字符串(重复标签)代码如下: Function sExtractBetweenTagsB(Const s, Las...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0715

Delphi 为数字补充前缀0

标准的Format函数可以做同样的事情!Format('%。10d',[15])将返回'0000000015'或者:function AddLeadingZeros(const Source: string; Len: Integer): string;var  i: Integer;begin&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0496

Delphi HTML转义

function torehtml(const strHTML: string): string;begin  Result :=strHTML;  Result := StringReplace(Result, ''', '"',  [rfReplaceAll]);  Result := Strin...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0585

Delphi 如何从html格式的字符串中提取纯文本?

function StripHTMLTags(const strHTML: string): string;var  P: PChar;  InTag: Boolean;  i, intResultLength: Integer;begin  P := PChar(strHTML);  Result := '...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05613
Delphi 如何从URL提取文件名?-Delphi编程技巧大全

Delphi 如何从URL提取文件名?

//1function ExtractUrlFileName(const AUrl: string): string;varI: Integer;beginI := LastDelimiter(':/', AUrl);Result := Copy(AUrl, I + 1, MaxInt);end;procedure TForm3.FormCreate(Sen...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05410
Delphi 如何解析网址?-Delphi编程技巧大全

Delphi 如何解析网址?

演示:unit Unit3;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vc...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06715

Delphi 验证IP地址

//有点老旧了,就当是学习了function IsIPaddr(IP: string): Boolean;var  Node: array[0..3] of Integer;  tIP: string;  tNode: string;  tPos: Integer;  tLen: In...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0565
Delphi 逐个分解后字符串加载到StringGrid1-Delphi编程技巧大全

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06413

Delphi里面判断一个字符串在另一个字符串中出现的次数

function SubStrConut(mStr: string; mSub: string): Integer;{ 返回子字符串出现的次数 }begin  Result :=    (Length(mStr) - Length(StringReplace(mStr, mSub, '', [rfRepla...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04614
Delphi 2009 查看所有 Unicode 字符-Delphi编程技巧大全

Delphi 2009 查看所有 Unicode 字符

代码文件:unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Grids;type  TForm1 = class(TForm)&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03311

Delphi 2009 之 TStringBuilder 类[3]: Replace

Delphi 2009 之 TStringBuilder 类[3]: Replaceunit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0405
Delphi 2009 中 string 与 Char 的改变-Delphi编程技巧大全

Delphi 2009 中 string 与 Char 的改变

在 Delphi 2009 中:string = UnicodeString; (同样: PString = PUnicodeString;)Char = WideChar; (同样: PChar = PWideChar;)本例效果图:代码文件:unit Unit1;interfaceuses  Windows, Me...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03913

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05013
Delphi 查看字符串在不同编码(ASCII、Unicode、UTF7、UTF8、Default、BigEndianUnicode)下的 Hex-Delphi编程技巧大全

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05115

Delphi 中字符串比较函数对比

函数名称大小写排序规则备注CompareStr区分内码或OS当前用户设置 SameStr区分内码或OS当前用户设置 CompareText不区分内码或OS当前用户设置 SameText不区分内码或OS当前用户设置...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0687

Delphi 字符串定界符

定界符://--------------------------------------------------------------------------------var  str: string;  b: Boolean;  n: Integer;begin  str := 'http://del.cn...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03414

Delphi 字符串连接

字符串连接:var  S: string;  str: string;  strArr: TArray<string>;begin  str := 'A1,B2,C3,,,,D4,E5,F6,G7';  strArr := str.Split([','], ExcludeEmpty);&...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05815

Delphi 字符串分割

字符串分割://--------------------------------------------------------------------------------var  str: string;  arr: TArray<string>;begin  str := 'A-1,B-2,,,C-...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0436

Delphi 字符串替换

替换://--------------------------------------------------------------------------------var  str1, str2: string;begin  str1 := 'ABC ABC ABC';  str2 := str1.Replace('A...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05311

Delphi 字符串截取

截取://--------------------------------------------------------------------------------var  str1, str2: string;begin  str1 := 'Delphi XE4';  str2 := str1.Substring(7...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0509

Delphi 字符串插入与删除

插入与删除://--------------------------------------------------------------------------------var  str1, str2: string;begin  str1 := 'Delphi 4';  str2 := str1.Insert(...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0516

Delphi 自带大小写转换

大小写转换://--------------------------------------------------------------------------------var  str: string;begin  str := 'Delphi';  str := str.ToLower; // delphi&...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04314

Delphi 清除字符串两边空格或指定字符

清除两边空格或指定字符://--------------------------------------------------------------------------------var  str1, str2: string;begin  str1 := '   Delphi 10000...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0508