范例 var
S: string;
begin
S := ''''The Black Knight'''';
Canvas.TextOut(10, 10, ''''String Length = '''' +
IntToStr(Length(S)));
end;
Example
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Label1.Caption := '''';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],4) + '''' '''';
except
Beep;
end;
end;
end;
范例
procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
S := memo1.text;
Label1.caption :='''' '''' + IntToStr(Length(S));
end;
var
S: string;
I: Integer;
begin
S:= ''''? ???? ???????? ??????'''';
I:= Length(S); // I:= 22
MessageDlg( ''''????? ??????=''''+ IntToStr(I), mtWarning, [mbOK], 0);
end;
## Length, IntToHex Example
-----------------------------------------------------------------------------
Pos 寻找子字串在母字串中的位置.
-----------------------------------------------------------------------------
Unit System
函数原型 function Pos(Substr: string; S: string): Integer;
说明 Substr : 子字串.
S : 母字串.
范例
procedure TForm1.Button1Click(Sender: TObject);
var S: string;
begin
S := '''' 1234.5 '''';
{ Convert spaces to zeroes }
while Pos('''' '''', S) > 0 do
S[Pos('''' '''', S)] := ''''0'''';
Label1.Caption := S;
Label1.Font.Size := 16;
end;
var
S: string;
I: Integer;
begin
S:= ''''? ???? ???????? ??????'''';
I:= Pos( ''''???'''', S); // I:= 3
end;
//DEMO 001234.50 //空白字串补零
-----------------------------------------------------------------------------
LowerCase 将字串全部转为小写字母.
-----------------------------------------------------------------------------
Unit System
函数原型 function LowerCase(const S: string): string;
范例 procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := LowerCase(Edit1.Text);
end;
Example
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := LowerCase(Edit1.Text);
end;
var
S: string;
begin
S:= LowerCase( ''''????????.TXT'''') ; // S := ''''????????.txt''''
end;
-----------------------------------------------------------------------------
UpperCase 将字串全部转为大写字母.
-----------------------------------------------------------------------------
Unit SysUtils
函数原型 function UpperCase(const S: string): string;
范例 procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ListBox1.Items.Count -1 do
ListBox1.Items[I] := UpperCase(ListBox1.Items[I]);
end;
Example
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ListBox1.Items.Count -1 do
ListBox1.Items[I] := UpperCase(ListBox1.Items[I]);
end;
-----------------------------------------------------------------------------
Trim 将字串前後的空白及控制字元清掉.
Trim ( const S: string ): string;
SysUtils
var
S: string;
L: Integer;
begin
S:= #13'''' ???! ''''#13;
L:= length( S); // L := 10
S:= Trim( S); // S := ''''???!''''
L:= L-length( S); // L := 5
MessageDlg( ''''??????? ???????? - ''''+ IntToStr(L), mtInformation, [mbOk], 0);
end;
-----------------------------------------------------------------------------
TrimLeft 将字串左边的空白及控制字元清掉.
SysUtils
var
S: string;
L: Integer;
begin
S:= #13'''' ???! ''''#13;
L:= length( S); // L := 10
S:= TrimLeft( S); // S := ''''???! ''''#13
L:= L-length( S); // L := 3
MessageDlg( ''''??????? ???????? - ''''+IntToStr(L), mtInformation, [mbOk], 0);
end;
-----------------------------------------------------------------------------
TrimRight 将字串右边的空白及控制字元清掉.
-----------------------------------------------------------------------------
Unit SysUtils
函数原型 function Trim(const S: string): string;
函数原型 function TrimLeft(const S: string): string;
函数原型 function TrimRight(const S: string): string;
var
S: string;
L: Integer;
begin
S:= #13'''' ???! ''''#13;
L:= length( S); // L := 10
S:= TrimRight( S); // S := #13'''' ???!''''
L:= L-length( S); // L := 2
MessageDlg( ''''??????? ???????? - ''''+IntToStr(L), mtInformation, [mbOk], 0);
end;
-----------------------------------------------------------------------------
AdjustLineBreaks 将字串的换行符号全部改为#13#10
-----------------------------------------------------------------------------
Unit SysUtils
函数原型 function AdjustLineBreaks(const S: string): string;
=======================================
String-handling routines (null-terminated)字串函式
=======================================
StrAlloc 配置字串空间.
-----------------------------------------------------------------------------
Unit SysUtils
函数原型 function StrAlloc(Size: Cardinal): PChar;
说明 Size=字串最大空间+1
-----------------------------------------------------------------------------
StrBufSize 传回由 StrAlloc 配置空间的大小
-----------------------------------------------------------------------------
Unit SysUtils
函数原型 function StrBufSize(Str: PChar): Cardinal;
-----------------------------------------------------------------------------
StrCat 字串相加.
-----------------------------------------------------------------------------
Unit SysUtils
函数原型 function StrCat(Dest, Source: PChar): PChar;
范例 uses SysUtils;
const
Obj: PChar = ''''Object'''';
Pascal: PChar = ''''Pascal'''';
var
S: array[0..15] of Char;
begin
StrCopy(S, Obj);
StrCat(S, '''' '''');
StrCat(S, Pascal);
Canvas.TextOut(10, 10, StrPas(S));
end;
Example
procedure TForm1.Button1Click(Sender: TObject);
var
Buffer: PChar;
begin
GetMem(Buffer,Length(Label1.Caption) + Length(Edit1.Text) + 1);
StrCopy(Buffer, PChar(Label1.Caption));
StrCat(Buffer, PChar(Edit1.Text));
Label1.Caption := Buffer;
Edit1.Clear;
FreeMem(Buffer);
end;
const
P0: PChar = ''''??????-'''';
P1: PChar = ''''??????????'''';
P2: PChar = ''''????????'''';
var
S1, S2: array[0..20] of Char;
begin
StrCopy(S1, P0);
StrCopy(S2, P0);
&nbs << 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] ... 下一页 >> |
