ClassName ist falsch

[xZise]

Hallo ihr,

ich habe ein Problem mit Classname. Und zwar ist dieser Wert nicht zwingend richtig.

Ich habe einfach mal folgende Prozedur geschrieben:

Delphi-Quellcode:

procedure TZeile.PruefeZugriff(const AName: string);
begin
  if FDummy then
    raise EKeinZugriffDaDummy.CreateFmt('Kein Zugriff auf die Variable/Methode %s der Klasse %s, da es sich um ein Dummy handelt', [AName, Self.ClassName]);
end;

Jetzt ist das Problem, dass in "ClassName" nicht der richtige Wert steht:

Zitat:

---------------------------
Liberate
---------------------------
Kein Zugriff auf die Variable/Methode Buch der Klasse TBuchZeile, da es sich um ein Dummy handelt.
---------------------------
OK
---------------------------

Für sich gesehen kein Problem. Nur sobald man den Code durchsucht, wird man feststellen, dass es die Klasse TBuchZeile nie den obigen Fehler aufrufen wird.

Woran könnte das liegen? Könnte da an einer folgenden Definition liegen:

Delphi-Quellcode:

var
  Zeile : TZeile;
begin
  Zeile := TBuchZeile.Create;
  ...
end;

Wobei dann müsste der Aufruf selber schon Probleme bereiten :P

MfG
xZise

[mkinzler]

Ich vermute mal TBuchzeile ist TZeile abgeleitet, dann gilt TBuchZeile is-a TZeile und du hast ja eine Objekt vom Typ TBuchZeile erzeugt

[DeddyH]

Vermutlich ist TBuchzeile von TZeile abgeleitet, daher ist das ein gültiger Aufruf.

[edit] *grmpf* Markus :? [/edit]

[quendolineDD]

Zitat:

Jetzt ist das Problem, dass in "ClassName" nicht der richtige Wert steht:

Falsch, in ClassName steht der richtige Wert. Ist doch klar. Aufgrund der Polymorphie kann sich TBuchZeile in TZeile befinden, da TBuchZeile in direkter Vererbungslinie mit TZeile liegt. Da anscheinend in TBuchZeile kein PruefeZugriff deklariert ist, wird die Funktion aus der Basisklasse übernommen.

[himitsu]

Einzige Möglichkeit an den "tatsächlichen" Klassennamen ranzukommen:

Du derstellst dir in der Basisklasse eine Funktion ala RealClassName,
definierst diese NICHT als Virtual, greifst darin direkt auf den Klassentyp zu oder setzt den Result-String selber.

Und dann nicht vergessen dieses in allen abeleiteten Klassen zu überschreiben ....
Nja, oder du setzt gleich den gewünschten String direkt (per Hand) an der Stelle ein. :nerd:

[xZise]

Tach,
tut mir leid, aber ich glaube mein "Problem" ist nicht so richtig klar geworden. Und zwar wird PruefeZugriff('Buch') nie in TBuchZeile oder TZeile sondern nur in TExemplarZeile aufgerufen. Die beiden Klassen TBuchZeile und TExemplarZeile sind beide von TZeile abgeleitet also sozusagen Geschwister.

Um also obiges Beispiel fortzusetzen:

Delphi-Quellcode:

var
  Zeile : TZeile;
begin
  Zeile := TBuchZeile.Create;
  Zeile.IstDummy := true;
  TExemplarZeile(Zeile).Buch := nil; // Hier würde der Fehler erzeugt
  ...
end;

Und nun müsste doch schon alleine der Zugriff auf Buch, welche ja nicht in TBuchZeile existiert einen Fehler produzieren?

Naja ich hänge mal die Unit an.

MfG
xZise

[himitsu]

die Klasse wurde als TBuchZeile erzeugt und ClassName geht über den internen Klassenzeiger und ließt darüber den Namen aus ... also immer den Namen der Klasse, über welche die Instanz erzeugt wurde..

[mkinzler]

Ein harter Cast überprüft den typ nicht, sondern interpretiert den Speicherbereich.

Aber ich verstehe nicht, was du mit diesem Code vorhast.

[xZise]

Zitat:

Zitat von himitsu

die Klasse wurde als TBuchZeile erzeugt und ClassName geht über den internen Klassenzeiger und ließt darüber den Namen aus ... also immer den Namen der Klasse, über welche die Instanz erzeugt wurde..

Naja ich hätte TExemplarZeile aber erwartet ;)

Also wenn ich folgende Funktion habe:

Delphi-Quellcode:

type
  <Erste Klasse> = class
    function MyName : string;
  end;
  <Klasse> = class(<Erste Klasse>)
    procedure Machwas;
  end;
  <Andere Klasse> = class(<Erste Klasse>)
    procedure Machwasanderes;
  end;

procedure <Andere Klasse>.Machwasanderes;
begin
  Showmessage('Bye World');
end;

procedure <Klasse>.Machwas;
  Showmessage(MyName);
end;

function <Erste Klasse>.MyName : string;
begin
  Result := Classname;
end;

