Compiler findet Komponenten nicht

[USchoch]

Hallo
Ich schreibe eine Anwendung mit mehreren Formularen. In diese hat es unter anderem einige TEdit-Komponenten. Im Code steht irgendwo:

EdDatum.Text:='12.8.2025';

Beim compilieren wird bei dieser Zeile "Identifier not found "EdDatum" angezeigt.
Wenn ich Formx.EdDatum.Text:='12.8.2025'; schreibe, dann kommt keine Fehlermeldung.
In der gleichen Anwendung in einem anderen Formular kommt keine Fehlermeldung mit EdIrgenwas.Text:='XXX' ohne Angabe des Formularnamens.

Was mach ich falsch?

[fliegermichl]

Das kommt daher, daß der Zugriff außerhalb einer Formularmethode statt findet.

[USchoch]

Hallo
Die erwähnte Zuweisung (EdDatum.Text:='12.8.2025';) steht in einer Procedure. Diese ist in TFormX unter "public" eingetragen. Was hest in deinem Betrag "außerhalb einer Formularmethode "?

Gruss
Uli

[fliegermichl]

Schick mal Code zum Nachvollziehen. Irgendsowas muss es sein.

[USchoch]

Hallo
Hier der Code, wo die Fehlermeldungen auftauchen.:

Code: Alles auswählen

 TFormAuslesen = class(TForm)
    EdDatum: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    EdUhrzeit: TEdit;
    EdBlNr: TEdit;
    SGMesswerte: TStringGrid;
    BtnAbbruch: TButton;
    BtnEnde: TButton;
    LbTestAusl: TLabel;
    Label7: TLabel;
    procedure BtnAbbruchClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure DatenAuslesen;
    function DatenStringZerlegen( st : String): WSTestFHaupt.TMesswerte;
  end;

procedure DatenAuslesen;
var
  n: integer;
  reccnt : integer;
  ta1,ta2,fa1,fa2 : double;
  st : string;
  RecFile : Text;
  VonDatum, BisDatum : TDateTime;

begin
  reccnt:=0;
  BisDatum:=FormHaupt.DPBis.Date+FormHaupt.SEhBis.Value/24;
  VonDatum:=FormHaupt.DPVon.Date+FormHaupt.SEhVon.Value/24;
  if VonDatum>=BisDatum then BisDatum:=VonDatum+0.5; { 1/2 Tag }

  with AktMesswerte do begin
    AssignFile(RecFile,DatenPfad+DatenFilename);
    Reset(RecFile);
    while not EOF(RecFile) do begin
      ReadLn(RecFile,st);
      Aktmesswerte:=DatenStringZerlegen(st);
      EdDatum.Text:=DateToStr(DSDatTim); { Hier kommt die 1. Fehlermeldung }
      FormAuslesen.EdUhrZeit.Text:=FormatDateTime('hh:nn',DSDatTim); { Hier keine Fehlermeldung }
      inc(reccnt);
    end;
    EdBlNr.Text:=IntToStr(BlockNr); }
    with SGMesswerte do begin
      st:=EdDatum.Text+' '+EdUhrZeit.Text; { Hier wieder Fehlermeldung }
      for n:=0 to AnzWerte do begin { Werte anzeigen }
        Cells[1,n+1]:=FloatToStrF(AktMessWerte.warr[n]*Fakt[n],ffFixed,
        prec[n],nk[n])+' '+EinhAxe[n];
        st:=st+';'+Cells[1,n+1];
        Cells[2,n+1]:=IntToStr(okarr[n]);
        if n=2 then ta1:=AktMessWerte.warr[n];
        if n=3 then fa1:=AktMessWerte.warr[n];
      end;
    end;
  end; { with Aktmesswerte }
end;

Gruss
Uli

[theo]

Code: Alles auswählen

procedure DatenAuslesen;

muss heissen

Code: Alles auswählen

procedure  TFormAuslesen.DatenAuslesen;

im Implementationsteil.

[fliegermichl]

Code: Alles auswählen

procedure DatenAuslesen;

muss heissen

Code: Alles auswählen

procedure  TFormAuslesen.DatenAuslesen;

Genau das hatte ich gemeint. Was mich wundert ist, daß der Compiler nicht die fehlende Implementation der Methode TFormAuslesen.Datenauslesen moniert.

[theo]

Genau das hatte ich gemeint. Was mich wundert ist, daß der Compiler nicht die fehlende Implementation der Methode TFormAuslesen.Datenauslesen moniert.

Ja, das ist eigentlich:

Error: Forward declaration not solved "DatenAuslesen;"

[USchoch]

Hallo

Vielen Dank für deine Hilfe, hat geklappt.

Gruss
Uli