Wie kann ich einen Aufzählungstyp einer Komponente zuweisen?

[Aurus]

Hallo Leute

Ich habe ein Komponente für die RS232-Schnittstelle.

Nurn muss ich der Komponente während der Laufzeit die Baudrate zuweisen.
Leider geht es nicht so wie ich es gemacht habe. Der Type "TBaudrate" ist genau so im Source der Komponete definiert.

Was mache ich falsch?


Mit freudlichen Grüssen

Aurus

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
  // Übertragungsparameter
  TBaudrate   = (br_000050,br_000110,br_000150,br_000300,br_000600,br_001200,
                 br_002400,br_004800,br_009600,br_014400,br_019200,br_038400,
                 br_056000,br_057600,br_115200,br_128000,br_230400,br_256000,
                 br_460800,br_921600);
var
  aaa :TBaudrate;
begin

  aaa :=br_000050;
  K6NSerial1.Baudrate := aaa;

end;

end.

[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]

[Matze]

Hallo Aurus,

was heißt denn "geht nicht"?

Wenn "K6NSerial1.Baudrate" vom Typ TBaudrate ist, müsste es gehen. Allerdings hast du in deinem Beispiel TBaudrate nur lokal definiert. Du musst es dort definieren, wo die Sichtbarkeit gewährleistet ist, beispielsweise in der zu "K6NBaudrate" zugehörigen Klasse.

Grüße, Matze

[mjustin]

Zitat:

Zitat von Aurus

Nurn muss ich der Komponente während der Laufzeit die Baudrate zuweisen.
Leider geht es nicht so wie ich es gemacht habe. Der Type "TBaudrate" ist genau so im Source der Komponete definiert.

Man muss den Typ nicht neu definieren, sondern braucht einfach nur die Unit einbinden, in der der Typ TBaudrate definiert ist.

Viele Grüße,
Michael

[himitsu]

Nein, er muß die Definition nutzen, mit welcher auch K6NSerial1.Baudrate deklariert wurde.

Ansonsten sind es unterschiedliche Typen und demnach nicht zuweisungskompatibel.

Zitat:

Der Type "TBaudrate" ist genau so im Source der Komponete definiert.

"genauso" ist nicht "identisch" und Delphi besteht auf identische Deklarationen.

PS: Nur weil mein Clon genauso aussieht wie ich, sind wir nicht die Selben.

[Aurus]

Hallo Leute

Das verstehe ich jetzt alles nicht ganz.

Ich bekomme die Fehlermeldung.

[Fehler] Unit1.pas(41): Inkompatible Typen: 'K6NSerial.TBaudrate' und 'Unit1.TBaudrate'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[himitsu]

Zitat:

Zitat von Aurus

[Fehler] Unit1.pas(41): Inkompatible Typen: 'K6NSerial.TBaudrate' und 'Unit1.TBaudrate'

Zitat:

Zitat von himitsu

Nein, er muß die Definition nutzen, mit welcher auch K6NSerial1.Baudrate deklariert wurde.

Ansonsten sind es unterschiedliche Typen und demnach nicht zuweisungskompatibel.

Zitat:

Der Type "TBaudrate" ist genau so im Source der Komponete definiert.

"genauso" ist nicht "identisch" und Delphi besteht auf identische Deklarationen.

PS: Nur weil mein Clon genauso aussieht wie ich, sind wir nicht die Selben.

[Matze]

Du nutzt auch 2 verschiedenen TBaudrate. Wie gesagt darfst du das nur einmal definieren.

Deine Klasse könnte so aussehen:

Delphi-Quellcode:

unit K6NSerial;

interface

type TK6NSerial = class

  public type TBaudrate = (
    br_000050, br_000110, br_000150, br_000300, br_000600, br_001200,
    br_002400, br_004800, br_009600, br_014400, br_019200, br_038400,
    br_056000, br_057600, br_115200, br_128000, br_230400, br_256000,
    br_460800, br_921600
  );

  public
    Baudrate: TBaudrate;
end;

implementation

// ...

end.

Nun hast du TBaudrate in der Klasse definiert. Ich finde das sinnvoll, da es funktional zur Klasse gehört.
Von außen musst du nun exakt diese Definition verwenden.

Das kann so aussehen:

Delphi-Quellcode:

uses K6NSerial;

procedure TForm1.Button1Click(Sender: TObject);
var
  M6NSerial1: TK6NSerial;
  MyBR: TK6NSerial.TBaudrate;
begin
  M6NSerial1 := TK6NSerial.Create;
  // ...
  MyBR := br_000110;
  M6NSerial1.Baudrate := MyBR;
  // ...
end;

Dann hast du TBaudrate ein einziges mal definiert und verwendet exakt diese Definition überall.

Grüße, Matze

[Aurus]

Das übersteigt meine Programmierkentnisse.

Sehe ich das Richti,g dass ich die Komponente ändern muss?

Oder muss ich einen Unit "unit K6NSerial" anlegen die gleich heisst wie die Komponente (TK6NSerial)?

[olee]

Also,

Erstmal schmeißt du diese Kopie von TBaudrate aus deinem Code raus, da du genau diese KOPIE nicht verwenden darfst.

Denn wie schon gesagt wurde ist das zwar eine Kopie und für jeden normalen menschen ein und das selbe wie das Original,
aber für Delphi sind diese kopie und das Original 2 verschiedene Sachen, da es die beiden nicht wirklich vergleicht, ob die nun denn gleich sind.

Also wie gesagt schmeiß diese Kopie raus und verwende das Original - also das, wo du es rauskopiert hast.

MFG

[Aurus]

Das ist die Lösung

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyBr :TBaudrate;
begin

  MyBr :=br_000050;
  K6NSerial1.Baudrate := MyBr;

end;

So einfach war die Sache. Komisch dass mir das nicht vorher eingefallen ist.

Danke für eure Hilfe

Gruss

Aurus

[edit=Matze]Und wieder die [delphi]-Tags vergessen ... MfG, Matze[/edit]

[s.h.a.r.k]

Wichtig hierbei ist nicht wirklich die Lösung, sondern es geht wohl eher darum, ob du verstanden hast, warum du nicht das machen kannst, wie du es zu Beginn hattest?

Zudem würde ich den Code wie folgt vereinfachen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

  // Baudrate setzen
  K6NSerial1.Baudrate := br_000050;

end;

[Aurus]

Hallo Leute

Die Sache ist viel verzwickter.
Das letzte Beispiel von mir und s.h.a.r.k funktionieren wenn ich ein ganz einfaches simples Programm.

Aber in meinen beiden umfangreicheren Programmen wo ich diese Funktion einbauen will, kommen genau die Fehlermeldungen die ich oben beschrieben haben. Vermutlich gibt es in den Verwendeten Bibliotheken schon irgendwo ein Typ TBaudraten? Ich verwende aber keine andere Komponente dieser Art. In einem anderen Programm verwendet ich eine andere Komponente auch für die RS232 und das Problem ist das selbe.

Ich bin im Moment am verzweifeln.Meine Programme funktionieren ausser diese Baudratenzuweiseung. Bin im Moment am Ende des Lateins.

[himitsu]

Wenn du mit der Maus über die Variablen/Konstanten gehst, dann wird angezeigt, wo diese herkommen.
(Ab einer Professional kann man auch via Strg+Draufklicken direkt dort hingelangen).

Wenn es also ein Problem gibt, dann schau wo dieses Problem (die doppelte Deklaration) herkommt.

PS: man kann auch den passenden Namespace angeben, wenn man eine bestimmte Deklaration nutzen möchte.