نقل قول از yanin
من این کاری که گفتید رو انجام دادم ولی پرژه شما هم همون Erorre رو داد من خیلی قبل هم این به ذهنم رسید که شاید مشکل از سیستم من باشه برا همین باور کنید 15 بار ویندوز رو عوض کردم به طریق مختلف سیستم رو کلا پاک کردم ولی واقعا گیج شدم اگه مشکل من به این سادگی بود که نمینوشتم مشکل عجیب اگه تو فیلم دقت کرده باشید همه چیز Default هست*و*Fn رو TwideStringField هستش و برا همینه اون Erorre رو میده وقتی Fn رو TwidememoField میکنم دیگه اون Erorre رو نمیده ولی چیزی هم تو بانک نشون نمیده البته تو Field*ّFn چیزی نشون نمیده و فقط نوشته Memo*





پس برای نمایش داده ها* از روش اشاره شده در لینک زیر استفاده کنید :

اطلاعات شما به صورت زیر نمایش داده میشه



حالا میشه به این صورت نمایش اشون داد
کد:

کد:
procedure TForm1.DBTableDataGetText(
 *Sender: TField;
 *var Text: String;
 *DisplayText: Boolean);
begin
 *Text := Copy(DBTableData.AsString, 1, 50);
end;




و همچنین به این صورت ویرایش اش کرد ، والبته میشه هر رویداد دیگه ای رو هم انتخاب کرد...
کد:

کد:
procedure TForm1.DBGrid1KeyDown(
 *Sender: TObject; 
 *var Key: Word;
 *Shift: TShiftState);
begin
 *if Key = VK_RETURN then
 *begin
 * *if DBGrid1.SelectedField = DBTableData then
 * *with TMemoEditorForm.Create(nil) do
 * *try
 * * *DBMemoEditor.Text := DBTableData.AsString;
 * * *ShowModal;
 * * *DBTable.Edit;
 * * *DBTableData.AsString := DBMemoEditor.Text;
 * *finally
 * * *Free;
 * *end;
 *end;
end;



[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]