能否将RichEdit组件里不同行的字符串编程分别存入不同的地方？

Question

例如将RichEdit组件里不同行的字符串str1、str2分别存到数据表中不同的字段。

Answer 1

可以，不过你总要制定一个存储的规则才行。AnsiString s;for (int i = 0; i < RichEdit1->Lines->Count; i++)
{
   s = RichEdit1->Lines->Strings[i];
}这是依次获取 richedit 中的每行内容，至于你怎么存到数据库，你就按你的规则处理好了。

Answer 2

用了指针，感觉比较复杂，看不太明白。如果在两个字符串间加一空行，在第一个字符串输入以后，用RichEdit1.lines.count计算第一个字符串所占行数，再确定下一个字符串的位置，感觉应该可行。

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  for i :=0  to RichEdit1.Lines.Count-1 do begin
    if odd(i) then begin
      {行号为奇数}
      with adoquery1 do begin
         Append;
         FieldValues['x_a']:=RichEdit1.Lines.Strings[i];
         post;
      end;
    end else begin
     {行号为偶数}
      with adoquery2 do begin
         Append;
         FieldValues['x_a']:=RichEdit1.Lines.Strings[i];
         post;
      end;    end;  end;end;