Hi,

folgenden Code habe ich in ein Package einbauen wollen:

markieren

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:

markieren

Code:

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

Fehlermeldung : "incompatible types"

Hallo Hansa,

Zitat von Hansa:

markieren

Code:

  FDBfeldLabel.Caption := 'st';

markieren

Code:

  FDBfeldLabel.Caption := st;

Wäre vielleicht besser.

Grüsse, Daniel

muss das st nicht ohne die '' ?

markieren

Delphi-Quellcode:

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

Hallo,

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

Könntest ja prüfen mit:

markieren

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)

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

Hallo,
probier mal das:

markieren

Delphi-Quellcode:

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

nix.

markieren

Code:

property DBfeldLabel : TLabel read FDBfeldLabel write SetDBLabel;

kommentiere ich das

markieren

Code:

write SetDBLabel

aus, wird compliliert. Also nicht die ganze Zeile.

markieren

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.

Naja,
weil Du im
property DBfeldLabel : TLabel read FDBfeldLabel write SetDBLabel; DBfeldLabel als TLabel deklariert hast,
daher muß das Attribut
   FDBfeldLabel : TLabel; und der Schreibzugriff

markieren

Delphi-Quellcode:

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

vom gleichem Typ sein.

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.