Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2017-04

Error: Incompatible types: got "TBytes" expected "AnsiString" en TMemDataset

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Ismael L. Donis Garcia

Estoy tratando de usar a TDataSet.Bookmark en un TMemDataset y me da el siguiente error:

ufcvta.pas(1732,19) Error: Incompatible types: got "TBytes" expected
"AnsiString"

La verdad que no comprendo porque hice exactamente lo que dice la ayuda.

procedure Tfcvta.cmdupClick(Sender: TObject);
var
   vntBookMark: TBookmarkStr;
begin
  with ds do begin
   if not (BOF or EOF) then begin
     DisableControls;
     vntBookMark:=Bookmark;  //AQUI ES DONDE DA EL ERROR
     EnableControls;
     scodold:=FieldByName('cod').AsString;
   end;
  end;
 valcontroles(false);
  txtcod.SetFocus;
end;

Saludos Cordiales
========
| ISMAEL |
========
WebSite: http://sisconge.byethost15.com/

Reply by email

Jesus R.
to Ismael L. Donis Garcia

Aparentemente en algún punto Bookmark regresaba TBookmarkStr y ahora regresa TBookmark.
Recuerda de usar ds.GotoBookmark(vntBookmark) para regresar al bookmark y al final liberarlo con ds.FreeBookmark(vntBookmark). Como nota adicional, se me hace extraña la secuencia DisableControls; ObtenerBookmark; EnableControls; Para obtener el bookmark no debería ser necesario "congelar" los controles, por el contrario para "regresar" al bookmark podría ser útil.

¿Podrías poner un enlace a la ayuda que mencionas?

Jesus Reyes A.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20170418/414fb34f/attachment.html>

Reply by email