moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-16 15:20:09 -05:00
Code Issues Releases Wiki Activity

Fixed the len-parameter.. :-)

Browse Source
This commit is contained in:
Raymond 2010-04-09 23:12:55 +02:00
parent 78d7614e5d
commit 44c4322d0f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Units/MMLCore/ocr.pas
View File

@ -710,6 +710,7 @@ var
STPA: T2DPointArray;
begin
Result := '';
fD := FFonts.GetFont(font);
{writeln(format('W, H: %d, %d', [fD.max_width, fd.max_height]));}
@ -771,8 +772,10 @@ begin
lbset := false;
SetLength(Result, 0);
SetLength(n, (fd.width + 1) * (fd.height + 1));
for i := 0 to min(high(STPA),len) do
for i := 0 to high(STPA) do
begin
if length(result) >= len then
exit;
for j := 0 to high(n) do
n[j] := 0;
TPA := STPA[i];