Início / coding / Perguntas / 79496429
Accepted
Matthias B
Asked: 2025-03-10 02:55:48 +0800 CST

Por que um array dinâmico se torna um tipo incompatível se colocado dentro de um registro ou classe?

  • 772

Por que uma dinâmica array of stringse torna incompatível com outra dinâmica array of stringquando colocada dentro de um registro ou classe?

type
  TRec = record
    ArrayInRecord: array of string;
  end;

var
  Rec: TRec;
  SimpleArray1, SimpleArray2, CombinedArrayOK, CombinedArrayFail: array of string;

begin
  SimpleArray1 := ['1', '2'];
  SimpleArray2 := ['3', '4'];
  CombinedArrayOK := SimpleArray1 + SimpleArray2;  // No problem here

  Rec.ArrayInRecord := ['5', '6'];
  CombinedArrayFail := SimpleArray1 + Rec.ArrayInRecord;  // E2008 Incompatible types
end;
delphi

1 respostas

  1. Best Answer

    Por que uma dinâmica array of stringse torna incompatível com outra dinâmica array of stringquando colocada dentro de um registro ou classe?

    Na verdade, isso não tem nada a ver especificamente com a presença de classes ou registros.

    Na verdade, até isso falha:

    var
  SimpleArray1, SimpleArray2, CombinedArrayOK, CombinedArrayFail: array of string;
  SimpleArray3: array of string;

begin
  SimpleArray1 := ['1', '2'];
  SimpleArray2 := ['3', '4'];
  CombinedArrayOK := SimpleArray1 + SimpleArray2;  // No problem here

  SimpleArray3 := ['3', '4'];
  CombinedArrayFail := SimpleArray1 + SimpleArray3;  // E2008 Incompatible types
end;

    O problema é simplesmente que cada um array of stringintroduz um novo tipo no sistema de tipos.

    Classicamente, a solução seria introduzir seu próprio tipo de array:

    type
  TDynStringArray = array of string;

var
  SimpleArray1, SimpleArray2, CombinedArrayOK, CombinedArrayFail: TDynStringArray;
  SimpleArray3: TDynStringArray;

begin
  SimpleArray1 := ['1', '2'];
  SimpleArray2 := ['3', '4'];
  CombinedArrayOK := SimpleArray1 + SimpleArray2;  // No problem here

  SimpleArray3 := ['3', '4'];
  CombinedArrayFail := SimpleArray1 + SimpleArray3;  // No problem here either!
end.

    Então você sempre precisaria usar esse tipo.

    Mas em versões modernas do Delphi, você não precisa fazer isso. Em vez disso, use apenas TArray<string>o que já está definido no RTL:

    var
  SimpleArray1, SimpleArray2, CombinedArrayOK, CombinedArrayFail: TArray<string>;
  SimpleArray3: TArray<string>;

begin
  SimpleArray1 := ['1', '2'];
  SimpleArray2 := ['3', '4'];
  CombinedArrayOK := SimpleArray1 + SimpleArray2;  // No problem here

  SimpleArray3 := ['3', '4'];
  CombinedArrayFail := SimpleArray1 + SimpleArray3;  // No problem here either!
end.

    (Introduzir um tipo personalizado ou usar TArray<string>também é a solução para a pergunta relacionada e comum "Como retornar um array de uma função?".)

    • 4

relate perguntas