bitte um hilfe,
ich habe ein kleines programm geschrieben indem man auto fahren kann. Es gibt verschiedene Arten von Fahrzeugen die alle eine andere Klasse haben(Fahrrad, Motorrad, Auto), wie kann ich den code so schreiben das ich nicht für jede Instanz dieser klassen extra proceduren zum bewegen und so machen muss? ich meine immer den zusatz meinAuto. usw.

Du müsstest Dir eine Grundklasse bilden, in der alle Eigenschaften, Methoden usw. vorhanden sind, die für alle gelten und dann von diesen Ableiten.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TFahrzeug = class(TObject) // oder auch etwas anderes
  end;

  TAuto = class(TFahrzeug)
  end;

  TPorsche = class(TAuto)
  end;

  TFerrai = class(TAuto)
  end;

  TFahrrad = class(TFahrzeug)
  end;

  TRennrad = class(TFahrrad)
  end;

  TMountainbike = class(TFahrrad)
  end;

Da ich Deine bisherigen Klassen nicht sehen kann und die Paramter nicht kenne, kann ich ansonsten erst nicht mehr dazu sagen. Wie ich hier gezeigt habe, solltest Du aber mal anfangen Deine Klassen aufzubauen.
Vielleicht kannst Du ja auch mal etwas mehr Code posten.

Grüße
Sven

danke für die antwort sven
hier im anhang mal das url diagramm wegen den verschiedenen klassen.
aber mir geht es im besonderen darum ob ich einen befehl wie zum beispiel

markieren

Delphi-Quellcode:

BildFahrzeug.Top:=meinFahrrad.GibFPositiony;
BildFahrzeug.Left:=meinFahrrad.GibFPositionx;

so mit einer variablen oder so schreiben kann das für alle unterklassen funktioniert, also auch für meinAuto und meinMotorrad

Hallo Ideq,

ich weiß nicht, ob ich dich richtig verstehe,
aber meinst du sowas?



BildFahrzeug.Top:= TFahrzeug(Sender).GibFPositionY; Wobei im Parameter per "Sender" jeder Nachfahre von TFahrzeug
übergeben werden könnte.

// Edit:
Vielleicht wäre es noch sinnvoller, gerade im Beispiel
der Positionierung eines Fahrzeugs, dass du jedes Fahrzeug
auch selbst für sein Zeichnen verantwortlich machst.

Das Fahrzeug kennt also seine Geschwindigkeit und "weiß",
an welcher Position es sich bei der nächsten Aktualisierung
hinzuzeichnen hat.

Gruß
Jürgen

Ja, wenn ich das richtig gesehen habe, dann wird ja TAuto, TMottorad und TFahrrad von TFahrzeug abgeleitet. Wenn Du jetzt z.B. GibFPositiony schon in TFahrzeug implementierst, dann kannst Du auch von TAuto, TMotorrad und TFahrzeug darauf zugreifen, da es diesen ja bekannt ist. Wie gesagt, Du musst alle die Methoden, Funktionen oder Prozeduren, die für alle gelten sollen in der Basisklasse definieren.
Ich habe gerade gesehen, dass GibFPositiony ja schon in TFahrzeuge definiert ist, dann kannst Du ja von den anderen schon darauf zugreifen.
Ich glaube, ich habe Dich nicht richtig verstanden????

Erkläre noch mal, was Du genau machen willst, oder was Du wissen willst.

Grüße Sven

ich will diesen befehl :
BildFahrzeug.Top:=meinFahrrad.GibFPositiony; so schreiben das ich nicht je nachdem ob ich ein Auto, Motorrad oder Fahrrad erstelle eine extra procedure schreiben muss
also:

markieren

Delphi-Quellcode:

BildFahrzeug.Top:=meinFahrrad.GibFPositiony;
BildFahrzeug.Top:=meinMotorrad.GibFPositiony;
BildFahrzeug.Top:=meinAuto.GibFPositiony;

ist die frage jetzt klarer?

das mit dem sender verstehe ich nicht. hilft mir das?
wie soll ich das fahrzeug selber für sein zeichnen verantwortlich machen ich kann doch aus der unit in der Tfahrzeug definiert ist nicht auf das bild zugreifen welches bewegt werden soll oder?

gruß ideq

Dann implementiere die Methosde in TFahrzeug

die methode GibFPositiony steht in der unit der klasse Tfahrzeug

In der Unit oder der Klasse?
Ich verstehe dein Problem scheinbar nicht

also ich habe eine klasse TFahrzeug von TAuto, TMotorrad und TFahrrad sind unterklassen an die alles vererbt wird.
wenn ich jetzt Methoden der Klasse TFahrzeug aufrufen will sieht der Code ja so aus:
BildFahrzeug.Top:=meinFahrrad.GibFPositiony; GibFPositiony ist eine methode der Klasse TFahrzeug diese will ich ja bei Instanzen von allen unterklasse benutzen, wie muss ich dann den befehl schreiben, dass ich nicht für jede unterklasse einen schreiben muss?