问题如题!
现在是用手工进行操作,所以比较麻烦!
要怎么设置,请不吝赐教!
谢谢!

解决方案 »

  1.   

    procedure TForm1.DBMemoKeyPress(Sender: TObject; var Key: Char);
    begin
      if Key = Char(' ') then
         Key := #13;
    end;
      

  2.   

    procedure TForm1.Table1YouFieldGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    begin
      Text := StringReplace(Text, #13#10, #32, [rfReplaceAll]);
    end;
      

  3.   

    zswang(伴水清清)(专家门诊清洁工):
    我试过了,但是还是不行!
    不知道是我用错了,还是真的不能替换!我是想对数据库的一个字段进行换行符替换,
    比如:DBMemo.Lines.add(...);//一行一行的添加数据
         DBMemo指向字段A1,就是希望能把DBMemo的换行符替换成空格符该怎么用才可以达到目的!
    还请用一个具体的例子说明一下!谢谢!
      

  4.   

    可能是因为你没的找到Table1YouFieldGetText事件是吧;
    或者,你的字段里根本就没有空格