paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 01:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed GetDefaultFPCErrorMsgFileEncoding

Browse Source 
git-svn-id: branches/fixes_1_4@48952 -
This commit is contained in:
mattias 2015-05-06 22:33:53 +00:00
parent 635f7360d0
commit f9b2ee6b61
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
TFPCMsgFileToEncoding = record
Filename: PChar;
Encoding: PChar;
Filename: String;
Encoding: String;
end;
const
FPCMsgFileToEncoding: array[1..20] of TFPCMsgFileToEncoding = (
@ -269,7 +269,7 @@ function GetDefaultFPCErrorMsgFileEncoding(Filename: string): string;
var
i: Integer;
begin
Filename:=ExtractFileNameOnly(Filename);
Filename:=ExtractFileName(Filename);
for i:=low(FPCMsgFileToEncoding) to high(FPCMsgFileToEncoding) do
if FPCMsgFileToEncoding[i].Filename=Filename then
exit(FPCMsgFileToEncoding[i].Encoding);