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

lcl: use TField.Text in TDBComboBox (Delphi compatible). Fix #19166

Browse Source 
git-svn-id: trunk@30297 -
This commit is contained in:
blikblum 2011-04-15 02:06:52 +00:00
parent e3864724ca
commit 5693e4c3da
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/dbcombobox.inc
View File

@ -28,13 +28,15 @@
procedure TDBComboBox.UpdateData(Sender: TObject); procedure TDBComboBox.UpdateData(Sender: TObject);
begin begin
FDataLink.Field.Text := Text; FDataLink.Field.Text := Text;
FDataLink.Field.AsString := Text;
end; end;
procedure TDBComboBox.UpdateText; procedure TDBComboBox.UpdateText;
var
DataLinkField: TField;
begin begin
if Assigned(FDataLink.Field ) then DataLinkField := FDataLink.Field;
Text := FDataLink.Field.AsString if Assigned(DataLinkField) then
Text := DataLinkField.Text
else else
inherited; inherited;
end; end;