AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
• Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

undefinierter Bezeichner (self)

Ein Thema von kdrexler · begonnen am 21. Nov 2023 · letzter Beitrag vom 22. Nov 2023
Antwort Antwort
Seite 1 von 2  1 2      
kdrexler

Registriert seit: 12. Mai 2012
3 Beiträge
 
Delphi 6 Professional
 
#1

undefinierter Bezeichner (self)

  Alt 21. Nov 2023, 07:12
Delphi-Version: 6
Hallo zusammen,

beim compilieren kommt immer die Fehlermeldimg "undefinierter" Bezeihncer self.

fstammdaten.BSpeichernClick(self);

Das Formular TFStammdaten ist aber mit eingebunden.

Danke für die Hilfe.
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.060 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: undefinierter Bezeichner (self)

  Alt 21. Nov 2023, 07:15
Zeig mal die Zeilen darüber einschließlich Funktions- bzw. Prozedurkopf.
  Mit Zitat antworten Zitat
kdrexler

Registriert seit: 12. Mai 2012
3 Beiträge
 
Delphi 6 Professional
 
#3

AW: undefinierter Bezeichner (self)

  Alt 21. Nov 2023, 07:22
Hier die komplette unit.
Ustammdatenerfassung - aus deiser Unit kommt der Aufruf Fstammdatenspeichern.clik(self)

zusammenfalten · markieren
Delphi-Quellcode:
unit udatenabgleich;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  comobj, Excel2000, OleServer, ExtCtrls, ComCtrls, FileCtrl,

  inifiles,
  Mask, Menus, ExtDlgs,



  Dialogs, StdCtrls, Buttons,
  ustammdatenerfassung,
  uinit,utypen,uconst;

type
  Tfdatenabgleich = class(TForm)
    OpenDialog1: TOpenDialog;
    lefamilienname: TLabeledEdit;
    levorname: TLabeledEdit;
    LEPersonennummer: TLabeledEdit;
    BitBtn1: TBitBtn;
    Excel: TExcelApplication;
    ExcelWorkbook: TExcelWorkbook;
    Sheet: TExcelWorksheet;
    pbVerein: TProgressBar;
    pbstammdatei: TProgressBar;
    Label1: TLabel;
    Label2: TLabel;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

const udatenabgleich_const = '8.004/231120';

var
  fdatenabgleich: Tfdatenabgleich;
  Excel,sheet : variant;
  excelzeile,excelspalte, Mitgliedsnummer : integer;
  excel_dummy : zeile;
  leer_person : tname;
  leer_adresse : tadresse;

procedure Datenabgleich;


implementation

{$R *.dfm}


