From eed5629b0cfecee5e639e0885bf648bbbfbb43d1 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Sun, 19 Aug 2018 08:52:18 +0200 Subject: [PATCH] Text file import: Support having (one) line feed at end of file. Closes #329 --- source/loaddata.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/source/loaddata.pas b/source/loaddata.pas index a3b34395..314f82a4 100644 --- a/source/loaddata.pas +++ b/source/loaddata.pas @@ -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;