'Разместите курсор на правильной позиции'); end ;
with Table2 do
begin
Append ;
for i := 0 to Table1.FieldCount - 1 do
if Table1.Fields[i].DataType < ftBytes then
FieldByName(Table1.Fields[i].FieldName).Assign(Table1.Fields[i])
else
try
srcStream := nil ;
srcStream := TBlobStream.Create(TBlobField(Table1.Fields[i]), bmRead) ;
TBlobField(FieldByName(Table1.Fields[i].FieldName)).LoadFromStream(
srcStream) ;
finally
if Assigned(srcStream) then srcStream.Free ;
end ;
Post ;
end ;
except
on E: EDBEngineError do MessageDlg(E.Message, mtError, [mbOk], 0) ;
on E: Exception do MessageDlg(E.Message, mtError, [mbOk], 0) ;
end ;
end;