Unit LCLProc

BeschreibungusesKlassen, Schnittstellen und ObjekteFunktionen und ProzedurenTypenKonstantenVariablen

Beschreibung

 

uses

Übersicht

Klassen, Schnittstellen und Objekte

Name Beschreibung
Klasse TMethodList  
Klasse TDebugLCLItemInfo  
Klasse TDebugLCLItems  
record TLineInfoCacheItem  

Funktionen und Prozeduren

function CompareDebugLCLItemInfos(Data1, Data2: Pointer): integer;
function CompareItemWithDebugLCLItemInfo(Item, DebugItemInfo: Pointer): integer;
function CompareLineInfoCacheItems(Data1, Data2: Pointer): integer;
function CompareAddrWithLineInfoCacheItem(Addr, Item: Pointer): integer;
procedure MergeSort(List: TFPList; const OnCompare: TListSortCompare);
procedure MergeSort(List: TStrings; const OnCompare: TStringsSortCompare);
function GetEnumValueDef(TypeInfo: PTypeInfo; const Name: string; const DefaultValue: Integer): Integer;
function ShortCutToText(ShortCut: TShortCut): string;
function TextToShortCut(const ShortCutText: string): TShortCut;
function GetCompleteText(sText: string; iSelStart: Integer; bCaseSensitive, bSearchAscending: Boolean; slTextList: TStrings): string;
function IsEditableTextKey(Key: Word): Boolean;
function SendApplicationMessage(Msg: Cardinal; WParam: WParam; LParam: LParam):Longint;
procedure OwnerFormDesignerModified(AComponent: TComponent);
procedure FreeThenNil(var AnObject: TObject);
procedure RegisterInterfaceFinalizationHandler(p: TProcedure);
procedure CallInterfaceFinalizationHandlers;
function OffsetRect(var ARect: TRect; dx, dy: Integer): Boolean;
procedure MoveRect(var ARect: TRect; x, y: Integer);
procedure MoveRectToFit(var ARect: TRect; const MaxRect: TRect);
procedure MakeMinMax(var i1, i2: integer);
procedure CalculateLeftTopWidthHeight(X1,Y1,X2,Y2: integer; var Left,Top,Width,Height: integer);
function DeleteAmpersands(var Str : String) : Longint;
function BreakString(const s: string; MaxLineLength, Indent: integer): string;
function ComparePointers(p1, p2: Pointer): integer;
function CompareHandles(h1, h2: THandle): integer;
function CompareRect(R1, R2: PRect): Boolean;
function ComparePoints(const p1, p2: TPoint): integer;
function RoundToInt(const e: Extended): integer;
function RoundToCardinal(const e: Extended): cardinal;
function TruncToInt(const e: Extended): integer;
function TruncToCardinal(const e: Extended): cardinal;
function StrToDouble(const s: string): double;
procedure RaiseGDBException(const Msg: string);
procedure DumpExceptionBackTrace;
procedure DumpStack;
function GetStackTrace(UseCache: boolean): string;
procedure GetStackTracePointers(var AStack: TStackTracePointers);
function StackTraceAsString(const AStack: TStackTracePointers; UseCache: boolean): string;
function GetLineInfo(Addr: Pointer; UseCache: boolean): string;
procedure DebugLn(Args: array of const);
procedure DebugLn(const S: String; Args: array of const);
procedure DebugLn;
procedure DebugLn(const s: string);
procedure DebugLn(const s1,s2: string);
procedure DebugLn(const s1,s2,s3: string);
procedure DebugLn(const s1,s2,s3,s4: string);
procedure DebugLn(const s1,s2,s3,s4,s5: string);
procedure DebugLn(const s1,s2,s3,s4,s5,s6: string);
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7: string);
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8: string);
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9: string);
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10: string);
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11: string);
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12: string);
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13: string);
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14: string);
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15: string);
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16: string);
function ConvertLineEndings(const s: string): string;
procedure DbgOut(const S: String; Args: array of const);
procedure DbgOut(const s: string);
procedure DbgOut(const s1,s2: string);
procedure DbgOut(const s1,s2,s3: string);
procedure DbgOut(const s1,s2,s3,s4: string);
procedure DbgOut(const s1,s2,s3,s4,s5: string);
procedure DbgOut(const s1,s2,s3,s4,s5,s6: string);
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7: string);
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7,s8: string);
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7,s8,s9: string);
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10: string);
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11: string);
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12: string);
function DbgS(const c: cardinal): string; overload;
function DbgS(const i: longint): string; overload;
function DbgS(const i: int64): string; overload;
function DbgS(const q: qword): string; overload;
function DbgS(const r: TRect): string; overload;
function DbgS(const p: TPoint): string; overload;
function DbgS(const p: pointer): string; overload;
function DbgS(const e: extended; MaxDecimals: integer = 999): string; overload;
function DbgS(const b: boolean): string; overload;
function DbgSName(const p: TObject): string; overload;
function DbgSName(const p: TClass): string; overload;
function DbgStr(const StringWithSpecialChars: string): string; overload;
function DbgWideStr(const StringWithSpecialChars: widestring): string; overload;
function dbgMemRange(P: PByte; Count: integer; Width: integer = 0): string; overload;
function dbgMemStream(MemStream: TCustomMemoryStream; Count: integer): string; overload;
function dbgObjMem(AnObject: TObject): string; overload;
function dbghex(i: Int64): string; overload;
function DbgS(const i1,i2,i3,i4: integer): string; overload;
function DbgS(const Shift: TShiftState): string; overload;
function DbgsVKCode(c: word): string;
procedure DbgOutThreadLog(const Msg: string); overload;
procedure DebuglnThreadLog(const Msg: string); overload;
procedure DebuglnThreadLog(Args: array of const); overload;
procedure DebuglnThreadLog; overload;
function StripLN(const ALine: String): String;
function GetPart(const ASkipTo, AnEnd: String; var ASource: String): String; overload;
function GetPart(const ASkipTo, AnEnd: String; var ASource: String; const AnIgnoreCase: Boolean): String; overload;
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String): String; overload;
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String; const AnIgnoreCase: Boolean): String; overload;
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String; const AnIgnoreCase, AnUpdateSource: Boolean): String; overload;
function StringCase(const AString: String; const ACase: array of String ): Integer; overload;
function StringCase(const AString: String; const ACase: array of String; const AIgnoreCase, APartial: Boolean): Integer; overload;
function ClassCase(const AClass: TClass; const ACase: array of TClass ): Integer; overload;
function ClassCase(const AClass: TClass; const ACase: array of TClass; const ADecendant: Boolean): Integer; overload;
function UTF8CharacterLength(p: PChar): integer;
function UTF8Length(const s: string): integer;
function UTF8Length(p: PChar; ByteCount: integer): integer;
function UTF8CharacterToUnicode(p: PChar; out CharLen: integer): Cardinal;
function UnicodeToUTF8(u: cardinal): string;
function UTF8ToDoubleByteString(const s: string): string;
function UTF8ToDoubleByte(UTF8Str: PChar; Len: integer; DBStr: PByte): integer;
function UTF8FindNearestCharStart(UTF8Str: PChar; Len: integer; BytePos: integer): integer;
function UTF8CharStart(UTF8Str: PChar; Len, Index: integer): PChar;
procedure UTF8FixBroken(P: PChar);
function UTF8CStringToUTF8String(SourceStart: PChar; SourceLen: SizeInt) : string;
function UTF8Pos(const SearchForText, SearchInText: string): integer;
function UTF8Copy(const s: string; StartCharIndex, CharCount: integer): string;
function FindInvalidUTF8Character(p: PChar; Count: integer; StopOnNonASCII: Boolean = false): integer;
function UTF16CharacterLength(p: PWideChar): integer;
function UTF16Length(const s: widestring): integer;
function UTF16Length(p: PWideChar; WordCount: integer): integer;
function UTF16CharacterToUnicode(p: PWideChar; out CharLen: integer): Cardinal;
function UnicodeToUTF16(u: cardinal): widestring;
function CreateFirstIdentifier(const Identifier: string): string;
function CreateNextIdentifier(const Identifier: string): string;
function BEtoN(const AValue: SmallInt): SmallInt;
function BEtoN(const AValue: Word): Word;
function BEtoN(const AValue: LongInt): LongInt;
function BEtoN(const AValue: DWord): DWord;
function BEtoN(const AValue: Int64): Int64;
function BEtoN(const AValue: QWord): QWord;
function LEtoN(const AValue: SmallInt): SmallInt;
function LEtoN(const AValue: Word): Word;
function LEtoN(const AValue: LongInt): LongInt;
function LEtoN(const AValue: DWord): DWord;
function LEtoN(const AValue: Int64): Int64;
function LEtoN(const AValue: QWord): QWord;
function NtoBE(const AValue: SmallInt): SmallInt;
function NtoBE(const AValue: Word): Word;
function NtoBE(const AValue: LongInt): LongInt;
function NtoBE(const AValue: DWord): DWord;
function NtoBE(const AValue: Int64): Int64;
function NtoBE(const AValue: QWord): QWord;
function NtoLE(const AValue: SmallInt): SmallInt;
function NtoLE(const AValue: Word): Word;
function NtoLE(const AValue: LongInt): LongInt;
function NtoLE(const AValue: DWord): DWord;
function NtoLE(const AValue: Int64): Int64;
function NtoLE(const AValue: QWord): QWord;