procedure Datenabgleich;
Begin
  fdatenabgleich.Visible := true;
  fdatenabgleich.Text := 'Datenabgleich - ' + udatenabgleich_const;
  fdatenabgleich.Update;
  fdatenabgleich.OpenDialog1.Execute;
  assignfile(stammdatei,stammverzeichnisname + '\' + datenverzeichnisname + '\' + stammdateiname);
  reset(stammdatei);

  excel := createoleobject('Excel.Application');
  excel.Workbooks.Open(trim(fdatenabgleich.OpenDialog1.FileName));
  sheet := excel.workbooks[1].worksheets[1];
  excelzeile := 1;
  fdatenabgleich.pbVerein.Max := 0;

  repeat
    dummy_zeile := excel.cells[excelzeile,1].value;
    inc(excelzeile);
    fdatenabgleich.pbverein.min := 0;
    fdatenabgleich.pbVerein.Max := fdatenabgleich.pbVerein.Max +1;
  until length(trim(dummy_zeile)) = 0;

  fdatenabgleich.pbstammdatei.Max := filesize(stammdatei);
  fdatenabgleich.pbstammdatei.Min := 0;
  fdatenabgleich.pbstammdatei.Step := 1;

  fdatenabgleich.pbverein.min := 0;
  fdatenabgleich.pbVerein.Step := 1;

  assign(adressdatei,stammverzeichnisname + '\' + datenverzeichnisname + '\' + adressdateiname);
  reset(Adressdatei);

  excelzeile := 1;
  excelspalte := 1;
  repeat
    inc(excelzeile);
    fdatenabgleich.pbVerein.StepIt;
    excel_dummy := excel.cells[excelzeile,1].value;
    reset(stammdatei);
    gefunden := false;
    fdatenabgleich.pbstammdatei.Min := 0;
    repeat
      fdatenabgleich.pbstammdatei.StepIt;
      namens_init(person);
      read(stammdatei,person);
      fdatenabgleich.Update;
      val(person.flag_string[personennummer_HV_const],mitgliedsnummer,valok);
      if length(excel_dummy) > 0 then
         if (trim(person.flag_String[personennummer_HV_const]) = trim(excel_dummy)) then
           gefunden := true;
    until (gefunden) or (eof(stammdatei));
    if gefunden then
      Begin
        with person do
          Begin
            n_name := trim(excel.cells[excelzeile,2].value);
            v_name := trim(excel.cells[excelzeile,3].value);
            fdatenabgleich.lefamilienname.Text := n_name;
            fdatenabgleich.levorname.Text := v_name;
            fdatenabgleich.LEPersonennummer.Text := excel_dummy;
            fdatenabgleich.Update;
            dummy_zeile := excel.cells[excelzeile,13].value;
            person.geburtsdatum := strtodate(trim(dummy_zeile));
            // Eintritt
            person.flag_string[6] := excel.cells[excelzeile,14].value;
            // Kündigung am
            person.flag_string[4] := excel.cells[excelzeile,15].value;
            // Kündigung zum
            person.flag_string[5] := excel.cells[excelzeile,16].value;
            seek(stammdatei,person.Nummer - 1);
            write(stammdatei,person);
            reset(adressdatei);
            adressen_init(adresse);
            seek(adressdatei,person.Nummer - 1);
            read(adressdatei,adresse);
            dummy_zeile := excel.cells[excelzeile,4].value;
            adresse.adresse[plz_const] := trim(dummy_zeile);
            dummy_zeile := excel.cells[excelzeile,5].value;
            adresse.adresse[ort_const] := trim(dummy_zeile);
            dummy_zeile := excel.cells[excelzeile,6].value;
            adresse.adresse[strasse_const] := trim(dummy_zeile);
            dummy_zeile := excel.cells[excelzeile,11].value;
            if length(dummy_zeile) <> 0 then
              adresse.adresse[email_const] := trim(dummy_zeile);

            dummy_zeile := excel.cells[excelzeile,7].value;
            if length(dummy_zeile) <> 0 then
              adresse.adresse[telprivat_const] := trim(dummy_zeile);
            dummy_zeile := excel.cells[excelzeile,8].value;
            if length(dummy_zeile) <> 0 then
              adresse.adresse[telgesch_const] := trim(dummy_zeile);
            dummy_zeile := excel.cells[excelzeile,9].value;
            if length(dummy_zeile) <> 0 then
              adresse.adresse[mobil_const] := trim(dummy_zeile);

            if length(trim(person.Verein)) <= 3 then
              Begin
                person.Verein := 'VFL Nürnberg';
                person.flag_boolean[sg_const] := false;
                person.flag_boolean[stammdatensatzaenderung_const] := true;
                person.mannschaft := 'Liste Hauptverein';
              end;

            leer_person := person;
            leer_adresse := adresse;
            stammdatenerfassung(true);
            person := leer_person;
            adresse := leer_adresse;
            abgleich(person,adresse);
          end;
          seek(adressdatei,adresse.Schwimmer_nummer - 1);
          write(adressdatei,adresse);
          if fstammdaten.Visible then
            fstammdaten.Visible := false;


      end
    else // Datensatz wird in SwimBase neu angelegt
      Begin
        namens_init(person);
        adressen_init(adresse);
        with person do
          Begin
            n_name := trim(excel.cells[excelzeile,2].value);
            v_name := trim(excel.cells[excelzeile,3].value);
            fdatenabgleich.lefamilienname.Text := n_name;
            fdatenabgleich.levorname.Text := v_name;
            fdatenabgleich.LEPersonennummer.Text := excel_dummy;
            fdatenabgleich.Update;
            dummy_zeile := excel.cells[excelzeile,13].value;
            person.geburtsdatum := strtodate(trim(dummy_zeile));
            // Eintritt
            person.flag_string[6] := excel.cells[excelzeile,14].value;
            // Kündigung am
            person.flag_string[4] := excel.cells[excelzeile,15].value;
            // Kündigung zum
            person.flag_string[5] := excel.cells[excelzeile,16].value;
            adressen_init(adresse);
            dummy_zeile := excel.cells[excelzeile,4].value;
            adresse.adresse[plz_const] := trim(dummy_zeile);
            dummy_zeile := excel.cells[excelzeile,5].value;
            adresse.adresse[ort_const] := trim(dummy_zeile);
            dummy_zeile := excel.cells[excelzeile,6].value;
            adresse.adresse[strasse_const] := trim(dummy_zeile);
            dummy_zeile := excel.cells[excelzeile,11].value;
            if length(dummy_zeile) <> 0 then
              adresse.adresse[email_const] := trim(dummy_zeile);

            dummy_zeile := excel.cells[excelzeile,7].value;
            if length(dummy_zeile) <> 0 then
              adresse.adresse[telprivat_const] := trim(dummy_zeile);
            dummy_zeile := excel.cells[excelzeile,8].value;
            if length(dummy_zeile) <> 0 then
              adresse.adresse[telgesch_const] := trim(dummy_zeile);
            dummy_zeile := excel.cells[excelzeile,9].value;
            if length(dummy_zeile) <> 0 then
              adresse.adresse[mobil_const] := trim(dummy_zeile);

            if length(trim(person.Verein)) <= 3 then
              Begin
                person.Verein := 'VFL Nürnberg';
                person.flag_boolean[sg_const] := false;
                person.flag_boolean[stammdatensatzaenderung_const] := true;
                person.mannschaft := 'Liste Hauptverein';
              end;

            leer_person := person;
            leer_adresse := adresse;
            stammdatenerfassung(true);
            person := leer_person;
            adresse := leer_adresse;
            abgleich(person,adresse);
            fstammdaten.BSpeichernClick(self);
          end;
          if fstammdaten.Visible then
            fstammdaten.Visible := false;
      end;

  until (length(excel_dummy) = 0);



  closefile(adressdatei);
  closefile(stammdatei);

  Excel.Quit; //Beendet Excel
  Excel := Unassigned;
  fdatenabgleich.Close;
End;

end.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: undefinierter Bezeichner (self)

  Alt 21. Nov 2023, 07:30
Ich rate mal und behaupte, der gezeigte Code befindet sich innerhalb einer regulären Prozedur/Funktion und nicht innerhalb einer Methode.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von MEissing
MEissing

Registriert seit: 19. Jan 2005
Ort: Egelsbach
1.384 Beiträge
 
Delphi 12 Athens
 
#5

AW: undefinierter Bezeichner (self)

  Alt 21. Nov 2023, 09:22
Die "procedure Datenabgleich;" hängt alleine im Raum. Und kennt daher self nicht.

Häng' die als Methode an Tfdatenabgleich und schon kennt die auch self. Oder nutze halt die Instanzvariable "fdatenabgleich"
Matthias Eißing
cu://Matthias.Eißing.de [Embarcadero]
Kein Support per PN
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.151 Beiträge
 
Delphi 12 Athens
 
#6

AW: undefinierter Bezeichner (self)

  Alt 21. Nov 2023, 09:31
Und wenn schon, dann auch gleich diese globanen Variablen in die Klasse mitnehmen (private).
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von Sinspin
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
618 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: undefinierter Bezeichner (self)

  Alt 21. Nov 2023, 10:43
Dann noch with person do auflösen, also entfernen. Das ist ganz schlechter Programmierstil.
Stefan
Nur die Besten sterben jung
A constant is a constant until it change.
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
1.468 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#8

AW: undefinierter Bezeichner (self)

  Alt 21. Nov 2023, 12:48
Dann noch with person do auflösen, also entfernen. Das ist ganz schlechter Programmierstil.
Genau! Korrekt wäre

with self, Person do

GDR
Thomas Mueller
  Mit Zitat antworten Zitat
Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.338 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: undefinierter Bezeichner (self)

  Alt 21. Nov 2023, 13:29
Der Source macht auf mich den Eindruck, dass kdrexler noch nicht so viel Erfahrung hat und es gibt noch reichlich Stellen um Source, die Probleme bereiten werden.
Wenn ihr also Hilfestellung geben wollt, dann doch bitte so, dass kdrexler etwas davon hat.
Peter
  Mit Zitat antworten Zitat
Benutzerbild von Sinspin
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
618 Beiträge
 
Delphi 10.3 Rio
 
#10

AW: undefinierter Bezeichner (self)

  Alt 21. Nov 2023, 14:41
Zitat:
kdrexler

Registriert seit: 13. Mai 2012
Das sind 11 Jahre. Das sollte genug Zeit gewesen sein um Erfahrung zu sammeln.
Stefan
Nur die Besten sterben jung
A constant is a constant until it change.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      

« Vorheriges Thema | Nächstes Thema »
 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus
Gehe zu:

• Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz