当运行到T_course.AppendRecord([course_id,edit_cname.text, form1.edit_user.text,comb_credit.text, comb_time.text,'','',memo_intro.lines,'0']);这里时出现cannot assign a TMemoStrings to TStringfield错误,是什么原因呢 ,请帮帮忙找出来procedure TForm2.Btn_submitClick(Sender: TObject);
var
locOp:TlocateOptions;
counter:integer;
course_id:String;
begin
case RdG_state.ItemIndex of
0:
begin
T_counterk.Open;
counter:=T_counterk['counter_value'];
inc(counter);
T_counterk.Edit;
T_counterk['counter_value']:=counter;
T_counterk.Post;
T_counterk.Close;
course_id:='00000'+IntTostr(counter);
course_id:=copy(course_id,length(course_id)-6,6);
course_id:=formatDateTime('yyyy',now)+course_id;
T_course.filtered:=false;
T_course.Open;
T_course.AppendRecord([course_id,edit_cname.text,
form1.edit_user.text,comb_credit.text,
comb_time.text,'','',memo_intro.lines,'0']);
end;
var
locOp:TlocateOptions;
counter:integer;
course_id:String;
begin
case RdG_state.ItemIndex of
0:
begin
T_counterk.Open;
counter:=T_counterk['counter_value'];
inc(counter);
T_counterk.Edit;
T_counterk['counter_value']:=counter;
T_counterk.Post;
T_counterk.Close;
course_id:='00000'+IntTostr(counter);
course_id:=copy(course_id,length(course_id)-6,6);
course_id:=formatDateTime('yyyy',now)+course_id;
T_course.filtered:=false;
T_course.Open;
T_course.AppendRecord([course_id,edit_cname.text,
form1.edit_user.text,comb_credit.text,
comb_time.text,'','',memo_intro.lines,'0']);
end;
解决方案 »
- 如何知道TSplitter控件的左右各是什么控件
- 高分求助!!!!!!!!!请问如何在普通的tableView中实现主从表的效果?!!在线等
- 使用TADOCommand执行Sql语句,在没有返回结果时候出错
- DBGrid 的 OnCellClick 事件
- 有哪些好的delphi技术网站?
- 关于*.MAP文件转换为图象,请教!!!
- 关于查找网上SQLServer服务器
- 谁知道所有Rational的产品的License服务下载?高分相赠!
- 有办法实现重启进入安全模式吗?
- 请问手机铃声和图片下载技术?
- 请问数组的大小可以按需分配吗?不是一次性分配10大小或更多个而是我现需要1个就分配一个,后来又需要了再分配2个,再增加2个。能这样操作吗?如何实现阿?
- delphi如何获取随即数
应该Memo控件吧,不过你没指定要插入那一行??当然出错了改成:
memo_intro.lines[0] //第一行
或者:
memo_intro.text //全部
form1.edit_user.text,comb_credit.text,
comb_time.text,'','',memo_intro.lines.Text,'0']);