Properties Aufrufen der SetProzedur (Fehler E2250)

[SaltJohn]

Hallo, bekomme bei folgendem Code für eine Klasse die Fehlermeldung:

Zitat:

[Pascal Fehler] LAdaptor.pas(38): E2250 Es gibt keine überladene Version von 'setZuordnung', die man mit diesen Argumenten aufrufen kann

Ich möchte mit setZuordnung den beiden Variablen FZuordnung[LAN] und FZuordnung[Wlan] einen String zuordnen. Doch leider schaffe ich es nicht die Properties von Zuordnung so einzustellen, dass die Prozedur setZuordnung aufgerufen werden kann.
Wenn ich allerdings Fzuordnung einfach als Array in Public setze geht alles.

Delphi-Quellcode:

type
    Ttype = (LAN,WLAN);
   TAdaptor = class(TObject)
   (...)

private   
FZuordnung   : Array [Ttype] of String;

procedure setZuordnung(nt : Ttype);
function  getZuordnung(nt: Ttype): string;

public
property Zuordnung[nt : Ttype]: String read getZuordnung write setZuordnung;

[Bernhard Geyer]

Delphi-Quellcode:

procedure setZuordnung(nt : Ttype; Value: String);

[SaltJohn]

Danke Bernhard Geyer!

er kompiliert jetzt zwar bis zum Schluss aber sobald ich in der Anwendung den String zuweise möchte kommt es zu einem Stacküberlauf. Denke ich habe da noch irgendwo einen Patzer drinnen

Zugewiesen wird in Unit1 wird mit:

Delphi-Quellcode:

procedure Tform1.SetZuordnung(Sender: TObject);
begin
    Instanz1.Zuordnung[LAN] :=  ComboBox1.text;
    Instanz1.Zuordnung[WLAN] := ComboBox2.text;
end;

Die Aufgerufene Prozedur in der Klasse lautet dann:

Delphi-Quellcode:

procedure TAdaptor.setZuordnung(nt : Ttype; Value: String);
begin
    FZuordnung[rntLAN]   := Zuordnung[LAN];
    FZuordnung[rntWLAN]  := Zuordnung[WLAN];
end;

Edit: Habs selbst rausbekommen :)

Delphi-Quellcode:

procedure TAdaptor.setZuordnung(nt : Ttype; Value: String); 
begin 
    FZuordnung[rntLAN]   := Value;
    FZuordnung[rntWLAN]  := Value;
end;

Jetzt geht es. Nochmals Danke!

[NormanNG]

Hi,

versuch´s mal damit

Delphi-Quellcode:

procedure TAdaptor.setZuordnung(nt : Ttype; Value: String);
begin
    FZuordnung[nt]   := Value;
end;

[SaltJohn]

Hi NormanNG,

genau das wars! Habs aber selbst noch gemerkt ;)

[NormanNG]

Hi,

aber so, wie du es ober korrigiert hast, wirkt sich der Parameter nt nicht aus :gruebel:

Ich glaube nicht, das das so gewollt ist...

[SaltJohn]

Ja klar das war auch noch blödsinn. Hab heute einiges dazugelernt ;)