Hallo,


bin Neuling in BDS2006 und habe folgende merkwürdige Fehleransammlung mit der ich nicht klar komme:

Ich hatte vor, von TEdit und TStringGrid abgeleitete Komponenten zu erzeugen, die ich mit allen Typen wie Integer, Float, gerundete Float, Date.. füttern kann ohne jedesmal Typenumwandlungen machen zu müssen (Verkürzung späterer ProgrammCodes)

Dazu siehe das angehangene Bild mit der IDE und meinem fehlermarkierten Code

Dazu folgende Erklärung:
Ich erzeuge eine neue Komponente TEB_StringGrid, abgeleitet von TStringGrid.
Von dieser eigenen bislang noch leeren Komponente erzeuge ich ein Diagramm.
Auf diesem Diagramm sind zwei Elemente zu sehen,
ein Kasten namens "Unit Class - global EB_StringGrid"
und eins namens "StdCtrls, TStringGrid - TEB_StringGrid".

Im Diagramm habe ich einige Eigenschaften hinzugefügt, die Synchronisation mit dem Code erfolgte problemlos.

Nun ging es im Code darom, die Zellselektivität der procedures und functions zu implementieren.
Als ich danach in das Diagramm zurückging
fehlte der Kasten "StdCtrls, TStringGrid - TEB_StringGrid".

Im Modellansicht-Inspektor (re oben in der IDE, siehe angehangenes Bild) fehlte in EB_StringGrid der Untereintrag TEB_StringGrid, dieser ist verschwunden und ließ sich mit Modellsynchronisation nicht wieder herstellen.

Mir ist es nicht gelungen, dieses wieder herzustellen.

Was geht hier eigentlich vor,
wie kann ich soetwas vermeiden
und wie kann ich das Verschwinden von TEB_StringGrid im Modell wieder korrigieren?


Bei meiner zweiten Komponente TEB_Edit ist alles in Ordnung,
Im Modell-Inspektor re oben ist TEB_Edit vorhanden und das Diagramm ist vollständig.



Und hier noch die 2. Frage:
Warum sind in:
property Wort(i,j:integer) : String read GetWort write SetWort; rote Unterstreichnungen?

Vielen Dank
E. B.

Hallo, ich hänge den Code zu meiner obigen Frage mal an:

zusammenfalten · markieren

Delphi-Quellcode:

unit EB_StringGrid;

interface

uses
  SysUtils, Classes, Controls, Grids;

type
  TEB_StringGrid = class(TStringGrid)
  strict private
      FWert: string;
      FWort: string;
      FGanz: integer;
      FZahl: single;

      function GetWort(i,j:integer) : string;
      procedure SetWort(i,j:integer;val : string);

      function GetZahl(i,j:integer) : single;
      procedure SetZahl(i,j:integer;val : single);

      function GetGanz(i,j:integer) : Integer;
      procedure SetGanz(i,j:integer;val : Integer);

  private

    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
      property Wort(i,j:integer) : string read GetWort write SetWort;
      property Ganz(i,j:integer) : Integer read GetGanz write SetGanz;
      property Zahl(i,j:integer) : single read GetZahl write SetZahl;

  { Public-Deklarationen }
  published

    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('EB_Tools', [TEB_StringGrid]);
end;

{ TEB_StringGrid }

function TEB_StringGrid.GetWort(i,j:integer): string;
begin
end;
procedure TEB_StringGrid.SetWort(i,j:integer;val : string);
begin
end;

function TEB_StringGrid.GetGanz(i,j:integer): Integer;
begin
end;
procedure TEB_StringGrid.SetGanz(i,j:integer;val : Integer);
begin
end;

function TEB_StringGrid.GetZahl(i,j:integer): single;
begin
end;
procedure TEB_StringGrid.SetZahl(i,j:integer;val : single);
begin
end;
procedure TEB_StringGrid.SetZahl(i,j:integer;val:single;rn:integer);overload;
begin
end;


end.

Viele Grüße

E. B.

Array-Properties werden mit eckigen Klammern defniert, richtig müsste es also z.B. so lauten:
Property Wort[i,j] : String Read ... Weil im fehlerhaften Kontext deiner Property-Definition die Get- und Set-Methoden falsch sind, meckert Delphi hier. Sobald Du die runden Klammern in Eckige verwandelst, sollten die roten Striche verschwinden.

Weiterhin kannst Du manchmal ruhig kompilieren, auch wenn die IDE angeblich unbekannte Bezeichner kennzeichnet.

Mensch prima,

das wars, die ganze Fehlerkaskade löst sich auf, wieder was dazu gelernt

Danke und schönen Abend
E. B.

Kein Problem, das ist der Sinn dieses Forums, .