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] ... 下一页 >> |