Typen

TStackTracePointers = array of Pointer;
PLineInfoCacheItem = ˆTLineInfoCacheItem;
TStringsSortCompare = function(const Item1, Item2: string): Integer;
TSendApplicationMessageFunction = function(Msg: Cardinal; WParam: WParam; LParam: LParam):Longint;
TOwnerFormDesignerModifiedProc = procedure(AComponent: TComponent);

Variablen

SendApplicationMessageFunction: TSendApplicationMessageFunction=nil;
OwnerFormDesignerModifiedProc: TOwnerFormDesignerModifiedProc=nil;

Beschreibung

Funktionen und Prozeduren

function CompareDebugLCLItemInfos(Data1, Data2: Pointer): integer;
 
function CompareItemWithDebugLCLItemInfo(Item, DebugItemInfo: Pointer): integer;
 
function CompareLineInfoCacheItems(Data1, Data2: Pointer): integer;
 
function CompareAddrWithLineInfoCacheItem(Addr, Item: Pointer): integer;
 
procedure MergeSort(List: TFPList; const OnCompare: TListSortCompare);
 
procedure MergeSort(List: TStrings; const OnCompare: TStringsSortCompare);
 
function GetEnumValueDef(TypeInfo: PTypeInfo; const Name: string; const DefaultValue: Integer): Integer;
 
