数据分列问题

TFTT08277 2018-05-31 04:56:00

我的代码在处理带空格的字符串时会把空格也当成分隔符，但是我需要保留空格，请问错在哪，不胜感激
图片是处理后存入数据库后的效果，分别是带空格和不带空格，第一行记录是正确，

begin



  if   (key=#13) and (trim(edit1.Text)<>'') and (edit1.GetTextLen >=40) then

  begin



  s:= formatdatetime('DD-MM-YYYY',now);

  s1 := edit1.Text;

  s1 := stringreplace(s1,'$$','$',[rfReplaceAll]);

  List1 := TStringList.Create;

  List1.Delimiter := '$';

  List1.DelimitedText := s1;

  AdoTable1.Append;

  AdoTable1.Edit;



  try

  AdoTable1.FieldByName('D1').Text := List1[0];

  AdoTable1.FieldByName('D2').Text := List1[1];

  AdoTable1.FieldByName('D3').Text := List1[2];

  AdoTable1.FieldByName('D4').Text := List1[3];

  AdoTable1.FieldByName('D5').Text := List1[4];

  AdoTable1.FieldByName('D6').Text := List1[5];

  AdoTable1.FieldByName('D7').Text := List1[6];

  AdoTable1.FieldByName('D8').Text := s;

  AdoTable1.Post;

  except  ShowMessage('SEQ ID Existed');

  end;

   edit1.Clear;

    align1();



  end;

end;