Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 174 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Olá, estou com uma dúvida de como resolver esse problema abaixo:

Eu tenho uma função de cópia no delphi 2007, estou convertendo para o delphi alexandria e está dando erro:

procedure TdtmGenIbx.CopyIBDataSet(idsSource, idsDest: TIBDataSet);
var
  i: Integer;
  bkmk: TBookmarkStr;
begin
  if idsDest = nil then
    idsDest := TIBDataSet.Create(Self);

  idsDest.Database := idsSource.Database;
  idsDest.CachedUpdates := idsSource.CachedUpdates;

  idsDest.SelectSQL.Assign(idsSource.SelectSQL);
  idsDest.InsertSQL.Assign(idsSource.InsertSQL);
  idsDest.ModifySQL.Assign(idsSource.ModifySQL);
  idsDest.DeleteSQL.Assign(idsSource.DeleteSQL);
  idsDest.RefreshSQL.Assign(idsSource.RefreshSQL);

  idsDest.Open;

  bkmk := idsSource.Bookmark;     ***************
  idsSource.DisableControls;
  idsSource.First;
  while not idsSource.Eof do
  begin
    idsDest.Insert;
    for i := 0 to idsSource.FieldCount - 1 do
      if idsSource.Fields[i].FieldKind = fkData then
        idsDest.FieldByName(idsSource.Fields[i].FieldName).Value := idsSource.Fields[i].Value;
    idsDest.Post;
    idsSource.Next;
  end;
  idsSource.Bookmark := bkmk;
  idsSource.EnableControls;
end;
 

*************** está dando erro nessa linha: 

[dcc32 Error] uDMGenIbx.pas(447): E2010 Incompatible types: 'AnsiString' and 'System.TArray<System.Byte>'

Como eu consigo resolver?

 

  • Este tópico foi criado há 174 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.