Konstantenobjekt kann nicht als var-Parameter weiter...

[Tormentor32]

Hi Leute!

Ich habe folgenden code und den oben beschrieben feheler, und ich möchte wissen, warum dies ein Konstantenobjekt ist

Delphi-Quellcode:

type
  TSection = class (Tobject)
  public
    FZeilen: array of string;
    FName,FType: string;
    procedure show(LBX: TListbox);
  end;


procedure SwapSections(var s1,s2: Tsection);
var tmpSection: TSection;
begin
  tmpSection := s1;
  s1 := s2;
  s2 := tmpSection;
  tmpSection.free;
end;

//beim Aufruf kommt der fehler


SwapSections(FSong.GetSectionByName(combobox.Text),FSong.FSections[i]);

Was muss ich tun, damit ich den Aufruf so machen kann?

gruß richard

[ste_ett]

Die Deklararion von FSong fehlt.

FSong.GetSectionByName(combobox.Text) GetSectionByName() gibt dir eine neue Instanz deiner Klasse/Variable (je nach Deklaration der Funktion), deshalb kann man es nicht als var-Parameter nutzen.

Lege dir eine Zwischenvariable an, in die du den Wert speicherst. Damit kannst du dann die Funktion aufrufen.

[chaosben]

Und noch etwas:
Bist du sicher das du mit der Swap-Funktion das machst, was du willst? Du tauschst nämlich nur die Objektreferenzen aus und nicht deren Inhalt der Objekte.

[Tormentor32]

Hmm... keine Ahnung, jedenfalls funktioniert es jetzt!

Danke für die Hilfe!