paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 10:19:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: unicode file names

Browse Source 
git-svn-id: trunk@46824 -
This commit is contained in:
mattias 2014-11-12 19:20:25 +00:00
parent f9afbae84f
commit a66b5d4e74
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/definetemplates.pas
View File

@ -2502,14 +2502,14 @@ end;
procedure ReadMakefileFPC(const Filename: string; List: TStrings);
var
MakefileFPC: TStringList;
MakefileFPC: TStringListUTF8;
i: Integer;
Line: string;
p: LongInt;
NameValue: String;
begin
MakefileFPC:=TStringList.Create;
MakefileFPC.LoadFromFile(UTF8ToSys(Filename));
MakefileFPC:=TStringListUTF8.Create;
MakefileFPC.LoadFromFile(Filename);
i:=0;
while i<MakefileFPC.Count do begin
Line:=MakefileFPC[i];