我想用 ADOQuery 輸入 Memo 中的文字,請問如何輸入?要用Stream? 試用這好像也不行 Memo1->Lines->SaveToStream(ms); ADOQuery->Parameters->CreateParameter("Text",ftMemo,pdInput,ms->Size,Memo1->Lines); 請問有無人能幫助我

//Access+D7下OK..

procedure TForm1.btnDBClick(Sender: TObject);
var
  str:string;
  i:Integer;
begin
  for i:=0 to memo1.Lines.Count-1 do
    str:=str memo1.Lines.Strings[i];//all memo1.text
  try
    AdoQuery1.Close;
    AdoQuery1.SQL.Clear;
    AdoQuery1.SQL.Add('Insert Into table1');
    AdoQuery1.SQL.Add('values(:text)');
    AdoQuery1.Parameters.ParamByName('text').Value:=str;
    AdoQuery1.ExecSQL;
  except
    showmessage('AdoQuery Insert db error');
  end;

//參考.. http://delphi.ktop.com.tw/topic.php?topic_id=64075 http://delphi.ktop.com.tw/topic.php?topic_id=41060 //多多指教..多多指教..

以能做到,謝謝meta回答 我以變化做c , 給大家 void __fastcall TForm1::Button1Click(TObject *Sender) { String Str; int i; for (i=0; i < Memo1->Lines->Count-1; i ) { Str= Str Memo1->Lines->Strings[i]; } try { AdoQuery1->Close(); AdoQuery1->SQL->Clear(); AdoQuery1->SQL->Add("Insert Into table1"); AdoQuery1->SQL->Add("values(:text)"); AdoQuery1->Parameters->ParamByName("text")->Value=Str; AdoQuery1->ExecSQL; } catch() Showmessage("AdoQuery Insert db error"); }