Objekte zu einer Stringliste bearbeiten

[idefix2]

Hallo, ich steh wieder einmal völlig auf dem Schlauch.

Ich habe eine Stringliste Paare und zu dieser Stringliste Objekte vom Typ Tpaar

Delphi-Quellcode:

type 
TPaar=class(TObject)
  pEndzeit: Tdate;
  pLevel: byte   
  end;

var
Paare: TStringlist;
Paar: Tpaar;
Symbol: string;
pi: integer;
...
begin 
...
Paar:=Tpaar.Create; pi:=Paare.AddObject(symbol,Paar)
...

Bis daher ist alles klar. Jetzt würde ich gerne auf die Daten eines solchen Paares zugreifen:

Delphi-Quellcode:

with Paare.Objects[pi] as Tpaar do
....

Da meckert der Compiler: Operator ist auf diesen Operandentyp nicht anwendbar. Wie kann ich sonst auf meine Objekte vom typ TPaar zugreifen?

Delphi-Quellcode:

with Tpaar(Paare.Objects[pi]) do

geht genausowenig, das hatte ich ursprünglich geschrieben.

[omata]

Vielleicht so...

Delphi-Quellcode:

var ItemObject:TObject;
    Paar:TPaar;
begin
  ItemObject:=Paare.Objects[pi];
  if ItemObject is TPaar then begin
    Paar:=ItemObject;
    Paar.pEndzeit:=Now; 
  end;
end;

Tipp: WITH braucht man nie

[idefix2]

Delphi-Quellcode:

Paar:=Tpaar(Paare.Objects[pi]);
with Paar do

Danke, so geht es tatsächlich (und da kann man sich das with dann natürlich auch sparen). Ich bin gar nicht auf den Gedanken gekommen, dass das Problem etwas mit der with Anweisung zu tun haben könnte. Warum der Compiler im with kein as und keinen Typecast zulässt, verstehe ich eigentich nicht (und möchte hier auch keine Grundsatzdiskussion darüber führen, ob man with verwenden darf oder soll oder warum nicht - ich finde, es ist in manchen Fällen ein sehr praktisches Sprachelement, speziell wenn der Record oder hier die Klasseninstanz Element eines Arrays ist oder sonstwie kompliziert adressiert wird, aber natürlich nur, wenn es funktioniert).

Ich habe jetzt noch einmal die Delphi Hilfe überprüft, da ist bei der Dokumentation der with Anweisung keine derartige Einschränkung zu finden.

[Sir Rufo]

da gibt es kein Problem, setze einfach mal Klammern um den as Ausdruck ;)

[idefix2]

Hab ich gleich probiert, funktioniert aber genausowenig mit Klammern um den as-Ausdruck.

[Sir Rufo]

Das sollte eigentlich so funktionieren

Delphi-Quellcode:

with ( Paare.Objects[pi] as Tpaar ) do

[idefix2]

Wie im Post 5 geschrieben: funktioniert auch mit Klammern nicht, gleiche Fehlermeldung.
Und

Delphi-Quellcode:

with Tpaar(Paare.Objects[pi])

geht auch nicht, da kann es nicht an fehlenden Klammern liegen.

[Bummi]

mmhhh .... sehe ich zum ersten mal dass es da Probleme geben soll, hier D2010 gibt es kein Problem damit.

[idefix2]

Das Ding treibt mich zum Wahnsinn. Mit dem with hat das Problem doch nichts zu tun.

Delphi-Quellcode:

Paar:=TPaar(Paare.Objects[pi]);

Fehlermeldung: Operator oder Semikolon fehlt

Delphi-Quellcode:

Paar:=Paare.Objects[pi] as TPaar;

Fehlermeldung: Operator ist auf diesen Operandentyp nicht anwendbar

Bin für jeden Hinweis dankbar.

[Sir Rufo]

kann es sein dass TTrade auch eine Property Paare hat?