Converter: Fix converting DFM form files. Last char was left out. Issue #27446.

git-svn-id: trunk@47827 -
This commit is contained in:
juha 2015-02-16 12:17:28 +00:00
parent fb6575b5a2
commit 4cd255ca7f

View File

@ -268,7 +268,7 @@ begin
SetLength(InS, aInStream.Size);
aInStream.Read(InS[1],length(InS));
i := 1;
while i < Length(InS) do begin
while i <= Length(InS) do begin
if InS[i] in ['''', '#'] then
OutS:=OutS+CollectString(InS, i)
else begin