Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
16. Jun 2009
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
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
13. Jun 2009
Naja ich weiß ja dass es diese Zeile sein muss... Aber anscheinend ist da irgendwo der Wurm drin :)
MfG
xZise
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
13. Jun 2009
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...
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
13. Jun 2009
Moin Markus,
Du meinst diesen?
Naja hier sind es drei Zeilen untereinander, aber was ist, wenn dieses Zeilen-Objekt über mehrere Units verstreut verwendet wird.
MfG
xZise
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
13. Jun 2009
Naja ich hätte TExemplarZeile aber erwartet ;)
Also wenn ich folgende Funktion habe:
type
<Erste Klasse> = class
function MyName : string;
end;
<Klasse> = class(<Erste Klasse>)
procedure Machwas;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
13. Jun 2009
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:
var
Zeile : TZeile;
begin
Zeile :=...
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
12. Jun 2009
Hallo ihr,
ich habe ein Problem mit Classname. Und zwar ist dieser Wert nicht zwingend richtig.
Ich habe einfach mal folgende Prozedur geschrieben:
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', );
end;