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.