pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

if try edit closed TRxMemoryData in error message display TRxMemoryData.Name

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@506 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-07-05 06:55:49 +00:00
parent c8ea997a2b
commit 1552b81bc9
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/rxmemds.pas
View File

@@ -774,7 +774,7 @@ var
VarData: Variant;
PBl:PBoolean;
begin
if not (State in dsWriteModes) then Error(SNotEditing);
if not (State in dsWriteModes) then ErrorFmt(SNotEditing, [Name]);
GetActiveRecBuf(RecBuf);
with Field do
begin
@@ -784,7 +784,7 @@ begin
if Field.FieldNo > 0 then
{$ENDIF}
begin
if State in [dsCalcFields, dsFilter] then Error(SNotEditing);
if State in [dsCalcFields, dsFilter] then ErrorFmt(SNotEditing, [Name]);
if ReadOnly and not (State in [dsSetKey, dsFilter]) then
ErrorFmt(SFieldReadOnly, [DisplayName]);
Validate(Buffer);