Records mit := übergeben; ->aktualisierung?

alias5000 · Verfasst: Mo 17.10.05 20:07

Hi
ne grundlegende Frage.
Ich habe in meinem Programm ein Array mit den Records TBeispiel. Also (da dynamisch):

Delphi-Quelltext

1:	BspRecord : array of TBeispiel;

Wenn ich nun in einer Prozedur, damit ich weniger schreiben muss folgendes deklariere:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

Procedur XY;
var Bsp: TBeispiel;
begin
...
Bsp := BspRecord[2]; //die 2 ist nicht relevant, es wird eine passende Zahl verwendet
bsp.blablabla := true;  
... //Bsp wird in seinen Eigenschaften verändert, z.B. s.o.
...
end;

So wie ich mir das denke wird Bsp zu einem eigenen Record, und somit werden die Änderungen nicht mehr in BspRecord[2] übernommen.
Um dies zu tun müsste ich am Ende der Prozedur noch schreiben:

markieren

Delphi-Quelltext

1:	BspRecord[2] := Bsp;

Sehe ich das richtig?

_________________
Programmers never die, they just GOSUB without RETURN

BenBE · Verfasst: Mo 17.10.05 20:13

Ja, das siehst Du richtig.

Es gibt aber noch eine elegantere Lösung:

markieren

Delphi-Quelltext

1:
2:

var
    Bla: ^TBeispiel;

Wodurch Bla ein Zeiger wird und dann Bla := @Beispiele[Index]; zur Zuweisung deines Records (der Referenz auf diesen Record) verwendet werden muss. Delphi löst zwar Pointer in gewissem Maße selber auf; es empfiehlt sich aber der Lesbarkeit halber mit bla^.SomeProp auf den somit referenzierten Record zu verweisen. Die Rückzuweisung (und einiger interner Overhead von Delphi) entfällt dann, weil Änderungen direkt im Array vorgenommen werden.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

alzaimar · Verfasst: Mo 17.10.05 20:14

Sehr gut erkannt. Aus diesem Grund verwendet man Zeiger:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Type
  PBeispiel = ^TBeispiel;

Procedur XY;
var 
  Bsp: PBeispiel;
begin
...
  Bsp := @BspRecord[2]; //die 2 ist nicht relevant, es wird eine passende Zahl verwendet
  bsp^.blablabla := true;  
end;

Jetzt ist BspRecord[2] verändert. Noch besser ist es i.A., kein Array of TBeispiel, sondern ein Array Of PBeispiel zu erzeugen. Dann wird (z.b. bei Sortieroperationen) nicht mehr das gesamte TBeispiel (das ja durchaus einige MB gross sein kann) bewegt, sondern immer nur die Zeiger.

Der "Nachteil" der Zeiger-Variante ist, das Du dich um den Speicher selbst kümmern musst.

_________________
Na denn, dann. Bis dann, denn.

alias5000 · Verfasst: Di 25.10.05 13:45

OK, danke erstmal.

Und wie komme ich nun vom PBeispiel wieder zurück auf TBeispiel? Sonst müsste ich alles umschreiben und das wär blöd... dazu kommt noch die Speicherverwaltung.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

//So hier der Beispiel-Code dazu
Procedur XY;
var bsp: TBsp;  //PBsp = ^TBsp;
begin
bsp := Utils.GetBsp; //hier hauts nicht hin. Ich bekomme mit GetBsp als Result ein PBsp
//Und wie krieg ich dieses PBsp wieder auf TBsp? Soll heißen, dass TBsp der Record ist, dessen Adresse mir mit PBsp übergeben wird.

Danke schonmal!
Gruß alias5000

_________________
Programmers never die, they just GOSUB without RETURN

alzaimar · Verfasst: Di 25.10.05 14:36

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

Procedur XY;
var 
  bsp: TBsp;  
  
begin
  bsp := Utils.GetBsp^; // das '^' dereferenziert den Zeiger. 
// Wenn p also eine Addresse ist (und p ist vom Typ PBsp), dann bezeichnet
// p^ das TBsp
...

_________________
Na denn, dann. Bis dann, denn.

BattleFrog · Beiträge: 53 WIN 2000 Delphi 7 Ent.

wenn man den zeigerquark nicht will, geht auch

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Procedur XY;
begin
  ...
  with BspRecord[2] do //die 2 ist nicht relevant, es wird eine passende Zahl verwendet
  begin
    blablabla := true;  
    ... //Bsp wird in seinen Eigenschaften verändert, z.B. s.o.
    ...
  end;
end;

alias5000 · Verfasst: Sa 29.10.05 16:39

alzaimar hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

Procedur XY;
var 
  bsp: TBsp;  
  
begin
  bsp := Utils.GetBsp^; // das '^' dereferenziert den Zeiger. 
// Wenn p also eine Addresse ist (und p ist vom Typ PBsp), dann bezeichnet
// p^ das TBsp
...

Wie ist das dann? Der Übergabeparamter PBsp bezeichnet ja im Ursprung ein BspRecord[x]
Wenn ich nun Bsp := GetBsp^; schreibe, verändere ich dann direkt den BspRecord[x], oder muss ich da dann doch BspRecord[x] := Bsp; schreiben?

_________________
Programmers never die, they just GOSUB without RETURN

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme