更多相关内容...>>Delphi字符串函数大全
Delphi字符串函数大全
【字符串函数大全】
t4t3kp http://www.numino.net
首部 function AnsiResemblesText(const AText, AOther: string): Boolean;
TjyWmd http://www.numino.net
$[StrUtils.pas
Mup9hv http://www.numino.net
功能 返回两个字符串是否相似
l6B72r http://www.numino.net
说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写
5OkXPT http://www.numino.net
参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc
xqWqai http://www.numino.net
例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);
9566BX http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
7GrWOM http://www.numino.net
首部 function AnsiContainsText(const AText, ASubText: string): Boolean;
7l5nUj http://www.numino.net
$[StrUtils.pas
p4vUAs http://www.numino.net
功能 返回字符串AText是否包含子串ASubText
PkM3k5 http://www.numino.net
说明 不区分大小写
mWkT12 http://www.numino.net
参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos
4lVM3U http://www.numino.net
例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);
6KM7ia http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
jrW7Qw http://www.numino.net
首部 function AnsiStartsText(const ASubText, AText: string): Boolean;
A46Ep1 http://www.numino.net
$[StrUtils.pas
76Gj07 http://www.numino.net
功能 返回字符串AText是否以子串ASubText开头
Fqx90b http://www.numino.net
说明 不区分大小写
Z56elD http://www.numino.net
参考 function Windows.CompareString
3PPhSP http://www.numino.net
例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);
JORsGj http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
ZfX9bv http://www.numino.net
首部 function AnsiEndsText(const ASubText, AText: string): Boolean;
iGip9a http://www.numino.net
$[StrUtils.pas
i4LRU7 http://www.numino.net
功能 返回字符串AText是否以子串ASubText结尾
hscpUH http://www.numino.net
说明 不区分大小写
A9FY9Q http://www.numino.net
参考 function Windows.CompareString
BmUt3o http://www.numino.net
例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);
k7AO0M http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
sTnm72 http://www.numino.net
首部 function AnsiReplaceText(const AText, AFromText, AToText: string):
1Llc0w http://www.numino.net
string; $[StrUtils.pas
pb9BPN http://www.numino.net
功能 返回字符串AText中用子串AFromText替换成子串AToText的结果
p813OM http://www.numino.net
说明 不区分大小写
g1zYWa http://www.numino.net
参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags
INhGhA http://www.numino.net
例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);
I4NgG1 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
o6V2y5 http://www.numino.net
首部 function AnsiMatchText(const AText: string; const AValues: array of
Cvfdy5 http://www.numino.net
string): Boolean; $[StrUtils.pas
N7h6TS http://www.numino.net
功能 返回字符串数组AValues中是否包含字符串AText
T8qYPU http://www.numino.net
说明 不区分大小写
4c6zM7 http://www.numino.net
参考 function StrUtils.AnsiIndexText
877rd5 http://www.numino.net
例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3',
5fGY9k http://www.numino.net
'a4']);
ECF57K http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
7ta35p http://www.numino.net
首部 function AnsiIndexText(const AText: string; const AValues: array of
w5w5SD http://www.numino.net
string): Integer; $[StrUtils.pas
GjVRyy http://www.numino.net
功能 返回字符串AText在字符串数组AValues中的位置
sCJLJl http://www.numino.net
说明 不区分大小写;如果不包含则返回-1
5Iie5V http://www.numino.net
参考 function SysUtils.AnsiSameText
aGxoQF http://www.numino.net
例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);
xC648d http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
yv1qya http://www.numino.net
首部 function AnsiContainsStr(const AText, ASubText: string): Boolean;
Zp1xEo http://www.numino.net
$[StrUtils.pas
UdJHab http://www.numino.net
功能 返回字符串AText是否包含子串ASubText
LQAa5k http://www.numino.net
说明 区分大小写
MAl86H http://www.numino.net
参考 function StrUtils.AnsiPos
EPQAzK http://www.numino.net
例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text);
uLoINN http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
Fns7Pj http://www.numino.net
首部 function AnsiStartsStr(const ASubText, AText: string): Boolean;
gpIR9l http://www.numino.net
$[StrUtils.pas
ajd9Pl http://www.numino.net
功能 返回字符串AText是否以子串ASubText开头
TfRfE6 http://www.numino.net
说明 区分大小写
mE7a8K http://www.numino.net
参考 function SysUtils.AnsiSameStr
210MI9 http://www.numino.net
例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text);
feGs3T http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
nHBRZ8 http://www.numino.net
首部 function AnsiEndsStr(const ASubText, AText: string): Boolean;
q6OOIi http://www.numino.net
$[StrUtils.pas
biGnIw http://www.numino.net
功能 返回字符串AText是否以子串ASubText结尾
Pjtcy9 http://www.numino.net
说明 区分大小写
vIxuki http://www.numino.net
参考 function SysUtils.AnsiSameStr
k4GEeu http://www.numino.net
例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text);
Ug11gY http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
OO0R9W http://www.numino.net
首部 function AnsiReplaceStr(const AText, AFromText, AToText: string):
3MEH2w http://www.numino.net
string; $[StrUtils.pas
Apy8jG http://www.numino.net
功能 返回字符串AText中用子串AFromText替换成子串AToText的结果
l48H90 http://www.numino.net
说明 区分大小写
g5XxMB http://www.numino.net
参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags
TYJrur http://www.numino.net
例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text);
4u9cIQ http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
ypCOMy http://www.numino.net
首部 function AnsiMatchStr(const AText: string; const AValues: array of
a7BKtR http://www.numino.net
string): Boolean; $[StrUtils.pas
x16c9a http://www.numino.net
功能 返回字符串数组AValues中是否包含字符串AText
U4o2PC http://www.numino.net
说明 区分大小写
n2S5n5 http://www.numino.net
参考 function StrUtils.AnsiIndexStr
k5yGeo http://www.numino.net
例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3',
7O3FUG http://www.numino.net
'a4']);
fVg048 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
9Kex7C http://www.numino.net
首部 function AnsiIndexStr(const AText: string; const AValues: array of
C9ozMU http://www.numino.net
string): Integer; $[StrUtils.pas
1v53eA http://www.numino.net
功能 返回字符串AText在字符串数组AValues中的位置
HcuC94 http://www.numino.net
说明 区分大小写
43TFFe http://www.numino.net
参考 function SysUtils.AnsiSameStr
Iy1T9e http://www.numino.net
例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);
qrr333 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
F1Fguj http://www.numino.net
首部 function DupeString(const AText: string; ACount: Integer): string;
p1S3Tr http://www.numino.net
$[StrUtils.pas
ELLYMg http://www.numino.net
功能 返回字符串AText的ACount个复本
r84TkB http://www.numino.net
说明 当ACount为0时返回''
W6Wa5f http://www.numino.net
参考 function System.SetLength
Zy86QA http://www.numino.net
例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value);
zbJ2Wc http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
Gv69rG http://www.numino.net
首部 function ReverseString(const AText: string): string; $[StrUtils.pas
ar86yc http://www.numino.net
功能 返回字符串AText的反序
302c3j http://www.numino.net
说明 ReverseString('1234') = '4321'
41X0c3 http://www.numino.net
参考 function System.SetLength
V6k92N http://www.numino.net
例子 Edit3.Text := ReverseString(Edit1.Text);
fuC9EH http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
GaXP7u http://www.numino.net
首部 function StuffString(const AText: string; AStart, ALength: Cardinal;
h7Y03v http://www.numino.net
const ASubText: string): string; $[StrUtils.pas
dm4o1g http://www.numino.net
功能 返回嵌套字符串
4Rh5H0 http://www.numino.net
说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd'
w61wWT http://www.numino.net
参考 function System.Copy
Wm2yc8 http://www.numino.net
例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value,
45RyQs http://www.numino.net
Edit2.Text);
lG5Wp5 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
rH6r90 http://www.numino.net
首部 function RandomFrom(const AValues: array of string): string; overload;
Ymp78K http://www.numino.net
$[StrUtils.pas
o025Qh http://www.numino.net
功能 随机返回字符串数组AValues中的一个元素
UZuMsm http://www.numino.net
说明 之前建议执行Randomize
jpk07a http://www.numino.net
参考 function System.Random
7E6wqj http://www.numino.net
例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']);
ECA4cI http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
eHE7G4 http://www.numino.net
首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string =
adea2J http://www.numino.net
''): string; overload; $[StrUtils.pas
FhyGC8 http://www.numino.net
功能 返回指定的逻辑字符串
D9wP74 http://www.numino.net
说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否'
C0U16N http://www.numino.net
参考 <NULL>
qLrA9r http://www.numino.net
例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text);
141K7Q http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
3bzJx5 http://www.numino.net
首部 function LeftStr(const AText: string; const ACount: Integer): string;
SZBh8I http://www.numino.net
$[StrUtils.pas
7nS5fN http://www.numino.net
功能 返回字符串AText左边的ACount个字符
Tj8621 http://www.numino.net
说明 LeftStr('123456', 3) = '123'
vK25Up http://www.numino.net
参考 function System.Copy
pF1YYh http://www.numino.net
例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value);
3O6Z15 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
TNAdjR http://www.numino.net
首部 function RightStr(const AText: string; const ACount: Integer): string;
mnFSju http://www.numino.net
$[StrUtils.pas
eN0JI3 http://www.numino.net
功能 返回字符串AText右边的ACount个字符
BLAGS1 http://www.numino.net
说明 RightStr('123456', 3) = '456'
Va1i8H http://www.numino.net
参考 function System.Copy
W284H2 http://www.numino.net
例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value);
sG1T26 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
GrlyOE http://www.numino.net
首部 function MidStr(const AText: string; const AStart, ACount: Integer):
K3npm5 http://www.numino.net
string; $[StrUtils.pas
7n0q2t http://www.numino.net
功能 返回字符串AText从AStart开始的ACount个字符
C4xV78 http://www.numino.net
说明 其实就是Copy
57sbNU http://www.numino.net
参考 function System.Copy
oUnkvP http://www.numino.net
例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);
hvp8oM http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
w4GoaV http://www.numino.net
首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength:
1ijPAG http://www.numino.net
Integer; SearchString: String; Options: TStringSearchOptions = [soDown]):
g0r6Ym http://www.numino.net
PChar; $[StrUtils.pas
WXqdD6 http://www.numino.net
功能 返回第一个搜索到的指针位置
Ym5r56 http://www.numino.net
说明 这函数常用于文本中搜索字符串
j72M05 http://www.numino.net
参考 <NULL>
Ax9qF5 http://www.numino.net
例子
49Kw6y http://www.numino.net
///////Begin SearchBuf
YSUeJc http://www.numino.net
function SearchEdit(EditControl: TCustomEdit; const SearchString: String;
lts91m http://www.numino.net
SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean;
uN5wJi http://www.numino.net
var
LxGwWD http://www.numino.net
Buffer, P: PChar;
2i6Uby http://www.numino.net
Size: Word;
10brN6 http://www.numino.net
begin
aWP54j http://www.numino.net
Result := False;
EFR1yz http://www.numino.net
if (Length(SearchString) = 0) then Exit;
0hFd3h http://www.numino.net
Size := EditControl.GetTextLen;
ESH722 http://www.numino.net
if (Size = 0) then Exit;
1Fyl5M http://www.numino.net
Buffer := StrAlloc(Size + 1);
nO85so http://www.numino.net
try
3F9MYV http://www.numino.net
EditControl.GetTextBuf(Buffer, Size + 1);
N3igh3 http://www.numino.net
P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength,
MdQNZD http://www.numino.net
SearchString, SearchOptions);
AWNRhm http://www.numino.net
if P <> nil then begin
c2YgMW http://www.numino.net
EditControl.SelStart := P - Buffer;
wb7Sjz http://www.numino.net
EditControl.SelLength := Length(SearchString);
6LXXeE http://www.numino.net
Result := True;
DI0giy http://www.numino.net
end;
k8DbJO http://www.numino.net
finally
zyoBiI http://www.numino.net
StrDispose(Buffer);
yG2EiG http://www.numino.net
end;
nAODxe http://www.numino.net
end;
0rzp7h http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
u0VM3l http://www.numino.net
var
KgV7dW http://www.numino.net
SearchOptions: TStringSearchOptions;
7Pw78k http://www.numino.net
begin
9f6a6W http://www.numino.net
SearchOptions := [];
VfMIFr http://www.numino.net
if CheckBox1.Checked then
u0A5qz http://www.numino.net
Include(SearchOptions, soDown);
HBuej3 http://www.numino.net
if CheckBox2.Checked then
0Qun4s http://www.numino.net
Include(SearchOptions, soMatchCase);
uiv0lN http://www.numino.net
if CheckBox3.Checked then
4osIm9 http://www.numino.net
Include(SearchOptions, soWholeWord);
VQo6ID http://www.numino.net
SearchEdit(Memo1, Edit1.Text, SearchOptions);
XwAP09 http://www.numino.net
Memo1.SetFocus;
LNR990 http://www.numino.net
end;
oI9Mjs http://www.numino.net
///////End SearchBuf
BmFqlx http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
Coo89i http://www.numino.net
首部 function Soundex(const AText: string; ALength: TSoundexLength = 4):
z1a2i2 http://www.numino.net
string; $[StrUtils.pas
H6Nhd0 http://www.numino.net
功能 返回探测字符串
VI4sy5 http://www.numino.net
说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html
JF21I4 http://www.numino.net
参考 <NULL>
zkB7YQ http://www.numino.net
例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value);
2V6dt5 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
nMFbF1 http://www.numino.net
首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength =
zW9B01 http://www.numino.net
4): Integer; $[StrUtils.pas
5Z398e http://www.numino.net
功能 返回探测整数
dXms0u http://www.numino.net
说明 ALength的值越大解码准确率越高
j04bqW http://www.numino.net
参考 <NULL>
V16DIJ http://www.numino.net
例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value);
1gNCm9 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
tYQDTZ http://www.numino.net
首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas
1kQNEq http://www.numino.net
功能 返回探测整数的解码
qNC2le http://www.numino.net
说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello')
c63q6O http://www.numino.net
参考 <NULL>
Mx0fA3 http://www.numino.net
例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value);
l4VXJ2 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
xA6mek http://www.numino.net
首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas
yhUW6k http://www.numino.net
功能 返回探测文字数值
vjCSVK http://www.numino.net
说明 没有参数ALength已经固定为4
ubRm1E http://www.numino.net
参考 <NULL>
krNY5N http://www.numino.net
例子 SpinEdit2.Value := SoundexWord(Edit1.Text);
75zKxH http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
758DH0 http://www.numino.net
首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas
xR7vwB http://www.numino.net
功能 返回探测文字数值的解码
FVH25t http://www.numino.net
说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello')
T4m63y http://www.numino.net
参考 <NULL>
rTAidp http://www.numino.net
例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value);
uSPt62 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
owcwOi http://www.numino.net
首部 function SoundexSimilar(const AText, AOther: string; ALength:
5Hnx3G http://www.numino.net
TSoundexLength = 4): Boolean; $[StrUtils.pas
rO1rXk http://www.numino.net
功能 返回两个字符串的探测字符串是否相同
6VtvDc http://www.numino.net
说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength)
JErnML http://www.numino.net
参考 <NULL>
HaX1e3 http://www.numino.net
例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text,
SiuUO8 http://www.numino.net
SpinEdit1.Value);
zRyNdy http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
xEQ98g http://www.numino.net
首部 function SoundexCompare(const AText, AOther: string; ALength:
kEWeYE http://www.numino.net
TSoundexLength = 4): Integer; $[StrUtils.pas
7T6aXw http://www.numino.net
功能 返回比较两个字符串的探测字符串的结果
Lk9og6 http://www.numino.net
说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther,
61Z7Q5 http://www.numino.net
ALength))
5uiXYk http://www.numino.net
参考 function SysUtils.AnsiCompareStr
NOh8uX http://www.numino.net
例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text,
B82nMJ http://www.numino.net
SpinEdit1.Value);
fA01SJ http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
ozQb69 http://www.numino.net
首部 function SoundexProc(const AText, AOther: string): Boolean;
YELihq http://www.numino.net
$[StrUtils.pas
BcY5Wx http://www.numino.net
功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同
8NbHPi http://www.numino.net
说明 系统变量AnsiResemblesProc的默认值
6GOjl3 http://www.numino.net
参考 function StrUtils.AnsiResemblesText
WC5nzB http://www.numino.net
例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;]
1jWn36 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
zHeCtA http://www.numino.net
首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas
nGo9o9 http://www.numino.net
功能 返回一个新的字符串指针地址
szlJST http://www.numino.net
说明 字符串S为空时返回NullStr
37WqH6 http://www.numino.net
参考 procedure System.New
x2Qp85 http://www.numino.net
例子
S10CtO http://www.numino.net
////////Begin NewStr,DisposeStr
61FYPy http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
6K53z3 http://www.numino.net
var
7c0J3w http://www.numino.net
P: PString;
23u83C http://www.numino.net
begin
r7UTOa http://www.numino.net
P := NewStr(Edit1.Text);
6PbjfD http://www.numino.net
Edit2.Text := P^;
L9pQCb http://www.numino.net
DisposeStr(P);
k3go7k http://www.numino.net
end;
VZW3Oq http://www.numino.net
////////End NewStr,DisposeStr
4305Zy http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
XrT1E1 http://www.numino.net
首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas
rh2mSm http://www.numino.net
功能 释放字符串指针P资源
pd2aid http://www.numino.net
说明 配合函数NewStr使用
Ft7YrQ http://www.numino.net
参考 procedure System.Dispose
J4RuSg http://www.numino.net
例子 <如上参见,如下参见>
7T3NA7 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
xqEvm3 http://www.numino.net
首部 procedure AssignStr(var P: PString; const S: string); deprecated;
9Bd8K8 http://www.numino.net
$[SysUtils.pas
Zf1XO6 http://www.numino.net
功能 将字符串S更新给字符串指针P
R2c3Dl http://www.numino.net
说明 更新值时会释放以前字符串指针的资源
DGSa5K http://www.numino.net
参考 function SysUtils.NewStr;function SysUtils.DisposeStr
ozysAt http://www.numino.net
例子
SY04zR http://www.numino.net
////////Begin AssignStr
ta8nBd http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
1V96KR http://www.numino.net
var
b0Fd9o http://www.numino.net
P: PString;
JLbSW5 http://www.numino.net
begin
1zfMu4 http://www.numino.net
P := nil;
Q7YkEf http://www.numino.net
AssignStr(P, Edit1.Text);
lCex85 http://www.numino.net
Edit2.Text := P^;
vYnh85 http://www.numino.net
DisposeStr(P);
3AHXo9 http://www.numino.net
end;
9668ND http://www.numino.net
////////End AssignStr
s21gp7 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
0gYb6e http://www.numino.net
首部 procedure AppendStr(var Dest: string; const S: string); deprecated;
xm5Hn1 http://www.numino.net
$[SysUtils.pas
5nMD5C http://www.numino.net
功能 在字符串Dest后追加字符串S
7Tilq0 http://www.numino.net
说明 相当于Dest := Dest + S;Delphi6已经不建议使用
fPGMh1 http://www.numino.net
参考 <NULL>
8C3Uic http://www.numino.net
例子
uHjSo5 http://www.numino.net
////////Begin AppendStr
2rY0bP http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
Fli85H http://www.numino.net
var
uTNdtS http://www.numino.net
S: string;
JLH3x0 http://www.numino.net
begin
17E7de http://www.numino.net
S := Edit2.Text;
KLjry9 http://www.numino.net
AppendStr(S, Edit1.Text);
ILjTz5 http://www.numino.net
Edit2.Text := S;
CPtvJ7 http://www.numino.net
end;
VV69h7 http://www.numino.net
////////End AppendStr
zpD520 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
yn1vwq http://www.numino.net
首部 function UpperCase(const S: string): string; $[SysUtils.pas
44cy8I http://www.numino.net
功能 返回字符串S的大写形式
ktrxs5 http://www.numino.net
说明 非小写字符不处理
ukKis4 http://www.numino.net
参考 procedure System.SetLength
2HPF7H http://www.numino.net
例子 Edit2.Text := UpperCase(Edit1.Text);
pqxd8W http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
dZH7mx http://www.numino.net
首部 function LowerCase(const S: string): string; $[SysUtils.pas
kL77R6 http://www.numino.net
功能 返回字符串S的小写形式
1kIIoC http://www.numino.net
说明 非大写字符不处理
9gn79G http://www.numino.net
参考 procedure System.SetLength
zFctpG http://www.numino.net
例子 Edit2.Text := LowerCase(Edit1.Text);
7AqbWR http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
8eqz2z http://www.numino.net
首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas
Q68QU5 http://www.numino.net
功能 返回比较两个字符
5n51Jp http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写
4xcATW http://www.numino.net
参考 <NULL>
zx0nYa http://www.numino.net
例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text);
1a3WIk http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
leLd6F http://www.numino.net
首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean;
u7Q583 http://www.numino.net
assembler; $[SysUtils.pas
2wEpR6 http://www.numino.net
功能 返回比较两个内存指针
wI5K8Q http://www.numino.net
说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'),
9AwJd4 http://www.numino.net
PChar('12c'), 3)=False
5xMbSY http://www.numino.net
参考 <NULL>
naedNF http://www.numino.net
例子 CheckBox1.Checked := CompareMem(Self, Form1, 8);
GpjE10 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
xOGX37 http://www.numino.net
首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas
nX7xBU http://www.numino.net
功能 返回比较两个字符串
md3Zb7 http://www.numino.net
说明 不区分大小写
S1Y299 http://www.numino.net
参考 <NULL>
TXcR3z http://www.numino.net
例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text);
D536UX http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
n3ewA6 http://www.numino.net
首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas
3AQbL0 http://www.numino.net
功能 返回两个字符串是否相等
43n1BN http://www.numino.net
说明 不区分大小写
LJCY6U http://www.numino.net
参考 <NULL>
T88dG0 http://www.numino.net
例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text);
VMw8mp http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
8vN56J http://www.numino.net
首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas
tdmBJ3 http://www.numino.net
功能 返回字符串S的大写形式
kM1TWo http://www.numino.net
说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变
SIeciU http://www.numino.net
参考 function Windows.CharUpperBuff
26b9oN http://www.numino.net
例子 Edit2.Text := AnsiUpperCase(Edit1.Text);
I5dae8 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
JWXmmk http://www.numino.net
首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas
1gBVbI http://www.numino.net
功能 返回字符串S的小写形式
H90VUR http://www.numino.net
说明 非大写字符不处理
yu68br http://www.numino.net
参考 function Windows.CharLowerBuff
g1Hr7K http://www.numino.net
例子 Edit2.Text := AnsiLowerCase(Edit1.Text);
ZNCErN http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
sexeBQ http://www.numino.net
首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas
yYQ7uE http://www.numino.net
功能 反回比较两个字符串
AeC8i6 http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写
GewsWe http://www.numino.net
参考 function Windows.CompareString
V35rbI http://www.numino.net
例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text);
47D6Pn http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
fbA68F http://www.numino.net
首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas
6xc872 http://www.numino.net
功能 返回两个字符串是否相等
Qzmn2O http://www.numino.net
说明 区分大小写
SlEZag http://www.numino.net
参考 function SysUtils.AnsiCompareStr
s5riQ8 http://www.numino.net
例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text);
I04RZ2 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
uDM1gn http://www.numino.net
首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas
n3RScj http://www.numino.net
功能 反回比较两个字符串
LXX1Y9 http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写
yDe5RG http://www.numino.net
参考 function Windows.CompareString
dVO4UU http://www.numino.net
例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text);
I5VcK4 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
nZFgIS http://www.numino.net
首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas
qJNXcu http://www.numino.net
功能 返回两个字符串是否相等
R47FaH http://www.numino.net
说明 不区分大小写
8iXMQ0 http://www.numino.net
参考 function SysUtils.AnsiCompareText
MKXO5q http://www.numino.net
例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text);
9Ysz88 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
EAAbG1 http://www.numino.net
首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas
Orygwe http://www.numino.net
功能 返回比较两个指针字符串
FrZ69N http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写
e838o4 http://www.numino.net
参考 function System.CompareString
99VefO http://www.numino.net
例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text))
XVFJs1 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
ne8DH7 http://www.numino.net
首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas
APYzJ1 http://www.numino.net
功能 返回比较两个指针字符串
l3EH6m http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略)
b3yeoe http://www.numino.net
参考 function Windows.CompareString
6Zox49 http://www.numino.net
例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text))
zr0Ff1 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
hTd2XV http://www.numino.net
首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer;
use3V0 http://www.numino.net
$[SysUtils.pas
nXzDP0 http://www.numino.net
功能 返回比较两个指针字符串指定长度
BG5xgj http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度)
0u06QB http://www.numino.net
参考 function Windows.CompareString
feuXLg http://www.numino.net
例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text),
6NPey8 http://www.numino.net
SpinEdit2.Value)
E4T8yd http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
9ifBC5 http://www.numino.net
首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer;
yrrZws http://www.numino.net
$[SysUtils.pas
QVxn49 http://www.numino.net
功能 返回比较两个指针字符串指定长度
5pvWt4 http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写
tOIjOE http://www.numino.net
参考 function Windows.CompareString
0ptGt9 http://www.numino.net
例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text),
3tbR19 http://www.numino.net
SpinEdit2.Value)
YmU04O http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
gMmcKJ http://www.numino.net
首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas
xnf360 http://www.numino.net
功能 返回指针字符串小写形式
GTlj67 http://www.numino.net
说明 非大写字符不处理
2Tnmz5 http://www.numino.net
参考 function Windows.CharLower
11z3Lx http://www.numino.net
例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text));
XkmlzO http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
71SflN http://www.numino.net
首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas
Rlht3M http://www.numino.net
功能 返回指针字符串大写形式
zQngx8 http://www.numino.net
说明 非小写字符不处理
2xE7KO http://www.numino.net
参考 function Windows.CharUpper
cbtiNR http://www.numino.net
例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text));
0dOs9W http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
bL0wr2 http://www.numino.net
首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas
Zq68ef http://www.numino.net
功能 返回字符串S的最后一个指针字符
R9st6R http://www.numino.net
说明 当字符串S为空串则返回空指针
4mipOT http://www.numino.net
参考 function SysUtils.ByteType
A4otmC http://www.numino.net
例子 Edit2.Text := AnsiLastChar(Edit1.Text);
UbhREu http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
iLGZY5 http://www.numino.net
首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas
d9UAoJ http://www.numino.net
功能 返回指针字符串P的最后一个指针字符
pkzDGv http://www.numino.net
说明 当字符串P为空空指针则返回空指针
ufuYtq http://www.numino.net
参考 function SysUtils.ByteType
Ck3uIO http://www.numino.net
例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text));
91Lw2o http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
B2Kgzy http://www.numino.net
首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas
b9h0i8 http://www.numino.net
功能 返回双字节字符串的大写形式
b3gn6g http://www.numino.net
说明 WideChar双字节字符
iL6AvP http://www.numino.net
参考 function Windows.CharUpperBuffW
ppx7pY http://www.numino.net
例子 Edit2.Text := WideUpperCase(Edit1.Text);
ipcA88 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
0O1K6j http://www.numino.net
首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas
ppU00g http://www.numino.net
功能 返回双字节字符串的小写形式
5fM0hY http://www.numino.net
说明 我怎么就测试不出来呢
kKko9U http://www.numino.net
参考 function Windows.CharLowerBuffW
oFYxT4 http://www.numino.net
例子 Edit2.Text := WideLowerCase(Edit1.Text);
wCR5zP http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
A8Asa1 http://www.numino.net
首部 function WideCompareStr(const S1, S2: WideString): Integer;
FKFtK6 http://www.numino.net
$[SysUtils.pas
N5Znbl http://www.numino.net
功能 返回比较两个双字节字符串
fDSrYu http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写
csrOKi http://www.numino.net
参考 function Windows.CompareStringW
8U9Wyy http://www.numino.net
例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text);
R7n57F http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
hwr1qH http://www.numino.net
首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas
T2pc2i http://www.numino.net
功能 返回两个双字节字符串是否相同
Fz4DCa http://www.numino.net
说明 区分大小写
jjtJ70 http://www.numino.net
参考 function SysUtils.WideCompareStr
xq11Zq http://www.numino.net
例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text);
IlkrZH http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
5JhALM http://www.numino.net
首部 function WideCompareText(const S1, S2: WideString): Integer;
25Cg6p http://www.numino.net
$[SysUtils.pas
6X0lJp http://www.numino.net
功能 返回比较两个双字节字符串
BpGiot http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写
7SoAXP http://www.numino.net
参考 function Windows.CompareStringW
kL3P80 http://www.numino.net
例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text);
2erP29 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
Uu03N8 http://www.numino.net
首部 function WideSameText(const S1, S2: WideString): Boolean;
qU4wB2 http://www.numino.net
$[SysUtils.pas
d6iDId http://www.numino.net
功能 返回两个双字节字符串是否相同
06l4f0 http://www.numino.net
说明 不区分大小写
dSXhez http://www.numino.net
参考 function SysUtils.WideCompareText
Dg6277 http://www.numino.net
例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text);
uww9bZ http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
7uG8U1 http://www.numino.net
首部 function Trim(const S: string): string; overload; $[SysUtils.pas
kb4Xnu http://www.numino.net
首部 function Trim(const S: WideString): WideString; overload;
qQE61O http://www.numino.net
$[SysUtils.pas
QDI3Ce http://www.numino.net
功能 返回除去字符串S左右不可见字符
7Kiaml http://www.numino.net
说明 小于#32的字符看作不可见字符
ymeZD4 http://www.numino.net
参考 function System.Copy
Xl4qb6 http://www.numino.net
例子 Edit2.Text := Trim(Edit1.Text);
4pj0T7 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
du43yv http://www.numino.net
首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas
7Z2B79 http://www.numino.net
首部 function TrimLeft(const S: WideString): WideString; overload;
Ck2T0k http://www.numino.net
$[SysUtils.pas
xZsWi7 http://www.numino.net
功能 返回除去字符串S左边不可见字符
XqKjbg http://www.numino.net
说明 小于#32的字符看作不可见字符
l6mX1x http://www.numino.net
参考 function System.Copy
8F62m6 http://www.numino.net
例子 Edit2.Text := TrimLeft(Edit1.Text);
O17z6R http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
0FWF2y http://www.numino.net
首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas
458SY0 http://www.numino.net
首部 function TrimRight(const S: WideString): WideString; overload;
ECrqtE http://www.numino.net
$[SysUtils.pas
Tl2W9r http://www.numino.net
功能 返回除去字符串S右边不可见字符
pTGWSD http://www.numino.net
说明 小于#32的字符看作不可见字符
UNvlJo http://www.numino.net
参考 function System.Copy
54SwnQ http://www.numino.net
例子 Edit2.Text := TrimRight(Edit1.Text);
FSC2cl http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
c1O43j http://www.numino.net
首部 function QuotedStr(const S: string): string; $[SysUtils.pas
pufeJ8 http://www.numino.net
功能 返回字符串S在pascal中的表现形式
cXXB3X http://www.numino.net
说明 单引号中的一个单引号将转成两个
S7g0g3 http://www.numino.net
参考 procedure System.Insert
Oa9YXq http://www.numino.net
例子 Edit2.Text := QuotedStr(Edit1.Text);
YCF6F6 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
h5NuGy http://www.numino.net
首部 function AnsiQuotedStr(const S: string; Quote: Char): string;
U01rJZ http://www.numino.net
$[SysUtils.pas
KVi79x http://www.numino.net
功能 返回字符串S以字符Quote为引号的表现形式
AOqDGZ http://www.numino.net
说明 AnsiQuotedStr('hello"world',
b6BhSv http://www.numino.net
'@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"'
e1I2pr http://www.numino.net
参考 function SysUtils.AnsiStrScan
102DPp http://www.numino.net
例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"');
9HX5bY http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
9glO3O http://www.numino.net
首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string;
kt15gD http://www.numino.net
$[SysUtils.pas
zeF219 http://www.numino.net
功能 返回以字符Quote为引号的表现形式原形
78I7Qh http://www.numino.net
说明 表现形式非法时Src不变否则为空
3BIR2c http://www.numino.net
参考 function SysUtils.AnsiStrScan
4MI5vw http://www.numino.net
例子
w63alt http://www.numino.net
///////Begin AnsiExtractQuotedStr
cBYwhs http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
5O39or http://www.numino.net
var
4H1Zx7 http://www.numino.net
P: PChar;
7H174w http://www.numino.net
begin
BVV2F7 http://www.numino.net
P := PChar(Edit1.Text);
PD1p7R http://www.numino.net
Edit2.Text := AnsiExtractQuotedStr(P, '"');
A14uUw http://www.numino.net
Edit3.Text := P;
uSIQO6 http://www.numino.net
end;
0FVcfY http://www.numino.net
///////End AnsiExtractQuotedStr
wd94Kv http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
2n1Oyv http://www.numino.net
首部 function AnsiDequotedStr(const S: string; AQuote: Char): string;
iESTXt http://www.numino.net
$[SysUtils.pas
yRJsmG http://www.numino.net
功能 返回以字符AQuote为引号的表现形式原形
LIL5X2 http://www.numino.net
说明 表现形式非法时则返回S
p713IJ http://www.numino.net
参考 function SysUtils.AnsiExtractQuotedStr
Vdsnff http://www.numino.net
例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"');
56p7ww http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
u7L6i4 http://www.numino.net
首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle =
hRVbd9 http://www.numino.net
{$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}):
PNi9tQ http://www.numino.net
string; $[SysUtils.pas
gWwM3p http://www.numino.net
功能 返回将给定字符串的行分隔符调整为CR/LF序列
nSnfiR http://www.numino.net
说明
ElvDCD http://www.numino.net
AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10'2'#13#10
ZqQPjT http://www.numino.net
参考 function SysUtils.StrNextChar
xvi9pm http://www.numino.net
例子 <NULL>
LxhSNd http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
MC6vAP http://www.numino.net
首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas
fnBK1l http://www.numino.net
功能 返回字符串Ident是否是正确的标识符
I6MZiN http://www.numino.net
说明 标识符::字母|下划线[字母|下划线|数字]...
8SfUmO http://www.numino.net
参考 <NULL>
v40Wzw http://www.numino.net
例子 CheckBox1.Checked := IsValidIdent(Edit1.Text);
a6zH0W http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
K9fjIU http://www.numino.net
首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas
zE7gEJ http://www.numino.net
首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas
gAZjny http://www.numino.net
功能 返回整数Value转换成字符串
1zFVUj http://www.numino.net
说明 Format('%d', [Value])
kq1WWq http://www.numino.net
参考 function SysUtils.FmtStr
u7O2bf http://www.numino.net
例子 Edit2.Text := IntToStr(SpinEdit1.Value);
9hi845 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
ZJI1FM http://www.numino.net
首部 function IntToHex(Value: Integer; Digits: Integer): string; overload;
N51596 http://www.numino.net
$[SysUtils.pas
K5VZ3g http://www.numino.net
首部 function IntToHex(Value: Int64; Digits: Integer): string; overload;
rRTQqk http://www.numino.net
$[SysUtils.pas
Z7qI5z http://www.numino.net
功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value])
Z7F2u1 http://www.numino.net
说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充
hx5yS3 http://www.numino.net
参考 function SysUtils.FmtStr
80C07W http://www.numino.net
例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value);
5B4hwU http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
5lY2eW http://www.numino.net
首部 function StrToInt(const S: string): Integer; $[SysUtils.pas
0I2FdD http://www.numino.net
功能 返回字符串S转换成整数
UafvLJ http://www.numino.net
说明 字符串非整数表达时将引起异常
a1aZrS http://www.numino.net
参考 procedure System.Val
oUFx4x http://www.numino.net
例子 SpinEdit1.Value := StrToInt(Edit1.Text);
8A49OL http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
5OKTGV http://www.numino.net
首部 function StrToIntDef(const S: string; Default: Integer): Integer;
H9yiyO http://www.numino.net
$[SysUtils.pas
0nSX3e http://www.numino.net
功能 返回字符串S转换成整数
X9d5yR http://www.numino.net
说明 字符串非整数表达时则返回默认值Default
uQzOeE http://www.numino.net
参考 procedure System.Val
3XZJRa http://www.numino.net
例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0);
5URJOC http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
HMZ83C http://www.numino.net
首部 function TryStrToInt(const S: string; out Value: Integer): Boolean;
5qbT8H http://www.numino.net
$[SysUtils.pas
gGe69X http://www.numino.net
功能 返回字符串S转换成整数Value是否成功
c3H9ux http://www.numino.net
说明 字符串非整数表达时返回False并且Value将输出为0
X4sd4h http://www.numino.net
参考 procedure System.Val
u81tM2 http://www.numino.net
例子
09oemO http://www.numino.net
///////Begin TryStrToInt
xjMQEg http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
iApOz8 http://www.numino.net
var
Rjf4o6 http://www.numino.net
I: Integer;
b0TWo7 http://www.numino.net
begin
A9jQPY http://www.numino.net
CheckBox1.Checked := TryStrToInt(Edit1.Text, I);
M752BY http://www.numino.net
SpinEdit1.Value := I;
ZuXoOl http://www.numino.net
end;
2cUcZL http://www.numino.net
///////End TryStrToInt
dBknd3 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
Lo5sIO http://www.numino.net
首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas
BlQkXR http://www.numino.net
功能 返回字符串S转换成六十四位整数
RL2zP7 http://www.numino.net
说明 字符串非六十四位整数表达时将引起异常
Yj6b4t http://www.numino.net
参考 procedure System.Val
QCfUIv http://www.numino.net
例子 SpinEdit1.Value := StrToInt64(Edit1.Text);
DtY8XD http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
nlN9Um http://www.numino.net
首部 function StrToInt64Def(const S: string; const Default: Int64): Int64;
V4a7P3 http://www.numino.net
$[SysUtils.pas
GrhvM4 http://www.numino.net
功能 返回字符串S转换成六十四位整数
0w7UYc http://www.numino.net
说明 字符串非六十四位整数表达时则返回默认值Default
II1C0N http://www.numino.net
参考 procedure System.Val
5y74RF http://www.numino.net
例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0);
D7g1la http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
K9276P http://www.numino.net
首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean;
sQ3uCR http://www.numino.net
$[SysUtils.pas
O3eZ50 http://www.numino.net
功能 返回字符串S转换成六十四位整数Value是否成功
9Rs7Xj http://www.numino.net
说明 字符串非六十四位整数表达时返回False并且Value将输出为0
YfWe4d http://www.numino.net
参考 procedure System.Val
31CFja http://www.numino.net
例子
rnK1XQ http://www.numino.net
///////Begin TryStrToInt64
mZUkF0 http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
529xpB http://www.numino.net
var
Ks49KZ http://www.numino.net
I: Int64;
31yo9o http://www.numino.net
begin
OyRmVV http://www.numino.net
CheckBox1.Checked := TryStrToInt64(Edit1.Text, I);
E6x74x http://www.numino.net
SpinEdit1.Value := I;
D49IVj http://www.numino.net
end;
8pmw2A http://www.numino.net
///////End TryStrToInt64
z5SHq8 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
87uN34 http://www.numino.net
首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas
8dtIig http://www.numino.net
功能 返回字符串S转换成逻辑值
PPB32e http://www.numino.net
说明 字符非逻辑表达时将引起异常
keI6Lc http://www.numino.net
参考 function SysUtils.TryStrToBool
6vaR1J http://www.numino.net
例子 CheckBox1.Checked := StrToBool(Edit1.Text);
tLhlgW http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
7P2HL1 http://www.numino.net
首部 function StrToBoolDef(const S: string; const Default: Boolean):
sDG70Z http://www.numino.net
Boolean; $[SysUtils.pas
O0W2b9 http://www.numino.net
功能 返回字符串S转换成逻辑值
0K9O8h http://www.numino.net
说明 字符非逻辑表达时则返回默认值Default
n16ZGX http://www.numino.net
参考 function SysUtils.TryStrToBool
aVSkX2 http://www.numino.net
例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False);
a4J93o http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
5DYuG6 http://www.numino.net
首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean;
7yE7S7 http://www.numino.net
$[SysUtils.pas
3r2K90 http://www.numino.net
功能 返回字符串S转换成逻辑值Value是否成功
o7ek64 http://www.numino.net
说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正
R7aheX http://www.numino.net
参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var
bt5wVS http://www.numino.net
SysUtils.FalseBoolStrs
ISO13r http://www.numino.net
例子
btRFCI http://www.numino.net
///////Begin TryStrToBool
uRByDW http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
c6BntV http://www.numino.net
var
MAH9vc http://www.numino.net
B: Boolean;
C14w2V http://www.numino.net
begin
3FGWtf http://www.numino.net
SetLength(TrueBoolStrs, 2);
mG2IJC http://www.numino.net
SetLength(FalseBoolStrs, 2);
vfNxt8 http://www.numino.net
TrueBoolStrs[0] := 'True';
728l1K http://www.numino.net
FalseBoolStrs[0] := 'False';
mygjjz http://www.numino.net
TrueBoolStrs[1] := 'Yes';
BV08dE http://www.numino.net
FalseBoolStrs[1] := 'No';
8sP0Sq http://www.numino.net
CheckBox1.Checked := TryStrToBool(Edit1.Text, B);
7KEEQ9 http://www.numino.net
CheckBox2.Checked := B;
78Uwg6 http://www.numino.net
end;
574WCW http://www.numino.net
///////End TryStrToBool
VNIgvO http://www.numino.net
附加
UqIeKA http://www.numino.net
///////Begin TryStrToBool
5VT4oZ http://www.numino.net
function TryStrToBool(const S: string; out Value: Boolean): Boolean;
7I3WXy http://www.numino.net
function CompareWith(const aArray: array of string): Boolean;
p08yB5 http://www.numino.net
var
7X5Dod http://www.numino.net
I: Integer;
gdGTdO http://www.numino.net
begin
ioL7XM http://www.numino.net
Result := False;
4t4rSW http://www.numino.net
for I := Low(aArray) to High(aArray) do
6t7S1o http://www.numino.net
if AnsiSameText(S, aArray[I]) then
8slja2 http://www.numino.net
begin
dAsCjG http://www.numino.net
Result := True;
7GICit http://www.numino.net
Break;
3u4cSv http://www.numino.net
end;
ag7mso http://www.numino.net
end;
7uHwkA http://www.numino.net
var
02NOVc http://www.numino.net
LResult: Extended;
xz9y6Y http://www.numino.net
begin
NENvN9 http://www.numino.net
Result := TryStrToFloat(S, LResult);
S8liMI http://www.numino.net
if Result then
r8JVIl http://www.numino.net
Value := LResult <> 0
87iGSO http://www.numino.net
else
CsgN04 http://www.numino.net
begin
P4ZyvX http://www.numino.net
Result := True; //修正处
Vl3lbh http://www.numino.net
VerifyBoolStrArray;
7xJ8Aj http://www.numino.net
if CompareWith(TrueBoolStrs) then
J2Dmte http://www.numino.net
Value := True
CjWyWf http://www.numino.net
else if CompareWith(FalseBoolStrs) then
t8ym63 http://www.numino.net
Value := False
UQ3kAF http://www.numino.net
else
b9gdFL http://www.numino.net
Result := False;
XJFA3R http://www.numino.net
end;
MQfeXy http://www.numino.net
end;
7ET0xA http://www.numino.net
///////End TryStrToBool
5o3Azj http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
T90FBM http://www.numino.net
首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;
ozQ89e http://www.numino.net
$[SysUtils.pas
0ox0ov http://www.numino.net
功能 返回逻辑值B转换成字符串
sywtF8 http://www.numino.net
说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1'
9J7gTV http://www.numino.net
参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs
XcSM5j http://www.numino.net
例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked);
9kf6Cx http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
Ge7ot4 http://www.numino.net
首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas
is899E http://www.numino.net
功能 返回根据标识Ident的字符串资源
67329p http://www.numino.net
说明 字符串资源是指程序的内部资源
6FbDYI http://www.numino.net
参考 function SysUtils.FindStringResource
Bh9124 http://www.numino.net
例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0));
VMalN5 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
zsENor http://www.numino.net
首部 function FmtLoadStr(Ident: Integer; const Args: array of const):
if3272 http://www.numino.net
string; $[SysUtils.pas
JOFb12 http://www.numino.net
功能 返回格式化的字符串资源
5bMFQZ http://www.numino.net
说明 字符串资源是指程序的内部资源
H4Uqta http://www.numino.net
参考 function SysUtils.FmtStr;function SysUtils.FindStringResource
Xp6365 http://www.numino.net
例子 <NULL>;
89Xb8e http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
mA9x8Y http://www.numino.net
首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas
8VuPa5 http://www.numino.net
功能 返回指针字符串的长度
x7L35e http://www.numino.net
说明 当指针字符串Str为nil时将触发异常
crxKMT http://www.numino.net
参考 <NULL>
gx9PTi http://www.numino.net
例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text));
h1MQK2 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
n0XV29 http://www.numino.net
首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas
03PCKs http://www.numino.net
功能 返回指针字符串的结尾
4PBp8j http://www.numino.net
说明 当指针字符串Str为nil时将触发异常
ffhpiG http://www.numino.net
参考 <NULL>
jVqXIv http://www.numino.net
例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;
y2wA6B http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
63ztU0 http://www.numino.net
首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal):
f9Ho13 http://www.numino.net
PChar; $[SysUtils.pas
oDWCds http://www.numino.net
功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中
Th0d3P http://www.numino.net
说明 Dest没有分配资源将触发异常s
39s1VS http://www.numino.net
参考 function System.Move
UzVbzy http://www.numino.net
例子
IW4N3E http://www.numino.net
///////Begin StrMove
66Cr9K http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
Bkx0Iq http://www.numino.net
var
gS4mhz http://www.numino.net
vBuffer: PChar;
qirDle http://www.numino.net
begin
I4DXJT http://www.numino.net
vBuffer := '0123456789';
bwR1sl http://www.numino.net
StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
xMs1ew http://www.numino.net
Edit2.Text := vBuffer;
7pfb0V http://www.numino.net
end;
rGrn3O http://www.numino.net
///////End StrMove
EUzWR7 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
0iSvC9 http://www.numino.net
首部 function StrCopy(Dest: PChar; const Source: PChar): PChar;
DK6UiL http://www.numino.net
$[SysUtils.pas
13GhtG http://www.numino.net
功能 返回将指针字符串Source复制到指针字符串Dest中
49AQ14 http://www.numino.net
说明 Dest应已经分配足够的空间非则将触发异常
34lBx2 http://www.numino.net
参考 <NULL>
tWPA8A http://www.numino.net
例子
OiP7K4 http://www.numino.net
///////Begin StrCopy
4076PM http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
7M9VY7 http://www.numino.net
var
T3D1MM http://www.numino.net
vBuffer: PChar;
uxg0G7 http://www.numino.net
begin
5D1Nvs http://www.numino.net
GetMem(vBuffer, Length(Edit1.Text) + 1);
3Dc8uf http://www.numino.net
StrCopy(vBuffer, PChar(Edit1.Text));
GRllze http://www.numino.net
Edit2.Text := vBuffer;
127Wpr http://www.numino.net
FreeMem(vBuffer);
AqH5M0 http://www.numino.net
end;
Y93JCz http://www.numino.net
///////End StrCopy
6274vC http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
6sFmr0 http://www.numino.net
首部 function StrECopy(Dest:PChar; const Source: PChar): PChar;
T34f41 http://www.numino.net
$[SysUtils.pas
ucL1ff http://www.numino.net
功能 返回将指针字符串Source复制到指针字符串Dest中的结尾
2ntvlh http://www.numino.net
说明 可以连接指针字符串
jp7IoE http://www.numino.net
参考 <NULL>
1sAQUX http://www.numino.net
例子
KZG0Pd http://www.numino.net
///////Begin StrECopy
5CiZ86 http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
bV0nHF http://www.numino.net
var
qw8wHV http://www.numino.net
vBuffer: array[0..255] of Char;
jVho1i http://www.numino.net
begin
qrY604 http://www.numino.net
StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text));
Xijg9F http://www.numino.net
Edit3.Text := vBuffer;
zwd2rs http://www.numino.net
end;
zqK6Eo http://www.numino.net
///////End StrECopy
fkr9AT http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
3U3X43 http://www.numino.net
首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal):
moihJT http://www.numino.net
PChar; $[SysUtils.pas
zSHZ9W http://www.numino.net
功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中
TIiVXj http://www.numino.net
说明 Dest应已经分配足够的空间非则将触发异常
EUD2Y8 http://www.numino.net
参考 <NULL>
ToxXdi http://www.numino.net
例子
HvMk6r http://www.numino.net
///////Begin StrLCopy
05eXwa http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
4FgmDl http://www.numino.net
var
kDJHLO http://www.numino.net
vBuffer: array[0..255] of Char;
eLE7pc http://www.numino.net
begin
AD5en6 http://www.numino.net
StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
HyMxow http://www.numino.net
Edit2.Text := vBuffer;
wrD9Z9 http://www.numino.net
end;
Y8FsQq http://www.numino.net
///////End StrLCopy
00Mu1K http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
joLRzN http://www.numino.net
首部 function StrPCopy(Dest: PChar; const Source: string): PChar;
e6h74G http://www.numino.net
$[SysUtils.pas
H5an4P http://www.numino.net
功能 返回将指针字符串Source复制到指针字符串Dest中
e1Fvm8 http://www.numino.net
说明 StrLCopy(Dest, PChar(Source), Length(Source))
BQeqUq http://www.numino.net
参考 function SysUtils.StrLCopy
euVKMB http://www.numino.net
例子
Ea8gt7 http://www.numino.net
///////Begin StrPCopy
2QxYe9 http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
p52m7e http://www.numino.net
var
tpdaZq http://www.numino.net
vBuffer: array[0..255] of Char;
x0cZTa http://www.numino.net
begin
U3Fu2A http://www.numino.net
StrPCopy(vBuffer, PChar(Edit1.Text));
I36mQQ http://www.numino.net
Edit2.Text := vBuffer;
jlpL2V http://www.numino.net
end;
PMt9oq http://www.numino.net
///////End StrPCopy
FwYC7h http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
DWqpFc http://www.numino.net
首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen:
ExzZ1g http://www.numino.net
Cardinal): PChar; $[SysUtils.pas
l3pvT8 http://www.numino.net
功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中
LxeOD5 http://www.numino.net
说明 StrLCopy(Dest, PChar(Source), MaxLen)
usY83z http://www.numino.net
参考 function SysUtils.StrLCopy
3skyA3 http://www.numino.net
例子
3L32g1 http://www.numino.net
///////Begin StrPLCopy
AE4JD1 http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
V8iO93 http://www.numino.net
var
Kzjuvq http://www.numino.net
vBuffer: array[0..255] of Char;
WuJLxZ http://www.numino.net
begin
MdV4UW http://www.numino.net
StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value);
B25GZ9 http://www.numino.net
Edit2.Text := vBuffer;
UhuWIn http://www.numino.net
end;
Qt0J8i http://www.numino.net
///////End StrPLCopy
S3tu9S http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
yxl54n http://www.numino.net
首部 function StrCat(Dest: PChar; const Source: PChar): PChar;
5iRs0p http://www.numino.net
$[SysUtils.pas
xMDQQ2 http://www.numino.net
功能 返回连接指针字符串Dest和指针字符串Source
417oIn http://www.numino.net
说明 StrCopy(StrEnd(Dest), Source)
7373wQ http://www.numino.net
参考 function SysUntils.StrCopy
pkdM0Q http://www.numino.net
例子
QDNbUj http://www.numino.net
///////Begin StrCat
FBOfwa http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
SPx5cP http://www.numino.net
var
42PZ0W http://www.numino.net
vBuffer: array[0..255] of Char;
4I66DV http://www.numino.net
begin
05500P http://www.numino.net
StrPCopy(vBuffer, Edit1.Text);
vp7n6W http://www.numino.net
StrCat(vBuffer, PChar(Edit2.Text));
Z0ZEGg http://www.numino.net
Edit3.Text := vBuffer;
hMOpQC http://www.numino.net
end;
pGPqoS http://www.numino.net
///////End StrCat
Pio1oj http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
8P37Uj http://www.numino.net
首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal):
a09r7V http://www.numino.net
PChar; $[SysUtils.pas
h5VV4C http://www.numino.net
功能 返回连接指针字符串Dest和指针字符串Source
bNjRT8 http://www.numino.net
说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度
582Ntp http://www.numino.net
参考 <NULL>
Dhf8dC http://www.numino.net
例子
GFfztb http://www.numino.net
///////Begin StrLCat
X1s79h http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
90byV3 http://www.numino.net
var
Jhm5EC http://www.numino.net
vBuffer: array[0..255] of Char;
nmpObU http://www.numino.net
begin
f3hBtS http://www.numino.net
StrPCopy(vBuffer, Edit1.Text);
qdO396 http://www.numino.net
StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value);
2t3hkG http://www.numino.net
Edit3.Text := vBuffer;
0gGawK http://www.numino.net
end;
M1XkRN http://www.numino.net
///////End StrLCat
ibR3Qv http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
qKouxe http://www.numino.net
首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas
b4KylI http://www.numino.net
功能 返回比较两个指针字符串
lb6lRe http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异
2AJcbJ http://www.numino.net
参考 <NULL>
SP2qy4 http://www.numino.net
例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text));
47jcnd http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
sLH71A http://www.numino.net
首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas
AunTb2 http://www.numino.net
功能 返回比较两个指针字符串
kgPO3N http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异
GC8bIg http://www.numino.net
参考 <NULL>
MiP3nF http://www.numino.net
例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text));
N0R2LI http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
QfjDZq http://www.numino.net
首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;
oWyCj8 http://www.numino.net
$[SysUtils.pas
5OFtT5 http://www.numino.net
功能 返回比较两个指针字符串指定长度
C5j8Qh http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异
8ZPOMt http://www.numino.net
参考 <NULL>
TAN523 http://www.numino.net
例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text),
yBxnA7 http://www.numino.net
SpinEdit2.Value)
VtgQEv http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
R7m8p7 http://www.numino.net
首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;
fodqE2 http://www.numino.net
$[SysUtils.pas
1q0QX6 http://www.numino.net
功能 返回比较两个指针字符串指定长度
1jXFN3 http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异
Ggc3ue http://www.numino.net
参考 <NULL>
MZ9cEy http://www.numino.net
例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text),
mRZu1Y http://www.numino.net
SpinEdit2.Value)
q0aJiE http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
ax7E78 http://www.numino.net
首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
6E7XMO http://www.numino.net
功能 返回在指针字符串Str搜索字符Chr第一个出现的地址
e2aPCQ http://www.numino.net
说明 没有找到则返回空指针
jKg8wN http://www.numino.net
参考 <NULL>
O02Uor http://www.numino.net
例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*');
RLVq04 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
2z7A2K http://www.numino.net
首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
57JN6C http://www.numino.net
功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址
IK9Le0 http://www.numino.net
说明 没有找到则返回空指针
v2la0m http://www.numino.net
参考 <NULL>
ZgnVgZ http://www.numino.net
例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*');
UBz6PV http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
dVdM96 http://www.numino.net
首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas
kU7M6Z http://www.numino.net
功能 返回指针字符串Str2在Str1中第一个出现的地址
sw7Est http://www.numino.net
说明 没有找到则返回空指针;StrPos('12345', '3') = '345'
je1041 http://www.numino.net
参考 <NULL>
E8WZF4 http://www.numino.net
例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text));
C18T2D http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
yh4MfK http://www.numino.net
首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas
UP80C0 http://www.numino.net
功能 返回指针字符串Str大写
I0I18Z http://www.numino.net
说明 非小写字符不处理
zMnHXy http://www.numino.net
参考 <NULL>
8nlJ22 http://www.numino.net
例子 Edit1.Text := StrUpper(PChar(Edit2.Text));
0MGbYV http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
c234wq http://www.numino.net
首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas
Kf8ch0 http://www.numino.net
功能 返回指针字符串Str小写
D19ivE http://www.numino.net
说明 非大写字符不处理
COg603 http://www.numino.net
参考 <NULL>
SsTcKh http://www.numino.net
例子 Edit1.Text := StrLower(PChar(Edit2.Text));
r9En5n http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
KaN36k http://www.numino.net
首部 function StrPas(const Str: PChar): string; $[SysUtils.pas
Jskb3Y http://www.numino.net
功能 返回指针字符串Str转换成字符串
N519kb http://www.numino.net
说明 也可以直接赋值
AwIh23 http://www.numino.net
参考 <NULL>
WJlOvN http://www.numino.net
例子 Edit1.Text := StrPas(PChar(Edit2.Text));
xoYY36 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
4lbl86 http://www.numino.net
首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas
2VkNf5 http://www.numino.net
功能 返回分配指定空间的内存资源给指针字符串
YUx791 http://www.numino.net
说明 空间的大小也将保存;用StrDispose才能全部释放
oFR4G3 http://www.numino.net
参考 function System.GetMem
WIKRu7 http://www.numino.net
例子
O5JavK http://www.numino.net
///////Begin StrAlloc
phMhDW http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
X6BnoO http://www.numino.net
var
VX9A64 http://www.numino.net
P: PChar;
4evnp3 http://www.numino.net
begin
0oIg20 http://www.numino.net
P := StrAlloc(SpinEdit1.Value);
vxsifA http://www.numino.net
ShowMessage(IntToStr(StrLen(P)));
4w9LgN http://www.numino.net
Dec(P, SizeOf(Cardinal));
1j25Sa http://www.numino.net
ShowMessage(IntToStr(Cardinal(Pointer(P)^)));
r35Po6 http://www.numino.net
Inc(P, SizeOf(Cardinal));
yU03oJ http://www.numino.net
StrDispose(P);
6od8EC http://www.numino.net
end;
YI4DXE http://www.numino.net
///////End StrAlloc
He2DWK http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
DMR0DI http://www.numino.net
首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas
3T2IPT http://www.numino.net
功能 返回通过函数StrAlloc分配的缓冲区大小
0MbJ3p http://www.numino.net
说明 出现异常情况则返回不可预知的结果
g00LFM http://www.numino.net
参考 function System.SizeOf
zfqd9D http://www.numino.net
例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value));
03kFqv http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
FXEgas http://www.numino.net
首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas
pm32NS http://www.numino.net
功能 返回复制一个新的指针字符串
bI4r4K http://www.numino.net
说明 如果Str为nil则返回nil
SH0sm3 http://www.numino.net
参考 function SysUtils.StrLen;function SysUtils.StrMove;function
ZL2LJt http://www.numino.net
SysUtils.StrAlloc
x4Qb9V http://www.numino.net
例子
EIcj4a http://www.numino.net
///////Begin StrNew,StrDispose
DqIY02 http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
Knq9XF http://www.numino.net
var
dlPJR2 http://www.numino.net
P: PChar;
z03k5Y http://www.numino.net
begin
7oTc2C http://www.numino.net
P := StrNew(PChar(Edit1.Text));
Rb3GGk http://www.numino.net
ShowMessage(P);
tBJAdz http://www.numino.net
StrDispose(P);
oSg93E http://www.numino.net
end;
T7Lv37 http://www.numino.net
///////End StrNew,StrDispose
dgL5l9 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
5OonL5 http://www.numino.net
首部 procedure StrDispose(Str: PChar); $[SysUtils.pas
DA5dOp http://www.numino.net
功能 释放指针字符串Str内存资源
l09PS0 http://www.numino.net
说明 如果Str为nil则不作任何处理;并且释放空间大小信息
H3C6Fv http://www.numino.net
参考 function System.Dec;function System.SizeOf;function System.FreeMem
VO8b93 http://www.numino.net
例子 <参见StrNew>
9N42pc http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
4e6fr9 http://www.numino.net
首部 function Format(const Format: string; const Args: array of const):
K3YvAx http://www.numino.net
string; $[SysUtils.pas
8S1B64 http://www.numino.net
功能 返回按指定方式格式化一个数组常量的字符形式
7yv6eb http://www.numino.net
说明 这个函数是我在Delphi中用得最多的函数,现在就列举几个例子给你个直观的理解
1Mp75j http://www.numino.net
"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型
61Vlw4 http://www.numino.net
Format('x=%d', [12]); //'x=12' //最普通
qx36Em http://www.numino.net
Format('x=%3d', [12]); //'x= 12' //指定宽度
41OvHo http://www.numino.net
Format('x=%f', [12.0]); //'x=12.00' //浮点数
1eXKeW http://www.numino.net
Format('x=%.3f', [12.0]); //'x=12.000' //指定小数
Ax0w6u http://www.numino.net
Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置
263n8U http://www.numino.net
Format('x=%.5d', [12]); //'x=00012' //前面补充0
wT42Xq http://www.numino.net
Format('x=%.5x', [12]); //'x=0000C' //十六进制
Ma55Jf http://www.numino.net
Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引
fJOK7N http://www.numino.net
Format('x=%p', [nil]); //'x=00000000' //指针
C7Qs29 http://www.numino.net
Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法
ls8OSK http://www.numino.net
Format('x=%%', []); //'x=%' //得到"%"
QUu6eE http://www.numino.net
S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串
wlWgBa http://www.numino.net
参考 proceduer SysUtils.FmtStr
05mjq6 http://www.numino.net
例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]);
o2UUnt http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
TAEKQ8 http://www.numino.net
首部 procedure FmtStr(var Result: string; const Format: string; const Args:
16Fx3P http://www.numino.net
array of const); $[SysUtils.pas
98Kv7a http://www.numino.net
功能 按指定方式格式化一个数组常量的字符形式返回
Tj87xV http://www.numino.net
说明 <参见Format>
F3aZic http://www.numino.net
参考 function SysUtils.FormatBuf;function System.Length;function
pOtyK1 http://www.numino.net
System.SetLength
j6JNm4 http://www.numino.net
例子 <参见Format>
1vaMEG http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
oEu6c3 http://www.numino.net
首部 function StrFmt(Buffer, Format: PChar; const Args: array of const):
f2376M http://www.numino.net
PChar; $[SysUtils.pas
0FVZtJ http://www.numino.net
功能 返回按指定方式格式化一个数组常量的字符指针形式
0K0pBn http://www.numino.net
说明 如果Buffer和Format其中只要有一个为nil则返回nil
x7Vb74 http://www.numino.net
参考 function SysUtils.FormatBuf
l6r8JT http://www.numino.net
例子 <参见Format>
9jjlPb http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
R0WAuW http://www.numino.net
首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar;
Ix415K http://www.numino.net
const Args: array of const): PChar; $[SysUtils.pas
Bbi1W5 http://www.numino.net
功能 返回按指定方式和长度格式化一个数组常量的字符指针形式
fmMbYh http://www.numino.net
说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1';
8bNDSa http://www.numino.net
参考 function SysUtils.FormatBuf
mYct2y http://www.numino.net
例子 <参见Format>
Z18Ych http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
Z5osWn http://www.numino.net
首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen:
q4kwfx http://www.numino.net
Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas
w51lJS http://www.numino.net
功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中
gZ969k http://www.numino.net
说明 <NULL>
TIpgrj http://www.numino.net
参考 <NULL>
f69ZTb http://www.numino.net
例子 <参见Format>
VvJP22 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
pDeDAr http://www.numino.net
首部 function WideFormat(const Format: WideString; const Args: array of
DB1XoN http://www.numino.net
const): WideString; $[SysUtils.pas
KpLxh9 http://www.numino.net
功能 返回按指定方式格式化一个数组常量的多字节字符形式
jcaS4R http://www.numino.net
说明 <NULL>
2ONsR6 http://www.numino.net
参考 procedure SysUtils.WideFmtStr
Ro2Vga http://www.numino.net
例子 <参见Format>
86f56c http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
JD9QH4 http://www.numino.net
首部 procedure WideFmtStr(var Result: WideString; const Format: WideString;
j0hUAV http://www.numino.net
const Args: array of const); $[SysUtils.pas
6EAUMv http://www.numino.net
功能 按指定方式格式化一个数组常量的多字节字符形式返回
taSRsz http://www.numino.net
说明 <NULL>
jDM2Tj http://www.numino.net
参考 function SysUtils.WideFormatBuf
BreC99 http://www.numino.net
例子 <参见Format>
zwm8p8 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
Q71iW7 http://www.numino.net
首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format;
J9sdWS http://www.numino.net
FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas
3Ir13w http://www.numino.net
功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中
fCuxG3 http://www.numino.net
说明 <NULL>
x8XDcw http://www.numino.net
参考 <NULL>
HELxhz http://www.numino.net
例子 <参见Format>
So79Aa http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
vuZ3V3 http://www.numino.net
首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas
1420gk http://www.numino.net
功能 返回浮点数Value转换成字符串
frJh7S http://www.numino.net
说明 当浮点数大等于1E15将采用科学记数法
tM4f6q http://www.numino.net
参考 function SysUtils.FloatToText
3UrVPE http://www.numino.net
例子 Edit1.Text := FloatToStr(Now);
AtPO5b http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
B3c4KE http://www.numino.net
首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas
xGmSqg http://www.numino.net
功能 返回货币数Value转换成字符串
Q6Heii http://www.numino.net
说明 货币数只保留四位小数
6S68jo http://www.numino.net
参考 function SysUtils.FloatToText
kD9YW0 http://www.numino.net
例子 Edit1.Text := CurrToStr(Now);
mn2g1b http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
zdX8jP http://www.numino.net
首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas
bHsx0p http://www.numino.net
功能 返回浮点数Value转换成货币数
kYS72j http://www.numino.net
说明 如果浮点数Value超出范围则将触发异常
2Auf14 http://www.numino.net
参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency
0CpN8B http://www.numino.net
例子 Edit1.Text := CurrToStr(FloatToCurr(Now));
I43CAJ http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
MW1M2A http://www.numino.net
首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision,
OBk8JQ http://www.numino.net
Digits: Integer): string; $[SysUtils.pas
hB4YMq http://www.numino.net
功能 返回浮点数以指定格式转换成字符串
I0vqis http://www.numino.net
说明 Precision指定精度;Digits指定小数宽度
7Kl6J0 http://www.numino.net
参考 function SysUtils.FloatToText
RMNUEx http://www.numino.net
例子
nM7G0U http://www.numino.net
///////Begin FloatToStrF
jxaFXB http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
UJ062D http://www.numino.net
begin
3lUwsN http://www.numino.net
Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text,
y9OtPO http://www.numino.net
0),
T5oUgT http://www.numino.net
ffGeneral, SpinEdit1.Value, SpinEdit2.Value);
rARyxE http://www.numino.net
Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text,
2tuowB http://www.numino.net
0),
KBy6DY http://www.numino.net
ffExponent, SpinEdit1.Value, SpinEdit2.Value);
FTFuQj http://www.numino.net
Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
z966S4 http://www.numino.net
ffFixed, SpinEdit1.Value, SpinEdit2.Value);
LWic3r http://www.numino.net
Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text,
SEW1s5 http://www.numino.net
0),
8PwMAo http://www.numino.net
ffNumber, SpinEdit1.Value, SpinEdit2.Value);
af4oBQ http://www.numino.net
Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text,
0eWpfe http://www.numino.net
0),
K2q51P http://www.numino.net
ffCurrency, SpinEdit1.Value, SpinEdit2.Value);
ja8zSS http://www.numino.net
end;
a215Tf http://www.numino.net
///////End FloatToStrF
GZ4UaJ http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
wslOz3 http://www.numino.net
首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits:
g82IM0 http://www.numino.net
Integer): string; $[SysUtils.pas
7VUyvm http://www.numino.net
功能 返回货币类型以指定格式转换成字符串
4E5pUG http://www.numino.net
说明 Digits指定小数宽度
CkIYR8 http://www.numino.net
参考 function SysUtils.FloatToText
Dc3G82 http://www.numino.net
例子
1z4ccY http://www.numino.net
///////Begin CurrToStrF
fczdDO http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
UbJ8W3 http://www.numino.net
begin
3nDMyv http://www.numino.net
Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
IHerAL http://www.numino.net
ffGeneral, SpinEdit1.Value);
0u1499 http://www.numino.net
Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text,
k3HJUI http://www.numino.net
0),
ETUce0 http://www.numino.net
ffExponent, SpinEdit1.Value);
qGMtF4 http://www.numino.net
Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
gZlBXM http://www.numino.net
ffFixed, SpinEdit1.Value);
l2O9NT http://www.numino.net
Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
aCQBvg http://www.numino.net
ffNumber, SpinEdit1.Value);
Ba2GHq http://www.numino.net
Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text,
ZB1MHA http://www.numino.net
0),
K5wB49 http://www.numino.net
ffCurrency, SpinEdit1.Value);
8W57d9 http://www.numino.net
end;
VIVjyk http://www.numino.net
///////End CurrToStrF
6C5cgV http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
2gTUWG http://www.numino.net
首部 function FloatToText(BufferArg: PChar; const Value; ValueType:
dFgH95 http://www.numino.net
TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer;
qDQj63 http://www.numino.net
$[SysUtils.pas
uAhoEC http://www.numino.net
功能 返回浮点数以指定格式转换成指针字符串的内存大小
FOIcX9 http://www.numino.net
说明 Precision指定精度;Digits指定小数宽度
TCq9Zh http://www.numino.net
参考 <NULL>
pmyFhi http://www.numino.net
例子
oHDm9i http://www.numino.net
///////Begin FloatToText
EIE0wR http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
Xm96t3 http://www.numino.net
var
gstDSR http://www.numino.net
vBuffer: array[0..255] of Char;
Wjd4rm http://www.numino.net
E: Extended;
rtkjhP http://www.numino.net
begin
w0iqj4 http://www.numino.net
E := StrToFloatDef(Edit1.Text, 0);
9jlCSZ http://www.numino.net
SpinEdit3.Value := FloatToText(vBuffer, E,
8ic9d0 http://www.numino.net
fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value);
Uy6Zv4 http://www.numino.net
Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value);
OEasol http://www.numino.net
end;
2qvf78 http://www.numino.net
///////End FloatToText(
6hLQxU http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
0tNnl6 http://www.numino.net
首部 function FormatFloat(const Format: string; Value: Extended): string;
7Ta5X3 http://www.numino.net
$[SysUtils.pas
iA8x6e http://www.numino.net
功能 返回浮点数类型以指定格式字符串Format转换成字符串
8Cxz10 http://www.numino.net
说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00'
uWbtIL http://www.numino.net
参考 function SysUtils.FloatToTextFmt
4dKMf1 http://www.numino.net
例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0));
YDlgUj http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
Tn98XJ http://www.numino.net
首部 function FormatCurr(const Format: string; Value: Currency): string;
u5xM5s http://www.numino.net
$[SysUtils.pas
88z99t http://www.numino.net
功能 返回货币类型以指定格式字符串Format转换成字符串
qXb63I http://www.numino.net
说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00'
rKk2Nq http://www.numino.net
参考 function SysUtils.FloatToTextFmt
c3UpWK http://www.numino.net
例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0));
v3m1fn http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
rB33vo http://www.numino.net
首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType:
I5WJc5 http://www.numino.net
TFloatValue; Format: PChar): Integer; $[SysUtils.pas
06abDq http://www.numino.net
功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小
2e44BE http://www.numino.net
说明 ValueType指定无类型参数Value的类型
A51J3N http://www.numino.net
参考 <NULL>
K3DoYC http://www.numino.net
例子
TfhPe7 http://www.numino.net
///////Begin FloatToTextFmt
2SzKp9 http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
0ALUUU http://www.numino.net
var
QHnV8M http://www.numino.net
vBuffer: array[0..255] of Char;
mP17bg http://www.numino.net
E: Extended;
ZKppuL http://www.numino.net
begin
KVBmLE http://www.numino.net
E := StrToFloatDef(Edit1.Text, 0);
XFS5Y5 http://www.numino.net
SpinEdit1.Value := FloatToTextFmt(vBuffer, E,
ayAtSH http://www.numino.net
fvExtended, PChar(Edit2.Text));
sRdpOH http://www.numino.net
Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value);
oP5VZP http://www.numino.net
end;
7ct9D9 http://www.numino.net
///////End FloatToTextFmt
rYmU9Q http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
JH52mF http://www.numino.net
首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas
wMA59c http://www.numino.net
功能 返回字符串S转换成浮点数
6X4iXe http://www.numino.net
说明 字符串非浮点数表达时将引起异常
2V481L http://www.numino.net
参考 function SysUtils.TextToFloat
8ag9d9 http://www.numino.net
例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end;
Qw2xI2 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
3QWw08 http://www.numino.net
首部 function StrToFloatDef(const S: string; const Default: Extended):
E10BYR http://www.numino.net
Extended; $[SysUtils.pas
XO7WG4 http://www.numino.net
功能 返回字符串S转换成浮点数
Kxj159 http://www.numino.net
说明 字符串非浮点数表达时则返回默认值Default
hVxvX7 http://www.numino.net
参考 function SysUtils.TextToFloat
B8eXVG http://www.numino.net
例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end;
m9136m http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
3VNt7C http://www.numino.net
首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean;
33n1ob http://www.numino.net
overload; $[SysUtils.pas
T1OZWu http://www.numino.net
首部 function TryStrToFloat(const S: string; out Value: Single): Boolean;
h8ywo3 http://www.numino.net
overload; $[SysUtils.pas
sEHTQR http://www.numino.net
首部 function TryStrToFloat(const S: string; out Value: Double): Boolean;
CtA8Ya http://www.numino.net
overload; $[SysUtils.pas
L9M1E8 http://www.numino.net
功能 返回字符串S转换成浮点数Value是否成功
boQyTw http://www.numino.net
说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值
6I27T0 http://www.numino.net
参考 function SysUtils.TextToFloat
5oqNZS http://www.numino.net
例子
V0AFrK http://www.numino.net
///////Begin TryStrToFloat
SvIn78 http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
Vyvbje http://www.numino.net
var
5sKbeP http://www.numino.net
E: Extended;
8nhnnn http://www.numino.net
begin
67Bufs http://www.numino.net
CheckBox1.Checked := TryStrToFloat(Edit1.Text, E);
pSDz03 http://www.numino.net
Edit2.Text := FormatFloat('', E);
96m7l0 http://www.numino.net
end;
hSzrU1 http://www.numino.net
///////End TryStrToFloat
EDwNWb http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
J09Rv5 http://www.numino.net
首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas
9v47ju http://www.numino.net
功能 返回字符串S转换成货币数
PP0nLV http://www.numino.net
说明 字符串非货币数表达时将引起异常
z96hJz http://www.numino.net
参考 function SysUtils.TextToFloat
8T2u3a http://www.numino.net
例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end;
hZn1GY http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
pNtB4Z http://www.numino.net
首部 function StrToCurrDef(const S: string; const Default: Currency):
n9ZAUP http://www.numino.net
Currency; $[SysUtils.pas
z3pn3C http://www.numino.net
功能 返回字符串S转换成货币数
8X4uOS http://www.numino.net
说明 字符串非货币数表达时则返回默认值Default
J49ZI2 http://www.numino.net
参考 function SysUtils.TextToFloat
CwNX6f http://www.numino.net
例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end;
5E5ns6 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
FJX46p http://www.numino.net
首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean;
cwluMd http://www.numino.net
$[SysUtils.pas
39wrrV http://www.numino.net
功能 返回字符串S转换成货币数Value是否成功
N7fcJP http://www.numino.net
说明 字符串非货币数表达时返回False并且Value将输出为不确定的值
JOm28u http://www.numino.net
参考 function SysUtils.TextToFloat
7oZ8RG http://www.numino.net
例子
8lXox1 http://www.numino.net
///////Begin TryStrToCurr
Eo955v http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
VHKGIJ http://www.numino.net
var
PNgiqu http://www.numino.net
C: Currency;
3vjMXV http://www.numino.net
begin
w5Jyix http://www.numino.net
CheckBox1.Checked := TryStrToCurr(Edit1.Text, C);
U7SVNC http://www.numino.net
Edit2.Text := FormatCurr('', C);
69YJD0 http://www.numino.net
end;
nq3ZIy http://www.numino.net
///////End TryStrToCurr
qfHSBh http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
UIpolz http://www.numino.net
首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue):
zeFcC7 http://www.numino.net
Boolean; $[SysUtils.pas
yWK4B1 http://www.numino.net
功能 返回将指针字符串Buffer转换成无类型变量Value
60Qrqj http://www.numino.net
说明 ValueType指定无类型参数Value的类型
tr9BLv http://www.numino.net
参考 <NULL>
5o48RL http://www.numino.net
例子
G4Jk7L http://www.numino.net
///////Begin TextToFloat
C1nj8v http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
NBUE9m http://www.numino.net
var
og6D3m http://www.numino.net
E: Extended;
NXW8TY http://www.numino.net
begin
7p87uE http://www.numino.net
CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E,
8sul5K http://www.numino.net
fvExtended);
1kRMsL http://www.numino.net
Edit2.Text := FormatFloat('', E);
m5t83t http://www.numino.net
end;
R2rLQx http://www.numino.net
///////End TextToFloat
xB8NDx http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
RZIMGb http://www.numino.net
首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas
pD3SlF http://www.numino.net
功能 返回日期DateTime转换成字符串
7TOv1Z http://www.numino.net
说明 转换格式由系统变量ShortDateFormat控制
jyOVTS http://www.numino.net
参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat
P7a22E http://www.numino.net
例子 Edit1.Text := DateToStr(Date);
RuX4dq http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
kc6FTM http://www.numino.net
首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas
SXcW0e http://www.numino.net
功能 返回时间DateTime转换成字符串
ukLkua http://www.numino.net
说明 转换格式由系统变量LongTimeFormat控制
zGqxve http://www.numino.net
参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat
o1ew3T http://www.numino.net
例子 Edit1.Text := TimeToStr(Date);
ae3ZCo http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
jIQ4kt http://www.numino.net
首部 function DateTimeToStr(const DateTime: TDateTime): string;
78yjy0 http://www.numino.net
$[SysUtils.pas
gxyhgu http://www.numino.net
功能 返回日期时间DateTime转换成字符串
5pUYID http://www.numino.net
说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制
zLO6P6 http://www.numino.net
参考 function SysUtils.DateTimeToString
32R47C http://www.numino.net
例子 Edit1.Text := DateTimeToStr(Now);
o660Kr http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
7LWjdP http://www.numino.net
首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas
3unbYb http://www.numino.net
功能 返回字符串S转换成日期
cB0z8B http://www.numino.net
说明 字符非日期表达时将引起异常
sAz87z http://www.numino.net
参考 function SysUtils.TryStrToDate
Kh4Zl7 http://www.numino.net
例子 DateTimePicker1.Date := StrToDate(Edit1.Text);
2FhvdO http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
v0vu8J http://www.numino.net
首部 function StrToDateDef(const S: string; const Default: TDateTime):
c4m7T2 http://www.numino.net
TDateTime; $[SysUtils.pas
762pAk http://www.numino.net
功能 返回字符串S转换成日期
FzJ62x http://www.numino.net
说明 字符非日期表达时则返回默认值Default
k18Ga8 http://www.numino.net
参考 function SysUtils.TryStrToDate
ZL1GUT http://www.numino.net
例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date);
I5hZ1p http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
n4E4Av http://www.numino.net
首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean;
O8k3R8 http://www.numino.net
$[SysUtils.pas
QV8VAi http://www.numino.net
功能 返回字符串S转换成日期Value是否成功
ICj591 http://www.numino.net
说明 字符非日期表达时返回False并且Value将输出为0
8Umw1a http://www.numino.net
参考 <NULL>
w8F5Rz http://www.numino.net
例子
u5Sq7z http://www.numino.net
///////Begin TryStrToDate
i5P4ug http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
9720sY http://www.numino.net
var
3Rb1cX http://www.numino.net
vDateTime: TDateTime;
jx30Hx http://www.numino.net
begin
ih59I1 http://www.numino.net
CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime);
avr223 http://www.numino.net
DateTimePicker1.Date := vDateTime;
wwYMRr http://www.numino.net
end;
nhK8GV http://www.numino.net
///////End TryStrToDate
x7IY2v http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
Bj4B55 http://www.numino.net
首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas
7qtiP6 http://www.numino.net
功能 返回字符串S转换成时间
gfal4M http://www.numino.net
说明 字符非时间表达时将引起异常
r0yyJ5 http://www.numino.net
参考 function SysUtils.TryStrToTime
yDiBy8 http://www.numino.net
例子 DateTimePicker1.Time := StrToTime(Edit1.Text);
Lvr07U http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
Nnn35n http://www.numino.net
首部 function StrToTimeDef(const S: string; const Default: TDateTime):
5l2dPS http://www.numino.net
TDateTime; $[SysUtils.pas
A5ol8z http://www.numino.net
功能 返回字符串S转换成时间
t5MDFs http://www.numino.net
说明 字符非时间表达时则返回默认值Default
g6Az2K http://www.numino.net
参考 function SysUtils.TryStrToTime
QIKGmH http://www.numino.net
例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time);
klUHps http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
6APR94 http://www.numino.net
首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean;
dnleQN http://www.numino.net
$[SysUtils.pas
rip1E1 http://www.numino.net
功能 返回字符串S转换成时间Value是否成功
d5LE46 http://www.numino.net
说明 字符非时间表达时返回False并且Value将输出为0
SKBrf3 http://www.numino.net
参考 <NULL>
7yL21j http://www.numino.net
例子
G96AhM http://www.numino.net
///////Begin TryStrToTime
eHH336 http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
sblW77 http://www.numino.net
var
Ou9js3 http://www.numino.net
vDateTime: TDateTime;
M2ZWXT http://www.numino.net
begin
3ZcO41 http://www.numino.net
CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime);
X9h40E http://www.numino.net
DateTimePicker1.Time := vDateTime;
CzFL6i http://www.numino.net
end;
F4gqO9 http://www.numino.net
///////End TryStrToTime
kjt1uV http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
rN14Sz http://www.numino.net
首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas
7WpkWo http://www.numino.net
功能 返回字符串S转换成日期时间
Uh68vB http://www.numino.net
说明 字符非日期时间表达时将引起异常
6rRqkq http://www.numino.net
参考 function SysUtils.TryStrToDateTime
31HH2T http://www.numino.net
例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text));
FMuv9B http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
xsAuM3 http://www.numino.net
首部 function StrToDateTimeDef(const S: string; const Default: TDateTime):
mLSQBx http://www.numino.net
TDateTime; $[SysUtils.pas
2bCiSs http://www.numino.net
功能 返回字符串S转换成日期时间
Mn9J8y http://www.numino.net
说明 字符非日期时间表达时则返回默认值Default
ju5SWa http://www.numino.net
参考 function SysUtils.TryStrToDateTime
N4q1d2 http://www.numino.net
例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now));
1XiS56 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
eU2600 http://www.numino.net
首部 function TryStrToDateTime(const S: string; out Value: TDateTime):
0WD4F8 http://www.numino.net
Boolean; $[SysUtils.pas
PZ4KVX http://www.numino.net
功能 返回字符串S转换成日期时间Value是否成功
Zgk73i http://www.numino.net
说明 字符非日期时间表达时返回False并且Value将输出为0
XQq4a3 http://www.numino.net
参考 <NULL>
q79d6I http://www.numino.net
例子
iRPtNt http://www.numino.net
///////Begin TryStrToDateTime
4HM9KX http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
Psm87T http://www.numino.net
var
6IFges http://www.numino.net
vDateTime: TDateTime;
rl7Ubh http://www.numino.net
begin
79qHC4 http://www.numino.net
CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime);
m4mY6B http://www.numino.net
Edit2.Text := DateTimeToStr(vDateTime);
Rq7BQh http://www.numino.net
end;
dWaz3I http://www.numino.net
///////End TryStrToDateTime
4J78K7 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
qr1O09 http://www.numino.net
首部 procedure DateTimeToString(var Result: string; const Format: string;
7ejc8o http://www.numino.net
DateTime: TDateTime); $[SysUtils.pas
11qSji http://www.numino.net
功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中
6Z50zH http://www.numino.net
说明 <参见FormatDateTime>
10y4qE http://www.numino.net
参考 function System.SetString
IizBAk http://www.numino.net
例子 <参见FormatDateTime>
Jo2BKM http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
t6JGeY http://www.numino.net
首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default:
V5ebA5 http://www.numino.net
string): string; platform; $[SysUtils.pas
7eqJY7 http://www.numino.net
功能 返回当前系统指定参数的字符串值
jy1fqq http://www.numino.net
说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)'
KkjM3u http://www.numino.net
参考 function Windows.GetLocaleInfo
xI75nz http://www.numino.net
例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>');
6a5lb6 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
4ufk4K http://www.numino.net
首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char):
etVqcB http://www.numino.net
Char; platform; $[SysUtils.pas
eVzsPn http://www.numino.net
功能 返回当前系统指定参数的字符值
r4N2sV http://www.numino.net
说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ','
7nOisB http://www.numino.net
参考 function Windows.GetLocaleInfo
gZWdwS http://www.numino.net
例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0);
wINT2V http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
gAr7JX http://www.numino.net
首部 function ByteType(const S: string; Index: Integer): TMbcsByteType;
73rO2k http://www.numino.net
$[SysUtils.pas
9zI7MP http://www.numino.net
功能 返回字符串S位置Index上的字符在MBCS中类型
rgowB6 http://www.numino.net
说明 多字节字符系统:Multi-Byte Character System (MBCS)
RUhu2O http://www.numino.net
参考 var SysUtils.SysLocale
DTQNca http://www.numino.net
例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value));
0kK9kd http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
N3720O http://www.numino.net
首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType;
60NGF3 http://www.numino.net
$[SysUtils.pas
m6mQyj http://www.numino.net
功能 返回指针字符串Str位置Index上的字符在MBCS中类型
M6HQ1p http://www.numino.net
说明 Index从0开始
N04ILv http://www.numino.net
参考 var SysUtils.SysLocale
24uKdy http://www.numino.net
例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text),
fO6eBe http://www.numino.net
SpinEdit2.Value));
un5OQr http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
nq7ho6 http://www.numino.net
首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer;
bdyZBi http://www.numino.net
$[SysUtils.pas
290PO7 http://www.numino.net
功能 返回字符串S中有多少个多字节字符
ZDExLV http://www.numino.net
说明 MaxLen指定处理字符个数
c0f8q0 http://www.numino.net
参考 function SysUtils.ByteToCharIndex
HW5QJp http://www.numino.net
例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value);
HzIHHu http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
HP1InQ http://www.numino.net
首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer;
y1025i http://www.numino.net
$[SysUtils.pas
z6z9Kw http://www.numino.net
功能 返回字符串S中有多少个字符
QT1we7 http://www.numino.net
说明 MaxLen指定处理多字节字符个数
BGMMI7 http://www.numino.net
参考 var SysUtils.SysLocale
d8iUDX http://www.numino.net
例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value);
PN9b14 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
57wDew http://www.numino.net
首部 function ByteToCharIndex(const S: string; Index: Integer): Integer;
Nh35V8 http://www.numino.net
$[SysUtils.pas
1ovnjN http://www.numino.net
功能 返回字符位置对应的多字节字符位置
uvRQl7 http://www.numino.net
说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2
4JP7vE http://www.numino.net
参考 function SysUtils.NextCharIndex
GHV4o1 http://www.numino.net
例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value);
iCQ6pl http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
RWSiDA http://www.numino.net
首部 function CharToByteIndex(const S: string; Index: Integer): Integer;
n8GIy9 http://www.numino.net
$[SysUtils.pas
UHIoXS http://www.numino.net
功能 返回多字节字符位置对应的字符起始位置
6ZNU8Y http://www.numino.net
说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3
2G2SNx http://www.numino.net
参考 function System.Length
5Nvez3 http://www.numino.net
例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value);
VAA3W0 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
40TQ4T http://www.numino.net
首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas
IJSDyt http://www.numino.net
功能 返回第一个字符的宽度
pEyhZW http://www.numino.net
说明 参数为空则返回0
WUO8vT http://www.numino.net
参考 function Windows.CharNext
NZSnOH http://www.numino.net
例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text));
N8HB3S http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
hFI5G4 http://www.numino.net
首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas
ODjPwR http://www.numino.net
功能 返回字符指针Str的下一个字符指针
7j30rd http://www.numino.net
说明 StrNextChar('1234') = '234';
7UT6QT http://www.numino.net
参考 function Windows.CharNext
l7GiY4 http://www.numino.net
例子 Edit2.Text := StrNextChar(PChar(Edit1.Text));
ROk440 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
mkbyRA http://www.numino.net
首部 function CharLength(const S: String; Index: Integer): Integer;
pCOgU3 http://www.numino.net
$[SysUtils.pas
14UHan http://www.numino.net
功能 返回字符串中指定位置的字符宽度
S88ReB http://www.numino.net
说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2
v4kXd0 http://www.numino.net
参考 function System.Assert;function SysUtils.StrCharLength
76vlFX http://www.numino.net
例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value);
V2SejK http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
XeUXku http://www.numino.net
首部 function NextCharIndex(const S: String; Index: Integer): Integer;
SVVS42 http://www.numino.net
$[SysUtils.pas
TkqoD5 http://www.numino.net
功能 返回下一个字符的位置
nUFZ5z http://www.numino.net
说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5
PHPlJK http://www.numino.net
参考 function System.Assert;function SysUtils.StrCharLength
xvWHM3 http://www.numino.net
例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value);
6Kc905 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
8jYuIj http://www.numino.net
首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean;
zogWzM http://www.numino.net
$[SysUtils.pas
QHhhsk http://www.numino.net
功能 返回字符串S中指定位置Index上是否是一个路径分隔符
jEy83L http://www.numino.net
说明 IsPathDelimiter('C:\Windows', 3) = True
T85I0W http://www.numino.net
参考 const SysUtils.PathDelim;function SysUtils.ByteType
tQ8mOe http://www.numino.net
例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value);
2n51j2 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
7U2mz2 http://www.numino.net
首部 function IsDelimiter(const Delimiters, S: string; Index: Integer):
U2Ed43 http://www.numino.net
Boolean; $[SysUtils.pas
D7n7Iv http://www.numino.net
功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters
m0S6uc http://www.numino.net
说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True
txbx9I http://www.numino.net
参考 function SysUtils.ByteType
G0A4b8 http://www.numino.net
例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text,
48rsZ5 http://www.numino.net
SpinEdit1.Value);
osp16R http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
aBlZ5l http://www.numino.net
首部 function IncludeTrailingPathDelimiter(const S: string): string;
F4oNeg http://www.numino.net
$[SysUtils.pas
eD3N8N http://www.numino.net
功能 返回包括最后路径分隔符
Z6Jz3R http://www.numino.net
说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回
tZ4Xgq http://www.numino.net
参考 function SysUtils.IsPathDelimiter;function System.Length
boud72 http://www.numino.net
例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text);
C2IHYF http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
kO6K6R http://www.numino.net
首部 function IncludeTrailingBackslash(const S: string): string; platform;
C27CmQ http://www.numino.net
$[SysUtils.pas
mXzL4N http://www.numino.net
功能 返回包括最后斜线
2K04o6 http://www.numino.net
说明 Result := IncludeTrailingPathDelimiter(S);
GPAL7e http://www.numino.net
参考 function SysUtils.IncludeTrailingPathDelimiter
k1ee2l http://www.numino.net
例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text);
l9V5qi http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
A4Vp25 http://www.numino.net
首部 function ExcludeTrailingPathDelimiter(const S: string): string;
1DBdho http://www.numino.net
$[SysUtils.pas
5P70iG http://www.numino.net
功能 返回排除最后路径分隔符
lK4fof http://www.numino.net
说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回
lYf5xf http://www.numino.net
参考 function SysUtils.IsPathDelimiter;function System.Length;function
45CYRd http://www.numino.net
System.SetLength
CCg1GO http://www.numino.net
例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text);
Kamjrb http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
yWuf76 http://www.numino.net
首部 function ExcludeTrailingBackslash(const S: string): string; platform;
jUGIk5 http://www.numino.net
$[SysUtils.pas
G9xFNi http://www.numino.net
功能 返回排除最后斜线
w08Ikr http://www.numino.net
说明 Result := ExcludeTrailingPathDelimiter(S)
Qv5yNx http://www.numino.net
参考 function SysUtils.ExcludeTrailingPathDelimiter
xGb222 http://www.numino.net
例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text);
oLY01t http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
lYQKJm http://www.numino.net
首部 function LastDelimiter(const Delimiters, S: string): Integer;
lc7i5m http://www.numino.net
$[SysUtils.pas
pXt8ez http://www.numino.net
功能 返回最后一个分隔符的位置
NqEVY4 http://www.numino.net
说明 LastDelimiter('.', 'kingron.myetang.com') = 16
Wsy0WO http://www.numino.net
参考 function SysUtils.StrScan;function SysUtils.ByteType
JUA0sU http://www.numino.net
例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text);
j416Xz http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
ewKfOt http://www.numino.net
首部 function AnsiCompareFileName(const S1, S2: string): Integer;
1ya0QK http://www.numino.net
$[SysUtils.pas
f3415O http://www.numino.net
功能 返回比较两个文件名
Dh291Q http://www.numino.net
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写
aGk9pJ http://www.numino.net
参考 function SysUtils.AnsiCompareStr
zubTUD http://www.numino.net
例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text);
DAg0g6 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
iA1QP6 http://www.numino.net
首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas
ACKCJA http://www.numino.net
功能 返回两个文件名是否相等
62sHr9 http://www.numino.net
说明 区分大小写
tyEO39 http://www.numino.net
参考 function SysUtils.AnsiCompareFileName
oJl5Wh http://www.numino.net
例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text);
RGiyGg http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
9rXY0P http://www.numino.net
首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas
W42ToK http://www.numino.net
功能 返回小写文件名
D0JLI7 http://www.numino.net
说明 在非多字节字符系统上相当于AnsiLowerCase
T29Vat http://www.numino.net
参考 function SysUtils.AnsiLowerCase
3Utm0Y http://www.numino.net
例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text);
aBbmV9 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
AJO9zk http://www.numino.net
首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas
aALPSu http://www.numino.net
功能 返回大写文件名
Eedr3K http://www.numino.net
说明 在非多字节字符系统上相当于AnsiUpperCase
M4eHY8 http://www.numino.net
参考 function SysUtils.AnsiUpperCase
wcRpt8 http://www.numino.net
例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text);
y9SDts http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
04e3v2 http://www.numino.net
首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas
s37LVj http://www.numino.net
功能 返回子串Substr在字符中第一次出现的位置
X3gJVa http://www.numino.net
说明 不存在则返回0
x13F78 http://www.numino.net
参考 SysUtils.AnsiStrPos
nWdz15 http://www.numino.net
例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text);
ImCBVi http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
f8czn3 http://www.numino.net
首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas
51ntwO http://www.numino.net
功能 返回指针子串Substr在指针字符中第一次出现的指针位置
5aWe1A http://www.numino.net
说明 不存在则返回nil
b4HnaF http://www.numino.net
参考 function SysUtils.StrByteType
SuzWxx http://www.numino.net
例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text));
2Qt5cH http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
3CWz8a http://www.numino.net
首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas
oAgw36 http://www.numino.net
功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址
2TjCZd http://www.numino.net
说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com'
GOW6fk http://www.numino.net
参考 function SysUtils.AnsiStrScan
v7WhI4 http://www.numino.net
例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.');
ZNw5B9 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
ELL2pP http://www.numino.net
首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas
MkCIwY http://www.numino.net
功能 返回在指针字符串Str搜索字符Chr第一个出现的地址
7Nzc2Q http://www.numino.net
说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com'
DSXowQ http://www.numino.net
参考 function SysUtils.StrScan
npEqdW http://www.numino.net
例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.');
21I2Av http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
sxqoC9 http://www.numino.net
首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags:
8o2m4v http://www.numino.net
TReplaceFlags): string; $[SysUtils.pas
X14wtF http://www.numino.net
功能 返回替换后的字符串
loEMyV http://www.numino.net
说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写
Rv747N http://www.numino.net
参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function
X59hYB http://www.numino.net
System.Copy
4ShDs7 http://www.numino.net
例子
0y5Ltb http://www.numino.net
///////Begin StringReplace
gApZpD http://www.numino.net
procedure TForm1.Button1Click(Sender: TObject);
7o3Z4W http://www.numino.net
begin
c5K36q http://www.numino.net
Memo1.Lines.Values['[]'] :=
qVvPch http://www.numino.net
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []);
WrvEU1 http://www.numino.net
Memo1.Lines.Values['[rfReplaceAll]'] :=
O1q48Y http://www.numino.net
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]);
hn5i77 http://www.numino.net
Memo1.Lines.Values['[rfIgnoreCase]'] :=
eiEXSB http://www.numino.net
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]);
08kKBA http://www.numino.net
Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] :=
iFp7b9 http://www.numino.net
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll,
46u7DZ http://www.numino.net
rfIgnoreCase]);
DwOEiR http://www.numino.net
end;
O6YRs1 http://www.numino.net
///////End StringReplace
p8Dc9q http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
jdaOd4 http://www.numino.net
首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas
2mMs77 http://www.numino.net
功能 返回字符串S转换成全局标识
31y7b8 http://www.numino.net
说明 如果字符串非法将触发异常
4Rs6TM http://www.numino.net
参考 fuction Windows.Succeeded
Z6O9J5 http://www.numino.net
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));
JMnhg8 http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
ysyL5C http://www.numino.net
首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas
ZRjeD2 http://www.numino.net
功能 返回全局标识GUID转换成字符串
4fgTh9 http://www.numino.net
说明 <NULL>
tvjy44 http://www.numino.net
参考 fuction Windows.Succeeded
XO0bGd http://www.numino.net
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));
K3ZeEl http://www.numino.net
━━━━━━━━━━━━━━━━━━━━━
更多相关内容...>>Delphi字符串函数大全

Bug报告 |  免责声明 |  联系我们 |  加入收藏

Copyright © 2006 NuminoStudio(www.numino.net) All Rights Reserved