数据类型转换问题？ |
|
缺席
|
|
ljq_2002
一般會員   發表：27 回覆：12 積分：7 註冊：2003-01-02 發送簡訊給我 |
有如下代码段： var
strl:TStringList;
begin
{取得当前记录的数据类型}
styname:=DxDBinspector1.FocusedField.ClassName;
if styname='TMemoField' then
begin
strl:=TStringList.Create;
GetEditMemo(strl);
if strl.Values['lines']<>'' then
begin
str:=strl.Values['Lines'];
DxDBinspector1.FocusedField.Text:=str;
end;
end;
end; 函数GetEditMemo如下：
function GetEditMemo(Amemoedit:TStrings):word;
var
MemoForm:Tmemo_Form;
begin
MemoForm:=Tmemo_Form.Create(Application);
try
Result:=MemoForm.ShowModal;
if Result=mrOK then
begin
AmemoEdit.Values['lines']:=MemoForm.memo1.Lines.Text;
end;
finally
MemoForm.Free;
end;
end; 在MemoForm的memo输入大数据量后，确定后，出现如下错误：“Cannot Access Field 'memo' as Type text”。
如何解决？？？？谢谢！！！
|
|
ljq_2002
一般會員 發表：27 回覆：12 積分：7 註冊：2003-01-02 發送簡訊給我 |
發表時間：2003-07-09 13:33:55
IP:61.138.xxx.xxx 未訂閱
系統時間：2024-05-18 22:56:02
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |