##StrCopy, StrCat Example ----------------------------------------------------------------------------- StrComp 比较两字串大小. ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function StrComp(Str1, Str2 : PChar): Integer; 范例 uses SysUtils; const S1: PChar = ''''Wacky''''; S2: PChar = ''''Code''''; var C: Integer; Result: string; begin C := StrComp(S1, S2); if C < 0 then Result := '''' is less than '''' else if C > 0 then Result := '''' is greater than '''' else Result := '''' is equal to ''''; Canvas.TextOut(10, 10, StrPas(S1) + Result + StrPas(S2)); end; Example uses SysUtils; procedure TForm1.Button1Click(Sender: TObject);
var Msg: string; CompResult: Integer; begin Msg := Edit1.Text; CompResult := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); if CompResult < 0 then Msg := Msg + '''' is less than '''' else if CompResult > 0 then Msg := Msg + '''' is greater than '''' else Msg := Msg + '''' is equal to '''' Msg := Msg + Edit2.Text; ShowMessage(Msg); end;
var S1,S2: PChar; I: Integer; Res: string; begin S1:= ''''Company''''; S2:= ''''COMPANY''''; I:= StrComp(S1, S2); if I>0 then Res:= ''''>'''' else if I<0 then Res:= ''''<'''' else Res:= ''''=''''; MessageDlg(S1+ Res+ S2, mtInformation, [mbOk], 0); end; ----------------------------------------------------------------------------- StrCopy 拷贝字串. ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function StrCopy(Dest, Source: PChar): PChar; 范例 uses SysUtils; var S: array[0..12] of Char; begin StrCopy(S, ''''ObjectPascal''''); 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; ## StrCopy, StrCat Example ----------------------------------------------------------------------------- StrDispose 释放StrAlloc or StrNew所配置的空间. ----------------------------------------------------------------------------- Unit SysUtils 函数原型 procedure StrDispose(Str: PChar); 范例 uses SysUtils; const S: PChar = ''''Nevermore''''; var P: PChar; begin P := StrNew(S); Canvas.TextOut(10, 10, StrPas(P)); StrDispose(P); end; ----------------------------------------------------------------------------- StrECopy 拷贝字串并传回字串结束位址. ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function StrECopy(Dest, Source: PChar): PChar; 范例 uses SysUtils; const Turbo: PChar = ''''Object''''; Pascal: PChar = ''''Pascal''''; var S: array[0..15] of Char; begin StrECopy(StrECopy(StrECopy(S, Turbo), '''' ''''), Pascal); Canvas.TextOut(10, 10, StrPas(S)); end; Example uses SysUtils; const
Turbo: PChar = ''''Object''''; Pascal: PChar = ''''Pascal''''; var S: array[0..15] of Char; begin StrECopy(StrECopy(StrECopy(S, Turbo), '''' ''''), Pascal); Canvas.TextOut(10, 10, string(S)); end; ----------------------------------------------------------------------------- StrEnd 传回字串结束位址. ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function StrEnd(Str: PChar): PChar; 范例 uses SysUtils; const S: PChar = ''''Yankee Doodle''''; begin Canvas.TextOut(5, 10, ''''The string length of "'''' + StrPas(S) + ''''" is '''' +IntToStr(StrEnd(S) - S)); end; Example procedure TForm1.Button1Click(Sender: TObject);
var TextBuffer: PChar; Ptr: PChar; begin GetMem(TextBuffer, Length(Edit1.Text)+1); StrCopy(TextBuffer, PChar(Edit1.Text)); Ptr := StrEnd(TextBuffer); Label1.Caption := ''''; while Ptr >= TextBuffer do begin Ptr := Ptr ? 1; Label1.Caption := Label1.Caption + Ptr^; end; FreeMem(TextBuffer); end;
var Str: PChar; L: Word; begin ... L:= StrEnd(Str) - Str; ... end; ----------------------------------------------------------------------------- StrIComp 比较两字串大小.(不分大小写) ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function StrIComp(Str1, Str2:PChar): Integer; 范例 uses SysUtils; const S1: PChar = ''''Wacky''''; S2: PChar = ''''Code''''; var C: Integer; Result: string; begin C := StrIComp(S1, S2); if C < 0 then Result := '''' is less than '''' else if C > 0 then Result := '''' is greater than '''' else Result := '''' is equal to ''''; Canvas.TextOut(10, 10, StrPas(S1) + Result + StrPas(S2)); end; xample uses SysUtils; procedure TForm1.Button1Click(Sender: TObject);
var Msg: string; CompResult: Integer; begin Msg := Edit1.Text; CompResult := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); if CompResult < 0 then Msg := Msg + '''' is less than '''' else if CompResult > 0 then Msg := Msg + '''' is greater than '''' &n
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
