Add code comments.

This commit is contained in:
rosenfield
2007-06-29 16:37:01 +00:00
parent 5d2823143e
commit fca0840aa3

View File

@ -3729,6 +3729,7 @@ begin
if not DBMemo1.Modified then exit; if not DBMemo1.Modified then exit;
if DBMemo1.ReadOnly then exit; if DBMemo1.ReadOnly then exit;
if Length(DBMemo1.DataField) = 0 then exit; if Length(DBMemo1.DataField) = 0 then exit;
debug('TODO: Non-threaded database call to TDataSet.Post().');
DBMemo1.DataSource.DataSet.Post; DBMemo1.DataSource.DataSet.Post;
//SendMessage(DBMemo1.Handle, CM_EXIT, 0, 0); //SendMessage(DBMemo1.Handle, CM_EXIT, 0, 0);
end; end;
@ -4592,6 +4593,7 @@ begin
// Save changes. Fixes issue #1538021. // Save changes. Fixes issue #1538021.
ds := DBMemo1.DataSource; ds := DBMemo1.DataSource;
if ds.State in [dsEdit, dsInsert] then begin if ds.State in [dsEdit, dsInsert] then begin
debug('TODO: Non-threaded database call to TDataSet.Post().');
ds.DataSet.Post; ds.DataSet.Post;
end; end;
end; end;