?
快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

新蒲京澳門賭場網站:WinAPI 字符及字符串函數(12) lstrlen串長度

?

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graph新蒲京澳門賭場網站ics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButto新蒲京澳門賭場網站n;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}新蒲京澳門賭場網站

procedure TForm1.Button1Click(Sender: TObject);

var

p: PChar;

buf: array[0..255] of Char;

n1,n2: Int新蒲京澳門賭場網站eger;

begin

p := 'Delphi';

buf := 'Delphi';

n1 := lstrlen(p);

n2 := lstrlen(buf);

ShowMessageFmt('%d,%d', [n1,n2]); {6,6}

end;

procedure TForm1.Button2Click(Sender: TObject);

var

n1,n2: Integer;

be新蒲京澳門賭場網站gin

n1 := lstrlenA('萬一的 Delphi 博客');

n2 := lstrlenW('萬一的 Delphi 博客');

ShowMessageFmt('%d,%d', [n1,n2]); {18,13}

end;

end.

免責聲明:以上內容源自網絡,版權歸原作者所有,如有侵犯您的原創版權請告知,我們將盡快刪除相關內容。

您可能還會對下面的文章感興趣:

快三平台开户