function ShortCutToText(ShortCut: TShortCut): string;
 
function TextToShortCut(const ShortCutText: string): TShortCut;
 
function GetCompleteText(sText: string; iSelStart: Integer; bCaseSensitive, bSearchAscending: Boolean; slTextList: TStrings): string;
 
function IsEditableTextKey(Key: Word): Boolean;
 
function SendApplicationMessage(Msg: Cardinal; WParam: WParam; LParam: LParam):Longint;
 
procedure OwnerFormDesignerModified(AComponent: TComponent);
 
procedure FreeThenNil(var AnObject: TObject);
 
procedure RegisterInterfaceFinalizationHandler(p: TProcedure);
 
procedure CallInterfaceFinalizationHandlers;
 
function OffsetRect(var ARect: TRect; dx, dy: Integer): Boolean;
 
procedure MoveRect(var ARect: TRect; x, y: Integer);
 
procedure MoveRectToFit(var ARect: TRect; const MaxRect: TRect);
 
procedure MakeMinMax(var i1, i2: integer);
 
procedure CalculateLeftTopWidthHeight(X1,Y1,X2,Y2: integer; var Left,Top,Width,Height: integer);
 
function DeleteAmpersands(var Str : String) : Longint;
 
function BreakString(const s: string; MaxLineLength, Indent: integer): string;
 
function ComparePointers(p1, p2: Pointer): integer;
 
function CompareHandles(h1, h2: THandle): integer;
 
