|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ切ゑｿｽoｿｽｿｽ(ｿｽｿｽｿｽpｿｽﾆ全ｿｽp)
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
Amat 2008/05/19(ｿｽｿｽ) 15:51:35
1ｿｽoｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽ2ｿｽoｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽ髟ｶｿｽｿｽｿｽｿｽﾉて、
ｿｽｿｽｿｽｿｽｿｽ轣幢ｿｽｿｽｿｽｿｽｿｽｿｽﾘゑｿｽoｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽA
ｿｽ@ｿｽｿｽj
ｿｽ@ｿｽ@a:='ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽABCDE';
ｿｽ@ｿｽ@ShowMessage(LeftStr(a , 6));ｿｽ@ｿｽ@ｿｽﾋゑｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@b:='ABCDEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ';
ｿｽ@ｿｽ@ShowMessage(LeftStr(b , 6));ｿｽ@ｿｽ@ｿｽｿｽABCDEｿｽE
ｿｽSｿｽpｿｽｿｽｿｽｿｽｿｽﾌ途ｿｽｿｽｿｽﾅ切ゑｿｽoｿｽｿｽｿｽｿｽｿｽﾆ、
ｿｽｿｽｿｽKｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽiｿｽQｿｽﾂめのパｿｽ^ｿｽ[ｿｽｿｽｿｽj
ｿｽｿｽｿｽKｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉは、
ｿｽｿｽｿｽｿｽ1ｿｽoｿｽCｿｽgｿｽ無趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽiｿｽQｿｽﾂめのパｿｽ^ｿｽ[ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾄ、ｿｽ@ABCDEｿｽ@ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽj
ｿｽﾟゑｿｽｿｽｿｽ 2008/05/19(ｿｽｿｽ) 16:33:10
ｿｽｿｽｿｽｿｽByteTypeｿｽﾖ撰ｿｽｿｽ利用ｿｽｿｽｿｽﾄ費ｿｽｿｽ閧ｵｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽｿｽ
ｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾄ暦ｿｽｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
Amat 2008/05/19(ｿｽｿｽ) 17:19:33
ByteTypeｿｽﾖ撰ｿｽｿｽAｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
//--------------------------------------------------------
case ByteType(RightStr(Temp,1) ,1) of
{ ｿｽｿｽｿｽp }
mbSingleByte :
begin
//ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
end;
{ ｿｽSｿｽpｿｽﾌ１ｿｽoｿｽCｿｽgｿｽｿｽ }
mbLeadByte :
begin
Temp := LeftStr(Temp , Length(Temp) -1); //ｿｽｿｽｿｽpｿｽPｿｽｿｽｿｽｿｽｿｽｿｽｿｽJｿｽbｿｽg
end;
{ ｿｽSｿｽpｿｽﾌ２ｿｽoｿｽCｿｽgｿｽｿｽ }
mbTrailByte :
begin
//ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
end;
else
//ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
end; { case }
ｿｽｿｽﾉゑｿｽ 2008/05/19(ｿｽｿｽ) 18:26:56
WideStringｿｽｿｽｿｽﾄのゑｿｽgｿｽｿｽｿｽﾎバｿｽCｿｽgｿｽ^ｿｽCｿｽvｿｽCｿｽﾉゑｿｽｿｽﾈゑｿｽｿｽﾅ茨ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽIｿｽﾉはゑｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure TForm1.Button1Click(Sender: TObject);
var
ws:widestring;
begin
ws:='ABCDEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ';
caption:=Copy(ws,3,Length(ws));
end;
