Begrenzter String, TList und InterfaceObject > Datenmüll

[QStorm]

Hallo,

Beim Umstieg von Delphi XE auf XE8 bin ich auf folgendes Problem gestoßen:

Vorgeschichte:
Ich verwende einen auf 10 Zeichen begrenzten String als "ID".
Diesen kann ich ohne Probleme als Typ einer TList verwenden:

Delphi-Quellcode:

type
 MyID = String[10];

// ...

var
  ID1,
  ID2 : MyID;
  Liste : TList<MyID>;
begin
  ID1 := ('ABCDEFGHIJ');
  Liste := (TList<MyID>.Create);
  Liste.Add(ID1);
  ID2 := (Liste[0]);
end;

In einem TInterfacedObject verwende ich nun TList als Member:

Delphi-Quellcode:

IMyObject<T> = interface
['{22041332-1221-4EBD-BBC5-1AF3C914E08B}']
  procedure AddValue(const Value : T);
  function GetValue(const Index : Integer) : T;
end;

TMyObject<T> = class(TInterfacedObject, IMyObject<T>)
strict private
  internalList : TList<T>;
public
  constructor Create;

  procedure AddValue(const Value : T);
  function GetValue(const Index : Integer) : T;
end;

// ...

constructor TMyObject<T>.Create;
begin
  internList := (TList<T>.Create);
end;

procedure TMyObject<T>.AddValue(const Value : T);
begin
  internList.Add(Value);
end;

function TMyObject<T>.GetValue(const Index : Integer) : T;
begin
  Result := (internList[Index]);
end;

Problem:
Wenn ich ein Objekt vom Typ IMyObject<MyID> erzeuge und via AddValue eine MyID hinzufüge entsteht Datenmüll:

Delphi-Quellcode:

var
  ID1,
  ID2 : MyID;
  MyObj1 : IMyObject<MyID>;
begin
  ID1 := ('ABCDEFGHIJ');
  MyObj1 := (TMyObject<MyID>.Create);
  MyObj1.AddValue(ID1);
  ID2 := (MyObj1.GetValue(0));
end;

Wert von ID2: 'ABC'#$90'!'#$B#2#$8D'þ'#$18
Die erste 3 Zeichen sind noch korrekt, der Rest jedoch nicht.
Es sieht so aus, als wenn er nicht genügend Speicher für den String reserviert.

MyID ist ein zentraler Bestandteil der Software.

Wodurch tritt das Problem auf und wie könnte man es lösen?

Vielen Dank im Voraus

[Sir Rufo]

XE8 oder XE8.1?

Die Generics - speziell die Listen - sind bei XE8 komplett umgestellt worden und es gibt dort einen Bug speziell mit Records - der aber auch diesen String[10] Typen betrifft. Behoben wurde dieser Bug mit XE8.1

https://quality.embarcadero.com/browse/RSP-11096
http://stackoverflow.com/questions/2...eed-workaround

[QStorm]

Hallo,

Ich verwende "22.0.19908.869" (XE8 Subscription Update 1).

UPDATE: Mit dem inoffiziellen Fix (http://rghost.ru/6qq87QGGX) funktioniert es leider auch nicht.

BTW: Vielen Dank für die Links.

[Sir Rufo]

Jupp, da scheint noch ein Bug zu sein ...

Mit DX10 funktioniert das auf jeden Fall

[TiGü]

Zitat von QStorm:

Wodurch tritt das Problem auf und wie könnte man es lösen?

Alternativ kannst du eventuell auch zurück auf XE7 gehen, was ja im Kaufpreis von XE8 mit enthalten ist.

[mkinzler]

Wenn der Bug in Seattle gelöst wurde, müsste er demnächst auch in XE8 (Subscription Update 2 o.ä.) gefixt werden, wurde ja für demnächst angekündigt.

[Bernhard Geyer]

Zitat von mkinzler:

Wenn der Bug in Seattle gelöst wurde, müsste er demnächst auch in XE8 (Subscription Update 2 o.ä.) gefixt werden, wurde ja für demnächst angekündigt.

Dazu müsste man bei Rückportieren wissen das es ein entsprechend relevanter Bug ist. Ist er z.B. nur wegen eines neuen Features in Seatle gefixt würde ich mich nicht darauf verlassen das er auch in XE8 korrigiert wird.

[QStorm]

Kann einer bitte die Units "System.Generics.Collections" und "System.Generics.Defaults" von Delphi XE7 posten?

[Sir Rufo]

Zitat von QStorm:

Kann einer bitte die Units "System.Generics.Collections" und "System.Generics.Defaults" von Delphi XE7 posten?

Glaube ich mal eher nicht, denn die sind urheberrechtlich geschützt!

[mkinzler]

Das dürfte nicht erlaubt sein. Diese würden mit großer Wahrscheinlichkeit auch nicht so einfach unter XE8 funktionieren.