Dann erwarte ich dass in Classname <Klasse> steht und nicht <Andere Klasse>, aber er kann Machwas aufrufen, weil er gecastet wurde :(

Aber das ist nicht mein Problem, sondern eher, wo ich einen falschen harten Cast mache :)

Zitat:

Zitat von mkinzler

Ein harter Cast überprüft den typ nicht, sondern interpretiert den Speicherbereich.

Nagut okay das könnte zufällig also klappen?

Zitat:

Zitat von mkinzler

Aber ich verstehe nicht, was du mit diesem Code vorhast.

Mit welchem Code genau? UZeilen.pas? Damit beschreibe ich die Daten die nachher in mehreren VSTs stehen. Und zwar lade ich damit quasi die komplette Datenbank in den RAM was zum einem schneller ist und zum anderen auch direkte Verknüpfungen erlaubt. Also um zum Beispiel den Fachnamen eines Exemplars zu ermitteln muss man nicht folgende Kette aufrufen:

• BuchID zur ExemplarID
• FachID zur BuchID
• Fachname zur FachID

Sondern kann einfach folgendes sagen:

Delphi-Quellcode:

Fachname := MeinExemplar.Buch.Fach.Name;

Mit PruefeZugriff, will ich verhindern, dass ein Objekt welches als Dummy markiert wurde, auf Eigenschaften zugreift (bis auf die ID). Und zwar habe ich beim Laden der Listen das Problem, dass ich zum Beispiel die BuchID eines Exemplares kenne, aber nicht zwingend das Buch zu dieser ID. Zum einen kennen die Exemplare ja nicht alle Bücher (bis auf die Bücher die auch Exemplare haben) und zum anderen könnten die Bücher ja später geladen werden. Deshalb erstelle ich einen Dummy oder Platzhalter in den nur die ID des Buches steht. Dadurch kann ich später sagen, welches Buch dahinter steckt. Da aber bis auf die ID keine Werte gesetzt sind, darf man darauf nicht zugreifen. Erst mit "VerknüpfeListen" wird das Problem behoben!

MfG
xZise

[mkinzler]

Zitat:

Nagut okay das könnte zufällig also klappen?

Das wäre ein großer Zufall

Zitat:

mkinzler hat folgendes geschrieben:
Aber ich verstehe nicht, was du mit diesem Code vorhast.

Mit welchem Code genau?

Der Code in #6

[xZise]

Moin Markus,

Du meinst diesen?

Zitat:

Zitat von xZise

[...]

Delphi-Quellcode:

var
  Zeile : TZeile;
begin
  Zeile := TBuchZeile.Create;
  Zeile.IstDummy := true;
  TExemplarZeile(Zeile).Buch := nil; // Hier würde der Fehler erzeugt
  ...
end;

[...]

Naja hier sind es drei Zeilen untereinander, aber was ist, wenn dieses Zeilen-Objekt über mehrere Units verstreut verwendet wird.

MfG
xZise

[mkinzler]

Ich meine die Tatsache, das eine Objekt als TBuchZeile erzeugt wird und dann als TExemplarZeile interpretiert wird.
Da diese Klasse in diesem Kontext aber nicht mehr identisch sind, macht der Code mit großer Wahrscheinlichkeit nicht das was du bezwecken willst. ( Wobei ich immer noch nicht genau weiss, was dass ist)

[xZise]

Hä?

Wer sagt denn, dass NIE (also wirklich nie nie nie nie nie nie) sowas vorkommt? Ich erstelle die Objekte in dieser Unit (UZeilen.pas) benutze sie aber mehreren anderen Units. Und wenn vielleicht ist irgendwo der Wurm drin und ich caste etwas falsch? Und genau kann könnte rein zufällig das passieren. Wobei dieser Fehler lässt sich mit einer Wahrscheinlichkeit von 100 % (15 "Tests") reproduzieren!

MfG
xZise

[mkinzler]

Dann überprüfe die Klasse bevor du sie castest oder mache wenigstens einen Softcast!

Delphi-Quellcode:

if Zeile is TExemplarzeile then TExemplarZeile(Zeile).Buch := nil;

[xZise]

Joar also ich habe den kompletten Code nach den cast zur TExemplarZeile durchsucht. Und naja an jeder Stelle, sollte eigentlich eine TExemplarZeile vorhanden sein. Nun habe ich an einer Stelle das zum Softcast geändert (warum da kA :P ). Und naja heute kam zumindest einmal der Bug das eine Konvertierung nicht möglich ist. Genau aus diesem Grund werde ich das mal bei allen casts machen. Dann werde ich Rasen mähen und dann sehe ich mal weiter :P

MfG
xZise

[himitsu]

tja, harte Casts sollte man halt wirklich nur machen, wenn man weiß, daß da wirklich nur dieser Typ vorkommen kann :)

ansonsten sollte IS und AS verwendet werden :angel:

[xZise]

Naja ich weiß ja dass es diese Zeile sein muss... Aber anscheinend ist da irgendwo der Wurm drin :)

MfG
xZise

[xZise]

Hallo an alle,

Okay ich habe den Fehler gefunden ;) Und zwar, lag es daran, dass ich auf inzwischen veraltete Objekte zurückgegriffen hatte.

MfG
xZise