간단할것 같은데 안되네여...ㅠ.ㅠ

Richedit의 내용을 stream형으로 바꿔서 저장할려구 했는데

저장할때 계속 에러가 나네여...



=====================================================================

procedure TfrmMemoData.mpInsert;

var

Data_Save : TMemoryStream;

begin

Data_Save := TMemoryStream.Create;

Editor.Lines.SaveToStream(Data_Save);



if not dmDataM.dbData.InTransaction then

dmDataM.dbData.StartTransaction;

try

with qMemoData do

begin

close;

sql.Clear;

sql.Add(' insert into memoCollect ');

sql.Add(' (mDate, formTag, memoNo, memoTag, memoData) ');

sql.Add(' values ');

sql.Add(' (:mDate, :formTag, :memoNo, :memoTag, :memoData) ');



ParamByName('mDate').AsString := gYear + '0000';

ParamByName('formTag').AsString := FormTag;

ParamByName('memoNo').AsInteger := memoNo;

ParamByName('memoTag').AsString := '1';

ParamByName('memoData').LoadFromStream(Data_Save, ftBlob);

ExecSQL;

end;



dmDataM.dbData.Commit;



except

dmDataM.dbData.Rollback;

Raise;

end;

Data_Save.Free;



end;

==================================================================



어디가 문제일까여???