paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 06:40:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed GetDefaultFPCErrorMsgFileEncoding

Browse Source 
git-svn-id: trunk@48951 -
This commit is contained in:
mattias 2015-05-06 22:33:34 +00:00
parent 57f7f6c9e6
commit 4156181ca0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codetoolsfpcmsgs.pas
View File

@ -127,8 +127,8 @@ type
type type
TFPCMsgFileToEncoding = record TFPCMsgFileToEncoding = record
Filename: PChar; Filename: String;
Encoding: PChar; Encoding: String;
end; end;
const const
FPCMsgFileToEncoding: array[1..20] of TFPCMsgFileToEncoding = ( FPCMsgFileToEncoding: array[1..20] of TFPCMsgFileToEncoding = (
@ -269,7 +269,7 @@ function GetDefaultFPCErrorMsgFileEncoding(Filename: string): string;
var var
i: Integer; i: Integer;
begin begin
Filename:=ExtractFileNameOnly(Filename); Filename:=ExtractFileName(Filename);
for i:=low(FPCMsgFileToEncoding) to high(FPCMsgFileToEncoding) do for i:=low(FPCMsgFileToEncoding) to high(FPCMsgFileToEncoding) do
if FPCMsgFileToEncoding[i].Filename=Filename then if FPCMsgFileToEncoding[i].Filename=Filename then
exit(FPCMsgFileToEncoding[i].Encoding); exit(FPCMsgFileToEncoding[i].Encoding);