04.06.2010, 09:10
|
Местный
|
|
Регистрация: 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;
|