ошибка memo Опции

[Крастb]

редактирую данные в мемо. но выдает ошибку "constant is not correct type (тут то что ввjдил в memo)"
помогите пожалуйста разобраться в чем дело
вот код:

procedure TForm7.CheckBox4Click(Sender: TObject);
var f: string; i:integer;
begin
For i:=1 to datamodule3.Table9.RecordCount do
begin
DataModule3.Table6.RecNo:=i;
end;
f:= DataModule3.query3.FieldByName('Primechanie').AsString;
if DataModule3.table9.Locate('Primechanie',F,[])=True then
begin
DataModule3.Table9.Edit;
DataModule3.Table9.fieldbyname('Primechanie').value:=memo1.lines.text;
DataModule3.Table9.Refresh;
DataModule3.Query3.Close;
DataModule3.Query3.Open;
showmessage('Информация изменена!');
memo1.lines.Text:='';
datamodule3.Table9.Close;
datamodule3.Table9.Open;
exit;
end;
end;

[volvo]

Единственное, что приходит в голову - это сделать:

DataModule3.Table9.fieldbyname('Primechanie').AsString := memo1.text;

, то есть напрямую указать, что вводиться будет строка...

[Крастb]

Единственное, что приходит в голову - это сделать:

DataModule3.Table9.fieldbyname('Primechanie').AsString := memo1.text;

, то есть напрямую указать, что вводиться будет строка...

ничего не изменилось, сообщение об ошибке по прежднему осталось

Добавлено через 3 мин.
вот может поможет чем нибудь, добавляю таким способом:

Код

procedure TForm8.BitBtn1Click(Sender: TObject);
var w: word;
begin
if dblookupcombobox2.text='' then
begin
showMessage('Вы не ввели мероприятие!');
exit;
end;
if dblookupcombobox1.text='' then
begin
showMessage('Вы не ввели ответственного!');
exit;
end;
W:=MessageDlg('Вы действительно хотите добавить мероприятие?',mtConfirmation,[mbYes,mbNo],0);
If W=mrYes then begin
DataModule3.table9.Append;
DataModule3.table9.FieldByName('Data_proved').AsDateTime:= DateTimePicker1.Date;
DataModule3.Table9.FieldByName('Kod_mer').AsInteger:=DBlookupCombobox1.KeyValue;
DataModule3.Table9.FieldByName('Kod_ch').AsInteger:=DBlookupCombobox2.KeyValue;
DataModule3.Table9.fieldbyname('Primechanie').value:=memo1.lines.text;
DataModule3.table9.Post;
DataModule3.Table9.Refresh;
DataModule3.Query2.Close;
DataModule3.Query2.Open;
memo1.Text:='';
end;
form8.close;

end;

Сообщение отредактировано: Крастb - 13.03.2010 3:10