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

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

zusammenfalten · markieren

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:

markieren

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?
with Tpaar(Paare.Objects[pi]) do geht genausowenig, das hatte ich ursprünglich geschrieben.

Vielleicht so...

markieren

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

markieren

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.

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

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

Das sollte eigentlich so funktionieren
with ( Paare.Objects[pi] as Tpaar ) do

Wie im Post 5 geschrieben: funktioniert auch mit Klammern nicht, gleiche Fehlermeldung.
Und with Tpaar(Paare.Objects[pi]) geht auch nicht, da kann es nicht an fehlenden Klammern liegen.

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

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

Paar:=TPaar(Paare.Objects[pi]); Fehlermeldung: Operator oder Semikolon fehlt
Paar:=Paare.Objects[pi] as TPaar; Fehlermeldung: Operator ist auf diesen Operandentyp nicht anwendbar

Bin für jeden Hinweis dankbar.

kann es sein dass TTrade auch eine Property Paare hat?