DELPHI常用函数集及简要范例_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

DELPHI常用函数集及简要范例

作者：闵涛文章来源：闵涛的学习笔记点击数：19885 更新时间：2009/4/23 18:30:33

xLen: Cardinal ): Integer;

SysUtils
var
   P1,P2: PChar;
   Len : Integer;
begin
   P1:= ''''?????? ?????????? ?? ?????? ????????? ????????.'''';
   P2:= ''''?????? ?????????? ?? ?????? ????????? ????????!'''';
   Len:= length(p1)-1;
   If AnsiStrLIComp(P1, P2, Len)=0 then MessageDlg( P1+ #13+ P2+ #13+ ''''??????, ? ???????? ?????? ''''+ IntTostr(Len)+'''' ????????, ?????'''', mtInformation, [mbOk], 0);
end;
----------------------------------------------------------

AnsiStrLIComp(S1, S2: PChar;MaxLen: Cardinal ): Integer;

SysUtils
var
   P1,P2: PChar;
   Len : Integer;
begin
   Len:= 7;
   P1:= ''''?????? 1'''';
   P2:= ''''?????? 2'''';
   If AnsiStrLIComp(P1, P2, Len)=0 then MessageDlg( P1+ #13+ P2+ #13+ ''''??????, ? ???????? ?????? ''''+ IntTostr(Len)+'''' ????????, ?????'''', mtInformation, [mbOk], 0);
end;
----------------------------------------------------------
AnsiStrLower( S1, S2: PChar ): PChar;
SysUtils
----------------------------------------------------------

AnsiStrPos( S, SubStr: PChar ): PChar
SysUtils
var
   S1,S2: Pchar;
begin
   S1:= ''''???? ? ???? - ? ????? ????!'''';
   S2:= AnsiStrPos(S1,''''?????'''');     // S2 :=''''????? ????!''''
   MessageDlg( S2, mtInformation, [mbOk], 0);
end;
----------------------------------------------------------
AnsiStrRScan( S : PChar; Chr: Char ): PChar;
SysUtils
var
   P1,P2: PChar;
begin
   P1:= ''''C:\windows\temp'''';
   P2:= AnsiStrRScan(P1, ''''\'''');     { P2 := ''''\temp'''' }
   MessageDlg( P2, mtInformation, [mbOk], 0);
end;
----------------------------------------------------------
AnsiStrScan( S : PChar; Chr: Char ): PChar;
SysUtils
var
   P1,P2: PChar;
begin
   P1:= ''''http://www.atrussk.ru/delphi'''';
   P2:= AnsiStrScan(P1, ''''/'''');     { P2 := ''''//www.atrussk.ru/delphi'''' }
   MessageDlg( P2, mtInformation, [mbOk], 0);
end;
----------------------------------------------------------
AnsiStrUpper( S : PChar ): PChar

SysUtils
----------------------------------------------------------
AnsiUpperCaseFileName( const S: string ): string;

SysUtils
----------------------------------------------------------
ByteToCharIndex(const S: string;Index: Integer ): Integer;

SysUtils
----------------------------------------------------------
ByteToCharLen( const S: string;MaxLen: Integer ): Integer;

SysUtils
----------------------------------------------------------
ByteType(const S: string;Index: Integer ): TMbcsByteType;

SysUtils
mbSingleByte -
mbLeadByte -
mbTrailByte -
----------------------------------------------------------
CharToByteIndex(const S: string;Index: Integer ): Integer;

SysUtils
----------------------------------------------------------

CharToByteLen(const S: string;MaxLen: Integer ): Integer;

SysUtils
----------------------------------------------------------
Chr ( X: Byte ): Char;

SysUtils
MessageDlg(''''ASCII-???? 77 ????????????? ?????? - '''' + Chr(77), mtInformation, [mbOk], 0);
----------------------------------------------------------
FormatMaskText(const EditMask: string;const Value: string ): string;

Mask
----------------------------------------------------------
GetFormatSettings;
SysUtils
----------------------------------------------------------

IsDelimiter (const Delimiters, S: string;Index: Integer ): Boolean;

SysUtils
var
   S: string;
begin
   S:= ''''???????, ?????? ??????????!'''';
   If IsDelimiter( ''''!.,-'''', S, 8) then
      MessageDlg( ''''???????!'''', mtWarning, [mbOK], 0)
   else
      MessageDlg( ''''??????????!'''', mtWarning, [mbOK], 0);
end;
----------------------------------------------------------
IsPathDelimiter (const S: string;Index: Integer ): Boolean;

SysUtils
If IsPathDelimiter( S, Length(S))

then S:=Copy( S, 1, Length(S)-1);
----------------------------------------------------------
LastDelimiter (const Delimiters, S: string ): Integer;
SysUtils
var
   I: Integer;
begin
   I:= LastDelimiter(''''!;.,-'''', ''''???????, ??????, ??????????'''');     // I := 16
end;
----------------------------------------------------------
LineStart( Buffer, BufPos : PChar ): PChar
Classes--
--------------------------------------------------------
QuotedStr ( const S: string ): string;
SysUtils
----------------------------------------------------------
SetLength ( var S; Length: Integer );
System
----------------------------------------------------------

SetString (var S: string;Buffer: PChar;Length: Integer );

System
----------------------------------------------------------
Str ( X [: Width [: Decimals ]]; var S );
System
var

S: string;
I: Real;

begin

I:= -52.123456789;
Str( I:6:2, S);    { S := '''' -52.12'''' }
MessageDlg( S, mtInformation, [mbOk], 0);

end;
----------------------------------------------------------
StrBufSize( S: PChar ): Cardinal;
SysUtils
----------------------------------------------------------

StrByteType(S: PChar;Index: Cardinal ): TMbcsByteType;
SysUtils
----------------------------------------------------------
StringOfChar (Ch: Char;Count: Integer ): string;

System
S:= StringOfChar( ''''.'''' , 3);     // S:= ''''...''''
----------------------------------------------------------
StringReplace (const S, OldSubstr, NewSubstr: string;Flags: TReplaceFlags ): string;
SysUtils
type TReplaceFlags = set of ( rfReplaceAll, rfIgnoreCase );

var
S: string;
Flags: TReplaceFlags;
begin
Flags:= [ rfReplaceAll, rfIgnoreCase ];
S:= ''''???? - ????? ?????'''';
S:= StringReplace( S, ''''??'''', ''''??'''', Flags);    // S :=''''???? - ????? ?????'''' }
   MessageDlg( S, mtInformation, [mbOk], 0);
end;
----------------------------------------------------------

StringToWideChar(const Source: string;Dest: PWideChar;DestSize: Integer ): PWideChar

System
----------------------------------------------------------
UniqueString( var S: string );
System
----------------------------------------------------------

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
==============================
讯息
==============================
---------------------------------------------------------------
ShowMessage                              讯息
---------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);

var
  buffer: array [0..255] of char;
  FileToFind: string;
begin
  GetWindowsDirectory(buffer, SizeOf(buffer));
  FileToFind := FileSearch(Edit1.Text, GetCurrentDir + '''';'''' + buffer);
  if FileToFind =&n

<< 上一页 [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] ... 下一页 >>

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi中预想不到的代码

下一篇教程： Delphi数据库的动态建立

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……