dbgride 取得输入未保存的字段内容

最新推荐文章于 2022-08-07 11:01:55 发布

chenday

最新推荐文章于 2022-08-07 11:01:55 发布

阅读量408

点赞数

分类专栏： Delphi 文章标签： components function integer string

本文链接：https://blog.csdn.net/chenday/article/details/1855038

版权

Delphi 专栏收录该内容

19 篇文章 0 订阅

订阅专栏

function GetDBGridEdit(mDBGrid: TDBGrid): TEdit;
var
I: Integer;
begin
Result := nil;
with mDBGrid do for I := 0 to Pred(ComponentCount) do
if Components[I] is TCustomEdit then begin
Result := TEdit(Components[I]);
Break;
end;
end; { GetDBGridEdit }

function GetDBGridEditText(mDBGrid: TDBGrid): string;
var
vEdit: TEdit;
begin
vEdit := GetDBGridEdit(mDBGrid);
if Assigned(vEdit) then
Result := vEdit.Text
else Result := '';
end; { GetDBGridEditText }

//demo
ShowMessage(GetBGridEditText(DBGrid1));