function CompareRect(R1, R2: PRect): Boolean;
 
function ComparePoints(const p1, p2: TPoint): integer;
 
function RoundToInt(const e: Extended): integer;
 
function RoundToCardinal(const e: Extended): cardinal;
 
function TruncToInt(const e: Extended): integer;
 
function TruncToCardinal(const e: Extended): cardinal;
 
function StrToDouble(const s: string): double;
 
procedure RaiseGDBException(const Msg: string);
 
procedure DumpExceptionBackTrace;
 
procedure DumpStack;
 
function GetStackTrace(UseCache: boolean): string;
 
procedure GetStackTracePointers(var AStack: TStackTracePointers);
 
function StackTraceAsString(const AStack: TStackTracePointers; UseCache: boolean): string;
 
function GetLineInfo(Addr: Pointer; UseCache: boolean): string;
 
procedure DebugLn(Args: array of const);
 
procedure DebugLn(const S: String; Args: array of const);
 
procedure DebugLn;
 
procedure DebugLn(const s: string);
 
procedure DebugLn(const s1,s2: string);
 
procedure DebugLn(const s1,s2,s3: string);
 
procedure DebugLn(const s1,s2,s3,s4: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5,s6: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15: string);
 
procedure DebugLn(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16: string);
 
function ConvertLineEndings(const s: string): string;
 
procedure DbgOut(const S: String; Args: array of const);
 
procedure DbgOut(const s: string);
 
procedure DbgOut(const s1,s2: string);
 
procedure DbgOut(const s1,s2,s3: string);
 
procedure DbgOut(const s1,s2,s3,s4: string);
 
procedure DbgOut(const s1,s2,s3,s4,s5: string);
 
procedure DbgOut(const s1,s2,s3,s4,s5,s6: string);
 
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7: string);
 
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7,s8: string);
 
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7,s8,s9: string);
 
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10: string);
 
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11: string);
 
procedure DbgOut(const s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12: string);
 
function DbgS(const c: cardinal): string; overload;
 
function DbgS(const i: longint): string; overload;
 
function DbgS(const i: int64): string; overload;
 
function DbgS(const q: qword): string; overload;
 
function DbgS(const r: TRect): string; overload;
 
function DbgS(const p: TPoint): string; overload;
 
function DbgS(const p: pointer): string; overload;
 
function DbgS(const e: extended; MaxDecimals: integer = 999): string; overload;
 
function DbgS(const b: boolean): string; overload;
 
function DbgSName(const p: TObject): string; overload;
 
function DbgSName(const p: TClass): string; overload;
 
function DbgStr(const StringWithSpecialChars: string): string; overload;
 
function DbgWideStr(const StringWithSpecialChars: widestring): string; overload;
 
function dbgMemRange(P: PByte; Count: integer; Width: integer = 0): string; overload;
 
function dbgMemStream(MemStream: TCustomMemoryStream; Count: integer): string; overload;
 
function dbgObjMem(AnObject: TObject): string; overload;
 
function dbghex(i: Int64): string; overload;
 
function DbgS(const i1,i2,i3,i4: integer): string; overload;
 
function DbgS(const Shift: TShiftState): string; overload;
 
function DbgsVKCode(c: word): string;
 
procedure DbgOutThreadLog(const Msg: string); overload;
 
procedure DebuglnThreadLog(const Msg: string); overload;
 
procedure DebuglnThreadLog(Args: array of const); overload;
 
procedure DebuglnThreadLog; overload;
 
function StripLN(const ALine: String): String;
 
function GetPart(const ASkipTo, AnEnd: String; var ASource: String): String; overload;
 
function GetPart(const ASkipTo, AnEnd: String; var ASource: String; const AnIgnoreCase: Boolean): String; overload;
 
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String): String; overload;
 
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String; const AnIgnoreCase: Boolean): String; overload;
 
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String; const AnIgnoreCase, AnUpdateSource: Boolean): String; overload;
 
function StringCase(const AString: String; const ACase: array of String ): Integer; overload;
 
