paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-15 06:12:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

updatepofiles: improved diagnostic output

Browse Source
This commit is contained in:
Maxim Ganetsky 2021-08-12 00:38:13 +03:00
parent fc83aefbd9
commit 3945f7302f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tools/updatepofiles.pas
View File

@ -107,12 +107,12 @@ begin
Result:=FL[i];
inc(i);
end;
writeln('Found resource string table file: "', Result, '"');
end;
finally
FL.Free;
end;
end;
writeln('Found resource string table file: ', Result);
end;
function ParamsValid: boolean;
@ -138,7 +138,7 @@ begin
if UTF8StartsText(ResSearchDirParamName, CurParam) then
begin
ResSearchDir:=RightStr(CurParam, Length(CurParam)-Length(ResSearchDirParamName));
writeln('Current resource string table file search directory: ', ResSearchDir);
writeln('Current resource string table file search directory: "', ResSearchDir, '"');
end
else
begin
@ -148,7 +148,7 @@ begin
if (Ext<>'.pot') and (Ext<>'.rst') and (Ext<>'.lrj') and (Ext<>'.rsj') then
begin
writeln('ERROR: invalid extension: ', Filename);
writeln('ERROR: invalid file extension: "', Filename, '"');
exit;
end;
@ -161,7 +161,7 @@ begin
if (Filename='') or (not IsResFile) then
begin
writeln('ERROR: file not found: ', CurParam);
writeln('ERROR: file not found: "', CurParam, '"');
exit;
end;
end;