Parameterübergabe durch Pointer einfacher gestalten

[Alexander Roth]

Hi,

also ich habe einen Typ

Delphi-Quellcode:

TTimeSpecification=record
    BG,LG:real;
    day,month:byte;
    year:integer;
    time:real;
  end;

Und habe mir eine klitze kleine Funktion geschrieben

Delphi-Quellcode:

function TimeSpecification(BG,LG,time:real; day,month:byte; year:integer):TTimeSpecification;
begin
  result.BG:=BG;
  result.LG:=LG;
  result.time:=time;
  result.day:=day;
  result.month:=month;
  result.year:=year;
end;

Ich habe meistens ein Feld einer anderen Klasse (TS in einer Klasse US) die ich nicht verändern möchte. Allerdings möchte zum Beispiel deiner Funktion diese Globale Varable bzw. Feld mit nur einer veränderten variable im record übergeben.
Also so was:
energy:=CalcDayEnergy(TimeSpecification(us.ts.BG,us.ts.LG,i,us.ts.day,us.ts.month,us.ts.year)); Und ich habe mir gedacht vielleicht gibt es da einen kürzeren Weg über die Pointer.

Also ich bräuchte so was:

Delphi-Quellcode:

function TimeSpecification(TS:TTimeSpecification; point:Pointer; value:variant):TTimeSpecification;
begin
  Real(point^):=value;  // hier müsste ich anstadt Real noch irgendwie durch eine If bedingung ersetzten, die erkennt auf was der pointer zeigt und dann entsprechend dereferenziert
  result:=ts;
end;

Aufruf:
  rs:=TimeSpecification(us.TS,@us.ts.year,2000); //das problem ist hierbei das ich einen pointer auf die globale Variable zeigt und nicht auf die result variable Kompilieren tut er das, doch natürlich funktionieren es nicht. Das habe nicht erwartet, weil ich mich nicht so gut mit Pointern auskenne, und es auch mehr ein Beispiel ist um zu erklären was ich brauche.

Wisst ihr wie das geht?


PS: wenn es nicht möglichsein sollte, dann mache ich es einfach wie oben beschrieben, auf dem langen Weg.

[SirThornberry]

ganze einfach:

Delphi-Quellcode:

with us.ts do
begin
  energy:=CalcDayEnergy(TimeSpecification(BG, LG, i, day, month, year));
end;

[edit]ups, dachte es geht um den Aufruf[/edit]

[Khabarakh]

Delphi-Quellcode:

timeSpec := us.ts;
timeSpec.Time := i;
energy := CalcDayEnergy(timeSpec);

[Alexander Roth]

jaa.. dir möglichkeiten sind mir klar. Aber leider nicht ganz so kurz. Eine Zeile wäre mir lieber.
Obwohl SirThornberrys extrem einfache Möglichkeit, wahrscheinlich auch die beste ist.
Noch ein bisschen kürzer:

Delphi-Quellcode:

with us.ts do
  energy:=CalcDayEnergy(TimeSpecification(BG, LG, i, day, month, year));

@Khabarakh: Die Möglichkeit ist mir nun wirklich zu lang und zu umständlich.


PS:Zitat von Spock (Star Trek 4)

Zitat:

Einfache Logik ist die beste Logik