<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Estoy presentando un problema, y es que no
encuentro como posicionar un dataset en el primer y último
registro.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>tengo por ejemplo a:</FONT></DIV>
<DIV><FONT face=Arial size=2>procedure Tfcvta.FormShow(Sender:
TObject);<BR>begin<BR> while not dma.rsmr1.EOF do
begin<BR> ds.Append;<BR>
ds.FieldByName('cod').AsString :=
dma.rsmr1.FieldByName('cod').AsString;<BR> ds.FieldByName('descod').AsString
:=
dma.rsmr1.FieldByName('descod').AsString;<BR> ds.UpdateRecord;<BR> ds.Post;<BR>
dma.rsmr1.Next;<BR> end;<BR> if (ds.RecordCount > 0) then
begin<BR> ds.First;<BR> if ds.BOF
then<BR>
Application.MessageBox('Inicio',pchar(self.Caption),0);<BR>
end;<BR>end;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Siempre me da el mensaje que está en el inicio del
dataset y yo quiero que se me posicione en el primer registro. Estoy medio
perdido con eso, no se si los conceptos en Lazarus son diferentes a los de
microsoft.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Y en caso de ser diferentes como tratarlos ya que
no podría hacer algo como esto:</FONT></DIV>
<DIV><FONT face=Arial size=2>if not (ds.BOF or ds.EOF) then</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Quisiera ver si es posible que me aclaren un poco
este concepto en Lazarus ya que yo vengo de programar en lenguajes de microsoft
y esto me trae medio confundido.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Saludos Cordiales</FONT></DIV>
<DIV>========<BR>| ISMAEL |<BR>========</DIV></BODY></HTML>