function StringCase(const AString: String; const ACase: array of String; const AIgnoreCase, APartial: Boolean): Integer; overload;
 
function ClassCase(const AClass: TClass; const ACase: array of TClass ): Integer; overload;
 
function ClassCase(const AClass: TClass; const ACase: array of TClass; const ADecendant: Boolean): Integer; overload;
 
function UTF8CharacterLength(p: PChar): integer;
 
function UTF8Length(const s: string): integer;
 
function UTF8Length(p: PChar; ByteCount: integer): integer;
 
function UTF8CharacterToUnicode(p: PChar; out CharLen: integer): Cardinal;
 
function UnicodeToUTF8(u: cardinal): string;
 
function UTF8ToDoubleByteString(const s: string): string;
 
function UTF8ToDoubleByte(UTF8Str: PChar; Len: integer; DBStr: PByte): integer;
 
function UTF8FindNearestCharStart(UTF8Str: PChar; Len: integer; BytePos: integer): integer;
 
function UTF8CharStart(UTF8Str: PChar; Len, Index: integer): PChar;
 
procedure UTF8FixBroken(P: PChar);
 
function UTF8CStringToUTF8String(SourceStart: PChar; SourceLen: SizeInt) : string;
 
function UTF8Pos(const SearchForText, SearchInText: string): integer;
 
function UTF8Copy(const s: string; StartCharIndex, CharCount: integer): string;
 
function FindInvalidUTF8Character(p: PChar; Count: integer; StopOnNonASCII: Boolean = false): integer;
 
function UTF16CharacterLength(p: PWideChar): integer;
 
function UTF16Length(const s: widestring): integer;
 
function UTF16Length(p: PWideChar; WordCount: integer): integer;
 
function UTF16CharacterToUnicode(p: PWideChar; out CharLen: integer): Cardinal;
 
function UnicodeToUTF16(u: cardinal): widestring;
 
function CreateFirstIdentifier(const Identifier: string): string;
 
function CreateNextIdentifier(const Identifier: string): string;
 
function BEtoN(const AValue: SmallInt): SmallInt;
 
function BEtoN(const AValue: Word): Word;
 
function BEtoN(const AValue: LongInt): LongInt;
 
function BEtoN(const AValue: DWord): DWord;
 
function BEtoN(const AValue: Int64): Int64;
 
function BEtoN(const AValue: QWord): QWord;
 
function LEtoN(const AValue: SmallInt): SmallInt;
 
function LEtoN(const AValue: Word): Word;
 
function LEtoN(const AValue: LongInt): LongInt;
 
function LEtoN(const AValue: DWord): DWord;
 
function LEtoN(const AValue: Int64): Int64;
 
function LEtoN(const AValue: QWord): QWord;
 
function NtoBE(const AValue: SmallInt): SmallInt;
 
function NtoBE(const AValue: Word): Word;
 
function NtoBE(const AValue: LongInt): LongInt;
 
function NtoBE(const AValue: DWord): DWord;
 
function NtoBE(const AValue: Int64): Int64;
 
function NtoBE(const AValue: QWord): QWord;
 
function NtoLE(const AValue: SmallInt): SmallInt;
 
function NtoLE(const AValue: Word): Word;
 
function NtoLE(const AValue: LongInt): LongInt;
 
function NtoLE(const AValue: DWord): DWord;
 
function NtoLE(const AValue: Int64): Int64;
 
function NtoLE(const AValue: QWord): QWord;
 

Typen

TStackTracePointers = array of Pointer;
 
PLineInfoCacheItem = ˆTLineInfoCacheItem;
 
TStringsSortCompare = function(const Item1, Item2: string): Integer;
 
TSendApplicationMessageFunction = function(Msg: Cardinal; WParam: WParam; LParam: LParam):Longint;
 
TOwnerFormDesignerModifiedProc = procedure(AComponent: TComponent);
 

Variablen

SendApplicationMessageFunction: TSendApplicationMessageFunction=nil;
 
OwnerFormDesignerModifiedProc: TOwnerFormDesignerModifiedProc=nil;
 

Erstellt mit PasDoc 0.10.0 am 2007-03-27 23:03:01