[Lazarus-es] Función Locate

[Ismael L. Donis García]

Estoy tratando de hacer funcionar la función .Locate en un TMenDataset para un campo del tipo ftString, pero no logro hacerla funcionar.

Uso la versión 0.9.30 SVN 29749 con FPC 2.4.2

Esto por casualidad es un problema conocido?. En caso de serlo se habrá resuelto en alguna subversión de la 0.9.30.1?

Desde ya Gracias.
=========
|| ISMAEL ||
=========
PD: Se puede comprobar si haces lo siguiente.

procedure Tfprueba.FormCreate(Sender: TObject);
begin
  ds.Close;
  ds.Clear;
  ds.FieldDefs.Add('Factura', ftInteger);
  ds.FieldDefs.Add('Cliente', ftString, 7);
  ds.FieldDefs.Add('Valor_CUC', ftFloat);
  ds.FieldDefs.Add('Valor_CUP', ftFloat);
  ds.Open;
  ds.Append;
  ds.FieldByName('Factura').AsInteger := 1;
  ds.FieldByName('Cliente').AsString := 'Pedro';
  ds.FieldByName('Valor_CUC').AsFloat := 1.2;
  ds.FieldByName('Valor_CUP').AsFloat := 3.45;
  ds.UpdateRecord;
  ds.Post;
  ds.Append;
  ds.FieldByName('Factura').AsInteger := 2;
  ds.FieldByName('Cliente').AsString := 'Juan';
  ds.FieldByName('Valor_CUC').AsFloat := 2.41;
  ds.FieldByName('Valor_CUP').AsFloat := 6.93;
  ds.UpdateRecord;
  ds.Post;
  ds.First;
end; 


procedure Tfprueba.cmdlocClick(Sender: TObject);
begin
  if ds.RecordCount > 0 then begin
    if ds.Locate('Cliente', 'Pedro', []) then
      Application.MessageBox('Encontrado.', pchar(Self.Caption), 0)
    else
     Application.MessageBox('No Encontrado.', pchar(Self.Caption), 0);
  end;
end;
 
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110503/1e3f81f7/attachment-0002.html>