paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 10:39:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Fixes a typo introduced in commit 39538 #8ec4f4bd8c

Browse Source 
git-svn-id: trunk@39566 -
This commit is contained in:
sekelsenmat 2012-12-17 09:22:38 +00:00
parent d9f9355bcc
commit 97fc0ecda5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpvectorial/epsvectorialreader.pas
View File

@ -358,7 +358,7 @@ begin
else
// Code for normal numbers, decimals
begin
FloatValue := 0;
FloatValue := StrToFloat(StrValue, FPointSeparator);
end;
end;
@ -1095,7 +1095,7 @@ begin
if lIndexN < 0 then raise Exception.Create('[TvEPSVectorialReader.ExecuteStackManipulationOperator] rool operator: n must be positive or zero');
if lIndexJ = 0 then Exit;
if lIndexJ = 0 then Exit(True);
SetLength(lTokens, lIndexN);