Package compiliert nicht

[Hansa]

Hi,

folgenden Code habe ich in ein Package einbauen wollen:

Code:

TDBLabeledEdit = class(TDBEdit)
  private
    { Private declarations }
    FDBfeldLabel : TLabel;
    procedure SetDBLabel (st : string);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
    property DBfeldLabel : TLabel read FDBfeldLabel write SetDBLabel;
  end;

Delphi stört sich an dem SetDBLabel. Aber warum ? Da steht nur folgendes drin:

Code:

procedure TDBLabeledEdit.SetDBLabel (st : string);
begin
  FDBfeldLabel.Caption := 'st';
end;

Fehlermeldung : "incompatible types"

[Daniel B]

Hallo Hansa,

Zitat:

Zitat von Hansa

Code:

  FDBfeldLabel.Caption := 'st';

Code:

  FDBfeldLabel.Caption := st;

Wäre vielleicht besser.

Grüsse, Daniel :hi:

[mirage228]

muss das st nicht ohne die '' ?

Delphi-Quellcode:

procedure TDBLabeledEdit.SetDBLabel (st : string); 
begin 
  FDBfeldLabel.Caption := st;  // ohne ''
end;

[APP]

Hallo,

bin mir nicht sicher, aber hast Du im Objektinspektor
deiner Eigenschaft "DBfeldLabel" einen Label zugeordnet?

Könntest ja prüfen mit:

Delphi-Quellcode:

procedure TDBLabeledEdit.SetDBLabel (st : string);
IF Assigned(FDBfeldLabel) THEN
BEGIN
  FDBfeldLabel.Caption := st; // 'st'
END;

p.s.: ob 'st' oder st:String sollte keinen Fehler ausgeben, oder? (obwohl es nix bringt, 'st' zuzuweisen)

[Hansa]

das Problem ist nicht das st, sondern daß nicht compiliert wird.

[APP]

Hallo,
probier mal das:

Delphi-Quellcode:

procedure TDBLabeledEdit.SetDBLabel(Const st : TLabel);
IF Assigned(FDBfeldLabel) THEN
BEGIN
  FDBfeldLabel.Caption := st.Caption;
END;

[Hansa]

nix.

Code:

property DBfeldLabel : TLabel read FDBfeldLabel write SetDBLabel;

kommentiere ich das

Code:

write SetDBLabel

aus, wird compliliert. Also nicht die ganze Zeile.

[Hansa]

Code:

procedure TDBLabeledEdit.SetDBLabel(st : TLabel);
begin
  FDBfeldLabel.Caption := st.Caption;
END;

Tatsächlich wird jetzt compiliert. Aber warum :?: Im OI ist von der Sache trotzdem nichts zu sehen.

[APP]

Naja,
weil Du im

Delphi-Quellcode:

property DBfeldLabel : TLabel read FDBfeldLabel write SetDBLabel;

DBfeldLabel als TLabel deklariert hast,
daher muß das Attribut

Delphi-Quellcode:

   FDBfeldLabel : TLabel;

und der Schreibzugriff

Delphi-Quellcode:

write SetDBLabel;
...
procedure TDBLabeledEdit.SetDBLabel(st : TLabel);

vom gleichem Typ sein.

[Hansa]

Wo Du Recht hast, hast Du Recht. 8) 8) Jetzt wird compiliert. Da ist aber noch was : DBfeldLabel ist jetz im OI. Aber an Caption etc. vom Label komm ich nicht dran.

[APP]

Hallo,
probier mal das:

Delphi-Quellcode:

UNIT CustEd;

INTERFACE

USES
   Windows,
   Messages,
   SysUtils,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls;

TYPE
   TCustEd = CLASS(TEdit)
   PRIVATE
      FDBfeldLabel: TLabel;
      FWriteLabel: STRING;
      { Private-Deklarationen }
   PROTECTED
      { Protected-Deklarationen }
   PUBLIC
      PROCEDURE SetWriteLabel(CONST Value: STRING);
      { Public-Deklarationen }
   PUBLISHED
      PROPERTY DBfeldLabel: TLabel READ FDBfeldLabel WRITE FDBfeldLabel;  // Jetzt kannst Du einen Label im OI einbinden
      PROPERTY WriteLabel: STRING READ FWriteLabel WRITE SetWriteLabel;
      { Published-Deklarationen }
   END;

PROCEDURE Register;

IMPLEMENTATION

PROCEDURE TCustEd.SetWriteLabel(CONST Value: STRING);
BEGIN
   IF Assigned(FDBfeldLabel) THEN
      BEGIN
         FDBfeldLabel.Caption := Value;
         FDBfeldLabel.Refresh;
      END;
END;

PROCEDURE Register;
BEGIN
   RegisterComponents('app', [TCustEd]);
END;

END.

Aufruf:

Delphi-Quellcode:

PROCEDURE TForm1.Button1Click(Sender: TObject);
BEGIN
   CustEd1.SetWriteLabel('fer');
END;

Ist vielleicht nicht ganz das was Du willst, aber ausbaufähig...

[edit=Daniel B]Tags korrigiert. MfG Daniel B.[/edit]

@Daniel, Danke!

Leider verschwand mein
[EDIT] Constructor Create ist unnötig! [/EDIT]

[APP]

Noch ein Fehler von mir: :oops:

Delphi-Quellcode:

PROCEDURE TForm1.Button1Click(Sender: TObject);
BEGIN
   CustEd1.WriteLabel :='df'; //    .SetWriteLabel ('fer'); ist Blödsinn!!!!
END;

[Hansa]

Nur keine Hektik. Geht sowieso noch nicht. Warum ? 8) Hmmm. Im OI ist jetzt wie gesagt das Feld drin, aber es müßte so laufen wie mit "Font" etc. Notfalls auf das + Klicken. Dann müßten die anderen Eigenschaften verfügbar sein. Das hab ich auch schon hingekriegt, muß anscheinend noch üben. Das Ganze ist etwas gewöhnungsbedürftig und entspricht nicht ganz der Pascal-Syntax. Aber Übung macht den Meister. Rentieren wird sich der Aufwand allemal.

[APP]

Naja, viel Spaß dann noch :dancer:

Trotzdem, der Vollständigkeit halber:

Delphi-Quellcode:

...
TYPE
   TCustEd = CLASS(TEdit)
   PRIVATE
      FDBfeldLabel: TLabel;
      FWriteLabel: STRING;
      PROCEDURE SetWriteLabel(CONST Value: STRING); 
      { Private-Deklarationen }
...

PROCEDURE SetWriteLabel(CONST Value: STRING);
sollte in PRIVATE stehen, dann passiert Dir mein Fauxpas von oben nicht mehr.



p.s. Zur Komponentenentwicklung habe ich schon mal was gepostet:
Creating Custom Delphi Components, Part I
Creating Custom Delphi Components, Part II
Creating Custom Delphi Components, Part III
Sind meiner Meinung nach die besten Tips im Netz!