uGridStatusUtils -> fallo en la función 'FindRecordEx' que podía producir errores de violación de memoria.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1003 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2010-06-22 16:08:29 +00:00
parent 7e97e65b95
commit 1dd49fb520

View File

@ -88,6 +88,9 @@ var
AList: TList;
AKeyValue: Variant;
begin
if not Assigned(RecordInfo) then
Exit;
I := 0;
ARecordIndex := AView.DataController.FindRecordIndexByKey(RecordInfo.KeyValues);
Result := nil;