From 83c80c6daea89c85e1564d3bab7dbd18481aad1b Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Fri, 26 Sep 2008 05:24:18 +0000
Subject: [PATCH] LCL, fix OnGetText for dbgrid

git-svn-id: trunk@16740 -
---
 lcl/dbgrids.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas
index e2adc9eea7..abc0877f8b 100644
--- a/lcl/dbgrids.pas
+++ b/lcl/dbgrids.pas
@@ -2261,7 +2261,7 @@ begin
   if FDataLink.Active then begin
     aField := GetFieldFromGridColumn(aCol);
     if aField<>nil then begin
-      Result := aField.AsString;
+      Result := aField.Text;
     end;
   end;
 end;