diff options
Diffstat (limited to 'UCoreUtils.pas')
| -rw-r--r-- | UCoreUtils.pas | 30 |
1 files changed, 7 insertions, 23 deletions
diff --git a/UCoreUtils.pas b/UCoreUtils.pas index f319d44..faf6eb5 100644 --- a/UCoreUtils.pas +++ b/UCoreUtils.pas @@ -34,9 +34,6 @@ const ConstERRSpawn = 26; ConstQuotationCharacters = [' ', '"', '''', '(', ')', ':', '&']; ConstURIIllegalCharacters = '%:@/'; -function GetErrorString(ErrorNo: integer): string; -function GetSignalString(SignalNo: integer): string; - function FormatSize(Value: Int64; Base: integer; OverrideSizeFormat: integer = -1): string; function FormatDate(Value: time_t; const FormatTime, FormatDate: boolean; OverrideTimeFormat: integer = -1; OverrideDateFormat: integer = -1; OverrideDateTimeFormat: integer = -1; OverrideCustomDateFormat: string = ''; OverrideCustomTimeFormat: string = ''): string; function StripDate(Value: time_t): time_t; @@ -144,24 +141,6 @@ implementation uses DateUtils, GTKForms, GTKUtils, GTKView, ULocale, UConfig, UCore, UGnome, UMain, UFileAssoc; (********************************************************************************************************************************) -function GetErrorString(ErrorNo: integer): string; -begin - if ErrorNo >= 0 then Result := StrToUTF8(String(strerror(ErrorNo))) - else - case ErrorNo of - ERRException : Result := LANGUnknownException; - ERRNoAccess : Result := LANGNoAccess; - else Result := LANGUnknownError; - end; -end; - -(********************************************************************************************************************************) -function GetSignalString(SignalNo: integer): string; -begin - Result := StrToUTF8(strsignal(SignalNo)); -end; - -(********************************************************************************************************************************) function FormatFloat64(Value: Int64; Sep: string): string; var i : integer; Orig : string; @@ -1127,13 +1106,18 @@ end; (********************************************************************************************************************************) procedure DebugMsg(Params: array of const); -var - I: Integer; +var I: Integer; + P: PChar; begin if ParamDebug then begin for I := 0 to High(Params) do with Params[I] do case VType of + vtPointer: begin + P := g_strdup_printf('%p', VPointer); + Write(ErrOutput, P); + g_free(P); + end; vtInteger: Write(ErrOutput, IntToStr(VInteger)); vtBoolean: Write(ErrOutput, VBoolean); vtChar: Write(ErrOutput, VChar); |