mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-04 13:37:22 +01:00
Converter: Fix converting DFM form files. Last char was left out. Issue #27446.
git-svn-id: trunk@47827 -
This commit is contained in:
parent
fb6575b5a2
commit
4cd255ca7f
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user