diff options
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Classes/UAudioCore_Bass.pas | 86 |
1 files changed, 43 insertions, 43 deletions
diff --git a/Game/Code/Classes/UAudioCore_Bass.pas b/Game/Code/Classes/UAudioCore_Bass.pas index 55148f95..9c13b461 100644 --- a/Game/Code/Classes/UAudioCore_Bass.pas +++ b/Game/Code/Classes/UAudioCore_Bass.pas @@ -1,42 +1,42 @@ unit UAudioCore_Bass;
- -interface - -{$IFDEF FPC} - {$MODE Delphi} -{$ENDIF} - -{$I switches.inc} - -uses - Classes, - SysUtils; - -type - TAudioCore_Bass = class - private - public - class function ErrorGetString(): string; overload; - class function ErrorGetString(errCode: integer): string; overload; - end; - - -implementation - -uses - UMain, - ULog, - bass; - -class function TAudioCore_Bass.ErrorGetString(): string; -begin - ErrorGetString(BASS_ErrorGetCode()); -end; - -class function TAudioCore_Bass.ErrorGetString(errCode: integer): string; -begin - case errCode of - BASS_OK: +
+interface
+
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses
+ Classes,
+ SysUtils;
+
+type
+ TAudioCore_Bass = class
+ private
+ public
+ class function ErrorGetString(): string; overload;
+ class function ErrorGetString(errCode: integer): string; overload;
+ end;
+
+
+implementation
+
+uses
+ UMain,
+ ULog,
+ bass;
+
+class function TAudioCore_Bass.ErrorGetString(): string;
+begin
+ Result := ErrorGetString(BASS_ErrorGetCode());
+end;
+
+class function TAudioCore_Bass.ErrorGetString(errCode: integer): string;
+begin
+ case errCode of
+ BASS_OK:
result := 'No error';
BASS_ERROR_MEM:
result := 'Insufficient memory';
@@ -107,10 +107,10 @@ begin BASS_ERROR_CODEC:
result := 'Codec not available/supported';
BASS_ERROR_UNKNOWN:
- result := 'Unknown error'; - else - result := 'Unknown error'; - end; -end; + result := 'Unknown error';
+ else
+ result := 'Unknown error';
+ end;
+end;
end.
\ No newline at end of file |