paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 23:09:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix AV on editing dbedit and dataset is closed, issue #15036

Browse Source 
git-svn-id: trunk@23497 -
This commit is contained in:
jesus 2010-01-20 08:24:43 +00:00
parent cbd597f590
commit 1aa70b74a9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/dbedit.inc
View File

@ -163,7 +163,7 @@ end;
procedure TDBEdit.KeyPress(var Key: char); procedure TDBEdit.KeyPress(var Key: char);
function CanAcceptKey: boolean; function CanAcceptKey: boolean;
begin begin
Result := Field.IsValidChar(Key) and Result := (Field<>nil) and Field.IsValidChar(Key) and
(Field.DataType<>ftAutoInc); (Field.DataType<>ftAutoInc);
end; end;
var var