Seite kann nichts zugewiesen werden" und ich blicks nicht

[ozz]

Hallo Leute
ich bekomme immer einen Fehler "Der linken Seite kann nichts zugewiesen werden" wenn ich der Property item einen neuen Wert zuweise (aktualisiere). Irgendwie stehe ich momentan gewaltig auf dem Schlauch. Hat jemand einen Tip für mich?

Danke!

Delphi-Quellcode:

 function Get(Index: Integer): TType;
 procedure Put(Index: Integer; const Value: TType);
...
property item[Index: Integer]: TType read Get write Put;

...
procedure TTypelist.Put(Index: Integer; const Value: TType);
var p: PType;
begin
    New(p);
    p^:=value;
    FTypelist[Index]:=p;
end;

[mkinzler]

p:=value;

[3_of_8]

p:=@value;

[Daniel G]

p:=Pointer(value);

[SirThornberry]

wie ist TType und fTypelist definiert?

[Neutral General]

p^.Assign(Value); Dann geb ich auch mal meinen Senf dazu
Natürlich geht das (wenns geht...^^) nur wenn die Klasse irgendwann mal von TPersistent geerbt hat...

[ozz]

Hallo zusammen,
vielen Dank. Ich habe mal eure Tips ausprobiert.

p:=@value; (immer noch der Fehler)

p:=Pointer(value); (ungültige Typenumwanldung, ich habe es auch mit meinem Typ Ptype und TType probiert, dto)

p:=value; (inkompatible Typen)

p^.Assign(Value); (undefinierte Bezeichner Assign)

....
Ich habe festgestellt, daß wenn ich eine Variable mit meinem TType erzeuge und dann die Zuweisung machen, das dann der Fehler nicht mehr kommt.

Funkioniert:
TTypelist.item[1]:=TType funktioniert nicht
TTypelist.item[1].tag:=string ----

Delphi-Quellcode:

type TType = record
      Tag : String;
      element1: String;
      element2: String;
end;//Type

type TTypelist= class
private
 FTypelist:TList;
...
 function Get(Index: Integer): TType;
 procedure Put(Index: Integer; Value: TType);
...
public
   property item[Index: Integer]: TType read Get write Put;
end;

[Hawkeye219]

Hallo ozz,

du erhältst die Fehlermeldung nicht in der Methode Put, sondern wenn du versuchst, einer Komponente der Record-Eigenschaft etwas zuzuweisen, richtig?

Delphi-Quellcode:

var
  List : TTypeList;
begin
  List.Item[0].Tag := 'Hallo';  // -> "Der linken Seite..."
end;

Die Erklärung für diese Meldung findest du in diesem Thread, eine mögliche Lösung in diesem Beitrag.

Gruß Hawkeye

[ozz]

Hallo Leute,
Danke an Hawkeye, das ist genau das Problem.Ich habe den Problem jetzt verstanden, auch wenn ich noch keine vernünftige Lösung habe.