Gleiche Prozedur mit verschiedenen Parametertypen aufrufen

[jaenicke]

Also ich kann mir zwar noch nicht 100%ig vorstellen was du da machst, aber es hört sich so an als ob du mit Klassen und Vererbung weiterkommen solltest.

Dann kannst du konkrete Klasse einfach als Typ der Basisklasse übergeben. Und du kannst in den abgeleiteten Klassen bestimmte abweichende Funktionalitäten implementieren (überschriebene Methoden, ...), die dann über die Basisklasse aufgerufen werden kann.

Aber wie Uwe Raabe schon sagte:
Ich glaube auch das Problem ist eher das Gesamtkonzept...

Zitat von FriendOfDelphi:

Was ist jetzt daran Blödsinn?

Damit meinte ich verschiedene Typen zu übergeben und dann den Typ doch wieder zu unterscheiden. Wenn, dann macht eine gemeinsame Prozedur nur Sinn, wenn der größte Teil der Prozedur auch unabhängig vom konkreten Typ funktioniert.

[FriendOfDelphi]

Zitat von jaenicke:

Also ich kann mir zwar noch nicht 100%ig vorstellen was du da machst, aber es hört sich so an als ob du mit Klassen und Vererbung weiterkommen solltest.

Dann kannst du konkrete Klasse einfach als Typ der Basisklasse übergeben. Und du kannst in den abgeleiteten Klassen bestimmte abweichende Funktionalitäten implementieren (überschriebene Methoden, ...), die dann über die Basisklasse aufgerufen werden kann.

Aber wie Uwe Raabe schon sagte:
Ich glaube auch das Problem ist eher das Gesamtkonzept...

Zitat von FriendOfDelphi:

Was ist jetzt daran Blödsinn?

Damit meinte ich verschiedene Typen zu übergeben und dann den Typ doch wieder zu unterscheiden. Wenn, dann macht eine gemeinsame Prozedur nur Sinn, wenn der größte Teil der Prozedur auch unabhängig vom konkreten Typ funktioniert.

Das Problem ist, dass ich mein Programm mit dem eines Kollegen zusammenführen muss. Und der arbeitet halt mit diesen Records, die ich nun benutzen muss.
Um nochmal auf das ursprüngliche Problem zurück zu kommen:
Kann ich denn über ein typcasten auf die einzelnen Teile des Records zugreifen?
Wenn ja, wie ist die richtige Syntax.

[hoika]

Hallo,

Delphi-Quellcode:

procedure MeineProzedur(Meinparameter: array of Double); overload;
begin
  //tue was
end;

preocedure MeineProzedur(Meinparameter: array of Integer); overload;
begin
  //tue das gleiche
end;

Tue das gleiche kann nicht sein,
es sind 2 verschiedene Arrays.


Heiko

[jaenicke]

Zitat von FriendOfDelphi:

Kann ich denn über ein typcasten auf die einzelnen Teile des Records zugreifen?
Wenn ja, wie ist die richtige Syntax.

Ich habe ein wenig gezögert, weil ich nicht sicher bin, ob es sinnvoll ist einen derart grausamen Hack für diesen Fall zu posten... aber ist ja nicht mein Code, in den der Schrott eingebaut wird...

Delphi-Quellcode:

type
  TTestA = record
    a, b: LongInt;
  end;

  TTestB = record
    a: string;
    b: LongInt;
  end;

procedure Test(Value: Pointer);
begin
  ShowMessage(IntToStr(PLongInt(Integer(Value) + 4)^));
end;

var
  a: TTestA;
  b: TTestB;
begin
  a.b := 777;
  b.b := 666;
  Test(@a);
  Test(@b);
end;

[Luckie]

Wenn er eine Klasse macht, kann er Methoden überladen.