No puedo guardar Memo1.lines
 

Hola Foro:
Tengo que guardar en una tabla el texto de un TMemo, pero me da un error en el momento de compilar

Alguien sabrá que está mal?

Estoy usando InterBase y Delphi 7.

Les transcribo el código.

Desde ya muchas gracias.

Código Delphi [-]
procedure TF_Cond_Ventas.Guardo_Ingreso;
var
MS : TMemoryStream;
begin

 MS := TMemoryStream.Create;
 Memo1.Lines.SaveToStream(MS);

 with Q_Insert do
  begin
   ParamByName('P_ID_Cond_Venta').Value:=CD_Codigo;
   ParamByName('P_Texto').LoadFromStream(MS,ftBlob);// << Acá da error
   ExecSQL;
  end;
end;

saludos, ¿por que no añades en el uses de tu unit "DB"?, te quedará así mas o menos:

Código Delphi [-]
...
uses DB,...;
...

¿me entiendes colega?

si no, entonces implementa esto debajo del end; del type, o sobre donde dice var:

Código Delphi [-]
  TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
    ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
    ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
    ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,
    ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob,
    ftVariant, ftInterface, ftIDispatch, ftGuid);

espero que te sirva

Gracias AEFF
 

AEFF: lo solucioné con tu primera opcion "uses DB".

Gracias y Saludos :cool:

ok, espero que revises esta unit DB, dentro existen implementadas Clases, Estructuras, Registros y muchas funciones que son verdaderamebte utiles para trabajar con Base de DAtos,

saludos, y suerte, aeff!