Text file import: Support having (one) line feed at end of file. Closes #329

This commit is contained in:
Ansgar Becker
2018-08-19 08:52:18 +02:00
parent 71dbb9ecb0
commit eed5629b0c

View File

@ -601,14 +601,14 @@ begin
InEncl := not InEncl;
if IsEof or (not InEncl) then begin
if IsEof then begin
if IsLineTerm then begin
SetLength(Value, Length(Value)-LineTermLen);
AddValue;
end else if IsEof then begin
AddValue;
end else if IsTerm then begin
SetLength(Value, Length(Value)-TermLen);
AddValue;
end else if IsLineTerm then begin
SetLength(Value, Length(Value)-LineTermLen);
AddValue;
end;
end;