Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 dxMemData обрезает строки  [new]
wsnet
Member

Откуда:
Сообщений: 800
Копирую данные их cxgrid в dxMemData, однако после копирования строки обрезаются, подскажите куда копать:

procedure TfrmMain.LoadMemData(AMemData: TDataSet);
var
  i, j: Integer;
begin
  AMemData.Close;

  AMemData.DisableControls;
  AMemData.Fields.Clear;
  AMemData.FieldDefs.Clear;

  for i := 0 to grdMainGridDBTableView.ColumnCount - 1 do
  begin
    CreateField(AMemData, grdMainGridDBTableView.Columns[i].DataBinding.FieldName, grdMainGridDBTableView.Columns[i].DataBinding.Field.DataType);
  end;

  AMemData.Open;
  for j := 0 to grdMainGridDBTableView.DataController.FilteredRecordCount - 1 do
  begin
    AMemData.Append;
    for i := 0 to grdMainGridDBTableView.ColumnCount - 1 do
    begin
      AMemData.FieldByName(grdMainGridDBTableView.Columns[i].DataBinding.FieldName).Value := grdMainGridDBTableView.DataController.Values[grdMainGridDBTableView.DataController.FilteredRecordIndex[j], grdMainGridDBTableView.Columns[i].Index];

    end;
    AMemData.Post;
  end;

  AMemData.EnableControls;
end;
4 дек 17, 13:08    [21004103]     Ответить | Цитировать Сообщить модератору
 Re: dxMemData обрезает строки  [new]
AX-Class
Member

Откуда:
Сообщений: 100
wsnet,

М.б, при CreateField одного DataType не достаточно? Надо указывать размерность.
4 дек 17, 14:10    [21004345]     Ответить | Цитировать Сообщить модератору
 Re: dxMemData обрезает строки  [new]
JaDi
Member

Откуда: Сызрань, Россия
Сообщений: 3196
Размер поля надо нормальный подобрать (size у field)... Он слишком маленький и текст туда не помещается.
4 дек 17, 16:05    [21004830]     Ответить | Цитировать Сообщить модератору
 Re: dxMemData обрезает строки  [new]
wsnet
Member

Откуда:
Сообщений: 800
JaDi,Спасибо, разобрался!
5 дек 17, 13:44    [21007190]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить