Permalink
Browse files

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

  • Loading branch information...
ansgarbecker committed Aug 19, 2018
1 parent 71dbb9e commit eed5629b0cfecee5e639e0885bf648bbbfbb43d1
Showing with 4 additions and 4 deletions.
  1. +4 −4 source/loaddata.pas
View
@@ -601,14 +601,14 @@ procedure Tloaddataform.ClientParse(Sender: TObject);
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;

0 comments on commit eed5629

Please sign in to comment.