opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Update gnugettext.pas to rev 148 from http://svn.code.sf.net/p/dxgettext/code/trunk/dxgettext/sample/gnugettext.pas

Browse Source
This commit is contained in:
Ansgar Becker
2022-12-26 16:58:56 +01:00
parent 6219e928ea
commit d03e1e8fd9
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/gnugettext.pas
View File

@@ -3290,7 +3290,7 @@ begin
SetLength (a, bufsize);
SetLength (b, bufsize);
str.Read(a[1],bufsize);
str.ReadBuffer(a[1],bufsize);
while true do begin
rd:=str.Read(b[1],bufsize);
@@ -3307,10 +3307,10 @@ begin
a:=b;
offset:=offset+bufsize;
end;
{$IFNDEF VER340} // Delphi 10.4 Sydney / BDS 21
// this causes a hint in Deohi 10.4
{$IF CompilerVersion<34}
// this causes a hint in Delphi 10.4 and newer
Result:=0;
{$ENDIF}
{$IFEND}
end;
procedure TFileLocator.Analyze;