اظهار النصوص الكبيره في TDBGrid

[redahashem]

كيفيه اظهار نصوص memo في TDBGrid

[larbiparadox]

01 - نضغط مرتين على FDTable1 تظهر لنا قائمة فارغة للحقول

02 - كليك يمين نختار اظافة جميع الحقول

03 - نختار الحقل من نوع Memo في خيار 「DisplayValue」 توجد عدة خيارات من بينها dvFull  تظهر النص بالكامل و dvClip جزء من النص

[redahashem]

شكرا علي الرد ولكني استخدم الكود في runtime
--
مثال
----

PHP كود :

procedure TForm3.Button1Click(Sender: TObject);
var
ini: Tinifile;
Server, User, Pass, DBName: string;
begin
ini:= TIniFile.Create(ExtractFilePath (Application.ExeName) + 'dbconn.ini'); // initialize the ini file
Server:= ini.ReadString ('serverinfo', 'ServerIP',''); // database ip address
DBName:= ini.ReadString ('serverinfo', 'SQLDBName',''); // database name
User:= ini.ReadString ('serverinfo', 'SQLUserID',''); // database user name
Pass:= ini.ReadString ('serverinfo', 'SQLPwd',''); // database password
try
ADOConnection1.ConnectionString:= 'Provider = SQLOLEDB.1; Persist Security Info = False;'
+'User ID =' + trim(User)
+';Password ='+ trim(Pass)
+';Initial Catalog =' + trim(DBName)
+'; Data Source =' + trim(Server);
ADOConnection1.Open;
ShowMessage('connected');
//ADOConnection1.Close;
  ADOTable1.Connection := ADOConnection1;
    ADOTable1.TableName :='items';
      ADOTable1.Active := true;
        DataSource1.DataSet :=ADOTable1;
        DBGrid1.DataSource :=  DataSource1;


except
application.MessageBox ('database connection fails, check the INI configuration file', 'tips', 64);
application.Terminate;
end;

end; 


[larbiparadox]

PHP كود :

procedure TForm3.Button1Click(Sender: TObject);
var
ini: Tinifile;
Server, User, Pass, DBName: string;
begin
ini:= TIniFile.Create(ExtractFilePath (Application.ExeName) + 'dbconn.ini'); // initialize the ini file
Server:= ini.ReadString ('serverinfo', 'ServerIP',''); // database ip address
DBName:= ini.ReadString ('serverinfo', 'SQLDBName',''); // database name
User:= ini.ReadString ('serverinfo', 'SQLUserID',''); // database user name
Pass:= ini.ReadString ('serverinfo', 'SQLPwd',''); // database password
try
ADOConnection1.ConnectionString:= 'Provider = SQLOLEDB.1; Persist Security Info = False;'
+'User ID =' + trim(User)
+';Password ='+ trim(Pass)
+';Initial Catalog =' + trim(DBName)
+'; Data Source =' + trim(Server);
ADOConnection1.Open;
ShowMessage('connected');
//ADOConnection1.Close;
ADOTable1.Connection := ADOConnection1;
ADOTable1.TableName :='items';
ADOTable1.Active := true;

TMemoField(ADOTable1.FieldByName('هنا أكتب اسم الحقل ميمو')).DisplayValue := dvFull;

DataSource1.DataSet :=ADOTable1;
DBGrid1.DataSource := DataSource1;


except
application.MessageBox ('database connection fails, check the INI configuration file', 'tips', 64);
application.Terminate;
end;

end; 


[redahashem]

PHP كود :

procedure TForm3.Button1Click(Sender: TObject);
var
ini: Tinifile;
Server, User, Pass, DBName: string;
begin
ini:= TIniFile.Create(ExtractFilePath (Application.ExeName) + 'dbconn.ini'); // initialize the ini file
Server:= ini.ReadString ('serverinfo', 'ServerIP',''); // database ip address
DBName:= ini.ReadString ('serverinfo', 'SQLDBName',''); // database name
User:= ini.ReadString ('serverinfo', 'SQLUserID',''); // database user name
Pass:= ini.ReadString ('serverinfo', 'SQLPwd',''); // database password
try
ADOConnection1.ConnectionString:= 'Provider = SQLOLEDB.1; Persist Security Info = False;'
+'User ID =' + trim(User)
+';Password ='+ trim(Pass)
+';Initial Catalog =' + trim(DBName)
+'; Data Source =' + trim(Server);
ADOConnection1.Open;
ShowMessage('connected');
//ADOConnection1.Close;
ADOTable1.Connection := ADOConnection1;
ADOTable1.TableName :='items';
ADOTable1.Active := true;

TMemoField(ADOTable1.FieldByName('هنا أكتب اسم الحقل ميمو')).DisplayValue := dvFull;

DataSource1.DataSet :=ADOTable1;
DBGrid1.DataSource := DataSource1;


except
application.MessageBox ('database connection fails, check the INI configuration file', 'tips', 64);
application.Terminate;
end;

end; 


الف شكر تحياتي