Hello Maxi,
Tuesday, January 3, 2012, 2:25:23 PM, you wrote:
M> encontre entre los bugtracker este arreglo pero no se como aplicarlo
Ese arreglo lo incluye Lazarus desde hace 15 dias, de modo que si te bajas una versi�n reciente ya est� aplicado (con la opci�n que te comentaba en otro mensaje).
Si quieres aplicar el parche ese a tu c�digo, abre el archivo:
lazarus/lcl/include/dblookup.inc
Va a eso de la linea 386
y cambias:
-----------------
end;
if not (Assigned(FListLink.DataSet) and Assigned(FListField)) then
Exit;
LinkGetBookMark;
try
if FListLink.DataSet.Locate(FListField.FieldName,VarArrayOf([AListFieldValue]), []) then
begin
FControlLink.DataSet.Edit;
for I := 0 to FDataFields.Count -1 do
[4 o 5 lineas m�s abajo]
FControlLink.Field.AsString := AListFieldValue;
end;
finally
LinkGotoBookMark;
end;
end;
-----------------
por
------------------------
end;
if not (Assigned(FListLink.DataSet) and Assigned(FListField)) then
Exit;
//LinkGetBookMark;
try
if FListLink.DataSet.Locate(FListField.FieldName, AListFieldValue, []) then
begin
FControlLink.DataSet.Edit;
for I := 0 to FDataFields.Count -1 do
[4 o 5 lineas mas abajo]
FControlLink.Field.AsString := AListFieldValue;
end;
finally
//LinkGotoBookMark;
end;
end;
-----------------------
Pero recuerda que este cambio ser� incompatible con versiones futuras de Lazarus.
Best regards,
Jos�
