Показать сообщение отдельно
  #5  
Старый 04.06.2010, 09:10
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Цикл не по гриду а по DataSet надо делать на который ссылается грид.
Как пример:

Код:
if mt1.IsEmpty=false then begin
  mt1.First;
  repeat
    F_preview.mt1.edit;
    F_preview.MT1.AppendRecord(
                        [MT1ID_component.AsInteger,MT1ID_parent.AsInteger,
                         MT1ParentClass.AsString,MT1ParentObject.AsString,
                         MT1ParentName.AsString,MT1ComponentClass.AsString,
                         MT1ComponentName.AsString,MT1ComponentTop.AsInteger,
MT1ComponentLeft.AsInteger,MT1ComponentWidth.AsInteger,
MT1ComponentHeigth.AsInteger,MT1ComponentText.AsString,MT1ComponentCheck.AsBoolean,
MT1ComponentChecked.AsBoolean,MT1Spr_Id.AsInteger,MT1Spr_Field.AsString,
MT1typeObject.AsInteger]);
    mt1.Next;
  until mt1.Eof;
end;
Ответить с цитированием