paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 21:50:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

IPro: Fix compilation.

Browse Source 
git-svn-id: trunk@64528 -
This commit is contained in:
juha 2021-02-11 14:42:20 +00:00
parent 077ebbe494
commit 9ac53dd983
1 changed files with 1 additions and 1 deletions

2
components/turbopower_ipro/ipstrms.pas
View File

@ -1570,7 +1570,7 @@ begin
{ Make sure the path has no backslash. }
FPath := aPath;
if FPath[length(FPath)] = '\' then
SetLength(FPath, pred(length(FPath)))
SetLength(FPath, pred(length(FPath)));
{ Check that it really exists. }
if not DirExists(aPath) then