AGB  ·  Datenschutz  ·  Impressum  







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

MDIAPP und dem Vererben

Ein Thema von Kunoishi · begonnen am 24. Jul 2009 · letzter Beitrag vom 25. Jul 2009
Antwort Antwort
Kunoishi

Registriert seit: 26. Dez 2002
Ort: Berlin
140 Beiträge
 
Delphi 5 Standard
 
#1

Re: MDIAPP und dem Vererben

  Alt 24. Jul 2009, 19:37
mein Objektfenster sieht derzeit so aus
zusammenfalten · markieren
Delphi-Quellcode:
unit ObjektDaten;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, ComCtrls, Menus;

type
  tDaten = record
           OName: string[30];
           OObjektgruppe: string[30];
           OStrasse: string[25];
           OPlz: string[8];
           OOrt: string[20];
           OVTel: string[25];
           OTel: string[5];
           OVFax: string[5];
           OFax: string[5];
           OVMobil: string[5];
           OMobil: string[5];
           OVService: string[5];
           OService: string[5];
           OWebseite: string[5];
           OEmail: string[5];
           OZusatz: string[5];
           OPDienststelle: string[30];
           OPStrasse: string[25];
           OPPlz: string[8];
           OPOrt: string[20];
           OPVTel: string[25];
           OPTel: string[5];
           OPVFax: string[5];
           OPFax: string[5];
           OPSachbearbeiter: string[5];
           OPZusatz: string[5];
          end;

  TObjekt = class(TForm)
    OpenDialogdatei: TOpenDialog;
    SaveDialogDatei: TSaveDialog;
    PageControlObjektDaten: TPageControl;
    TabSheet1: TTabSheet;
    PAdresseGroupBox: TGroupBox;
    Panel2: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label18: TLabel;
    EditOStrasse: TEdit;
    EditOPLZ: TEdit;
    EditOOrt: TEdit;
    EditOVTel: TEdit;
    EditOTel: TEdit;
    EditOVFax: TEdit;
    EditOFax: TEdit;
    EditOVMobil: TEdit;
    EditOMobil: TEdit;
    EditOVService: TEdit;
    EditOService: TEdit;
    EditOWebseite: TEdit;
    EditOEMail: TEdit;
    EditOZusatz: TMemo;
    ObjektzuordnungGroupBox: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    EditOName: TEdit;
    EditOObjektgruppe: TEdit;
    AbteilungGroupBox: TGroupBox;
    Abteilungsverwaltung: TDBGrid;
    Panel7: TPanel;
    Abteilungssuche: TRadioGroup;
    Panel8: TPanel;
    ObjektMenu: TMainMenu;
    File1: TMenuItem;
    Edit1: TMenuItem;
    CutItem: TMenuItem;
    CopyItem: TMenuItem;
    PasteItem: TMenuItem;
    Window1: TMenuItem;
    WindowCascadeItem: TMenuItem;
    WindowTileItem: TMenuItem;
    WindowTileItem2: TMenuItem;
    WindowMinimizeItem: TMenuItem;
    WindowArrangeItem: TMenuItem;
    Administrator1: TMenuItem;
    Lizenz1: TMenuItem;
    Lizenzinhaber1: TMenuItem;
    Help1: TMenuItem;
    HelpAboutItem: TMenuItem;
    Beenden1: TMenuItem;
    atbestandsverwaltung1: TMenuItem;
    N1: TMenuItem;
    Steuerung1: TMenuItem;
    gehezumObjekt1: TMenuItem;
    N2: TMenuItem;
    nchterDatensatz1: TMenuItem;
    vorigerDatensatz1: TMenuItem;
    letzterDatensatz1: TMenuItem;
    neuesObjektanlegen1: TMenuItem;
    N3: TMenuItem;
    nderungenspeichern1: TMenuItem;
    Panel4: TPanel;
    Panel11: TPanel;
    ObjektButton: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction); // Objekt verlassen
    procedure OPNameChange(Sender: TObject);
    procedure CutItemClick(Sender: TObject);
    procedure gehezumObjekt1Click(Sender: TObject); //zum ersten Objekt
    procedure Beenden1Click(Sender: TObject); //Objektfenster Schließen
    procedure atbestandsverwaltung1Click(Sender: TObject);
    procedure nchterDatensatz1Click(Sender: TObject); //zum nächsten Objekt
    procedure vorigerDatensatz1Click(Sender: TObject); //zum vorigen Objekt
    procedure letzterDatensatz1Click(Sender: TObject); //zum letzten Objekt
    procedure neuesObjektanlegen1Click(Sender: TObject); //neues Objekt anlegen
    procedure nderungenspeichern1Click(Sender: TObject);
    procedure ObjektButtonClick(Sender: TObject); //änderungen der Objektdaten speichern
  private
    { Private-Deklarationen }
    procedure CreateSachverhaltDaten (const Name: string);// SachverhaltDaten
  public
    { Public-Deklarationen }
    dateiname:string;
    datei: file of tDaten;
    daten: tDaten;
  end;

var
  Objekt: TObjekt;

  implementation

{$R *.DFM}
uses Verwaltung, Sachverhalt;


procedure TObjekt.atbestandsverwaltung1Click(Sender: TObject); // Sachverhalt
begin // Sachverhalt
CreateSachverhaltDaten ('Sachverhalt'); // Sachverhalt
end; // Sachverhalt
                                                                // Sachverhalt
procedure TObjekt.CreateSachverhaltdaten(const Name: string); // Sachverhalt
var // Sachverhalt
  Child: TSachverhaltForm; // Sachverhalt
begin // Sachverhalt
  Child := TSachverhaltForm.Create(Application); // Sachverhalt
  Child.Caption := Name; // Sachverhalt
end; // Sachverhalt

procedure TObjekt.FormCreate(Sender: TObject);
begin
  dateiname:='';
  MainForm.Objektverwltung.Visible:=False;

end;

procedure TObjekt.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if dateiname <> '' then
   closefile(datei);
end;

procedure TObjekt.OPNameChange(Sender: TObject);
begin
OPName.Text:=EditOName.text;
OPObjektgruppe.Text:=EditOObjektgruppe.Text;
end;

procedure TObjekt.FormClose(Sender: TObject; var Action: TCloseAction); // Objekt verlassen
begin // Objekt verlassen
  Action := caFree; // Objekt verlassen
  MainForm.Objektverwltung.Visible:=True; // Objekt verlassen
end;


procedure TObjekt.CutItemClick(Sender: TObject);
begin
  try
     reset(datei);
     seek(datei, filesize(datei));
         EditOName.Text:='';
         EditOObjektgruppe.Text:='';
         EditOStrasse.Text:='';
         EditOPlz.Text:='';
         EditOOrt.Text:='';
         EditOVTel.Text:='';
         EditOTel.Text:='';
         EditOVFax.Text:='';
         EditOFax.Text:='';
         EditOVMobil.Text:='';
         EditOMobil.Text:='';
         EditOVService.Text:='';
         EditOService.Text:='';
         EditOWebseite.Text:='';
         EditOEmail.Text:='';
         EditOZusatz.Text:='';


    daten.OName:=EditOName.text;
    daten.OObjektgruppe:=EditOObjektgruppe.text;
    daten.OStrasse:=EditOStrasse.text;
    daten.OPlz:=EditOPlz.text;
    daten.OOrt:=EditOOrt.text;
    daten.OVTel:=EditOVTel.text;
    daten.OTel:=EditOTel.text;
    daten.OVFax:=EditOVFax.text;
    daten.OFax:=EditOFax.text;
    daten.OVMobil:=EditOVMobil.text;
    daten.OMobil:=EditOMobil.text;
    daten.OVService:=EditOVService.text;
    daten.OService:=EditOService.text;
    daten.OWebseite:=EditOWebseite.text;
    daten.OEmail:=EditOEmail.text;
    daten.OZusatz:=EditOZusatz.text;

     write(datei,daten);
     editOname.setfocus
  except
     showmessage('Fehler: Zuerst Objekt öffnen!')
  end
end;


procedure TObjekt.gehezumObjekt1Click(Sender: TObject); //erster Datensatz
begin //erster Datensatz
  try //erster Datensatz
     reset(datei); //erster Datensatz
     if not eof(datei) then //erster Datensatz
       begin //erster Datensatz
         read(datei,daten); //erster Datensatz
         EditOName.Text:=daten.OName; //erster Datensatz
         EditOObjektgruppe.Text:=daten.OObjektgruppe; //erster Datensatz
         EditOStrasse.Text:=daten.OStrasse; //erster Datensatz
         EditOPlz.Text:=daten.OPlz; //erster Datensatz
         EditOOrt.Text:=daten.OOrt; //erster Datensatz
         EditOVTel.Text:=daten.OVTel; //erster Datensatz
         EditOTel.Text:=daten.OTel; //erster Datensatz
         EditOVFax.Text:=daten.OVFax; //erster Datensatz
         EditOFax.Text:=daten.OFax; //erster Datensatz
         EditOVMobil.Text:=daten.OVMobil; //erster Datensatz
         EditOMobil.Text:=daten.OMobil; //erster Datensatz
         EditOVService.Text:=daten.OVService; //erster Datensatz
         EditOService.Text:=daten.OService; //erster Datensatz
         EditOWebseite.Text:=daten.OWebseite; //erster Datensatz
         EditOEmail.Text:=daten.OEmail; //erster Datensatz
         EditOZusatz.Text:=daten.OZusatz; //erster Datensatz
         OPStrasse.Text:=daten.OPStrasse; //erster Datensatz
         OPPlz.Text:=daten.OPPlz; //erster Datensatz
         OPOrt.Text:=daten.OPOrt; //erster Datensatz
         OPVTel.Text:=daten.OPVTel; //erster Datensatz
         OPTel.Text:=daten.OPTel; //erster Datensatz
         OPVFax.Text:=daten.OPVFax; //erster Datensatz
         OPFax.Text:=daten.OPFax; //erster Datensatz
         OPSachbearbeiter.Text:=daten.OPSachbearbeiter; //ersten Datensatz
         OPZusatz.Text:=daten.OPZusatz; //erster Datensatz

       end //erster Datensatz
     else showmessage('Dateiende erreicht') //erster Datensatz
  except //erster Datensatz
     showmessage('Fehler: Zuerst Datei öffnen!') //erster Datensatz
  end //erster Datensatz
end; //erster Datensatz

procedure TObjekt.Beenden1Click(Sender: TObject);
begin
Close;
end;

procedure TObjekt.nchterDatensatz1Click(Sender: TObject); //zum nächsten Objekt
begin //zum nächsten Objekt
   try //zum nächsten Objekt
     if not eof(datei) then //zum nächsten Objekt
      begin //zum nächsten Objekt
        read(datei,daten); //zum nächsten Objekt
         EditOName.Text:=daten.OName; //zum nächsten Objekt
         EditOObjektgruppe.Text:=daten.OObjektgruppe; //zum nächsten Objekt
         EditOStrasse.Text:=daten.OStrasse; //zum nächsten Objekt
         EditOPlz.Text:=daten.OPlz; //zum nächsten Objekt
         EditOOrt.Text:=daten.OOrt; //zum nächsten Objekt
         EditOVTel.Text:=daten.OVTel; //zum nächsten Objekt
         EditOTel.Text:=daten.OTel; //zum nächsten Objekt
         EditOVFax.Text:=daten.OVFax; //zum nächsten Objekt
         EditOFax.Text:=daten.OFax; //zum nächsten Objekt
         EditOVMobil.Text:=daten.OVMobil; //zum nächsten Objekt
         EditOMobil.Text:=daten.OMobil; //zum nächsten Objekt
         EditOVService.Text:=daten.OVService; //zum nächsten Objekt
         EditOService.Text:=daten.OService; //zum nächsten Objekt
         EditOWebseite.Text:=daten.OWebseite; //zum nächsten Objekt
         EditOEmail.Text:=daten.OEmail; //zum nächsten Objekt
         EditOZusatz.Text:=daten.OZusatz; //zum nächsten Objekt
         OPStrasse.Text:=daten.OPStrasse; //zum nächsten Objekt
         OPPlz.Text:=daten.OPPlz; //zum nächsten Objekt
         OPOrt.Text:=daten.OPOrt; //zum nächsten Objekt
         OPVTel.Text:=daten.OPVTel; //zum nächsten Objekt
         OPTel.Text:=daten.OPTel; //zum nächsten Objekt
         OPVFax.Text:=daten.OPVFax; //zum nächsten Objekt
         OPFax.Text:=daten.OPFax; //zum nächsten Objekt
         OPSachbearbeiter.Text:=daten.OPSachbearbeiter; //zum nächsten Objekt
         OPZusatz.Text:=daten.OPZusatz; //zum nächsten Objekt
      end //zum nächsten Objekt
     else showmessage('Dateiende erreicht!') //zum nächsten Objekt
   except //zum nächsten Objekt
     showmessage('Fehler: Zuerst Datei öffnen!') //zum nächsten Objekt
   end //zum nächsten Objekt
                                                          //zum nächsten Objekt
end; //zum nächsten Objekt

procedure TObjekt.vorigerDatensatz1Click(Sender: TObject);//zum vorigen Objekt
begin //zum vorigen Objekt
  try //zum vorigen Objekt
     if filepos(datei)>1 then //zum vorigen Objekt
      begin //zum vorigen Objekt
        seek(datei,filepos(datei)-2); //zum vorigen Objekt
        read(datei,daten); //zum vorigen Objekt
         EditOName.Text:=daten.OName; //zum vorigen Objekt
         EditOObjektgruppe.Text:=daten.OObjektgruppe; //zum vorigen Objekt
         EditOStrasse.Text:=daten.OStrasse; //zum vorigen Objekt
         EditOPlz.Text:=daten.OPlz; //zum vorigen Objekt
         EditOOrt.Text:=daten.OOrt; //zum vorigen Objekt
         EditOVTel.Text:=daten.OVTel; //zum vorigen Objekt
         EditOTel.Text:=daten.OTel; //zum vorigen Objekt
         EditOVFax.Text:=daten.OVFax; //zum vorigen Objekt
         EditOFax.Text:=daten.OFax; //zum vorigen Objekt
         EditOVMobil.Text:=daten.OVMobil; //zum vorigen Objekt
         EditOMobil.Text:=daten.OMobil; //zum vorigen Objekt
         EditOVService.Text:=daten.OVService; //zum vorigen Objekt
         EditOService.Text:=daten.OService; //zum vorigen Objekt
         EditOWebseite.Text:=daten.OWebseite; //zum vorigen Objekt
         EditOEmail.Text:=daten.OEmail; //zum vorigen Objekt
         EditOZusatz.Text:=daten.OZusatz; //zum vorigen Objekt
         OPStrasse.Text:=daten.OPStrasse; //zum vorigen Objekt
         OPPlz.Text:=daten.OPPlz; //zum vorigen Objekt
         OPOrt.Text:=daten.OPOrt; //zum vorigen Objekt
         OPVTel.Text:=daten.OPVTel; //zum vorigen Objekt
         OPTel.Text:=daten.OPTel; //zum vorigen Objekt
         OPVFax.Text:=daten.OPVFax; //zum vorigen Objekt
         OPFax.Text:=daten.OPFax; //zum vorigen Objekt
         OPSachbearbeiter.Text:=daten.OPSachbearbeiter; //zum vorigen Objekt
         OPZusatz.Text:=daten.OPZusatz; //zum vorigen Objekt
      end //zum vorigen Objekt
     else //zum vorigen Objekt
       showmessage('Dateianfang erreicht!') //zum vorigen Objekt
   except //zum vorigen Objekt
     showmessage('Fehler: Zuerst Objektdatei öffnen!') //zum vorigen Objekt
   end //zum vorigen Objekt
                                                          //zum vorigen Objekt
end; //zum vorigen Objekt

procedure TObjekt.letzterDatensatz1Click(Sender: TObject);//zum letzten Objekt
begin //zum letzten Objekt
  try //zum letzten Objekt
     reset(datei); //zum letzten Objekt
     seek(datei, filesize(datei)-1); //zum letzten Objekt
     if not (filesize(datei) =0) then //zum letzten Objekt
       begin //zum letzten Objekt
         read(datei,daten); //zum letzten Objekt
         EditOName.Text:=daten.OName; //zum letzten Objekt
         EditOObjektgruppe.Text:=daten.OObjektgruppe; //zum letzten Objekt
         EditOStrasse.Text:=daten.OStrasse; //zum letzten Objekt
         EditOPlz.Text:=daten.OPlz; //zum letzten Objekt
         EditOOrt.Text:=daten.OOrt; //zum letzten Objekt
         EditOVTel.Text:=daten.OVTel; //zum letzten Objekt
         EditOTel.Text:=daten.OTel; //zum letzten Objekt
         EditOVFax.Text:=daten.OVFax; //zum letzten Objekt
         EditOFax.Text:=daten.OFax; //zum letzten Objekt
         EditOVMobil.Text:=daten.OVMobil; //zum letzten Objekt
         EditOMobil.Text:=daten.OMobil; //zum letzten Objekt
         EditOVService.Text:=daten.OVService; //zum letzten Objekt
         EditOService.Text:=daten.OService; //zum letzten Objekt
         EditOWebseite.Text:=daten.OWebseite; //zum letzten Objekt
         EditOEmail.Text:=daten.OEmail; //zum letzten Objekt
         EditOZusatz.Text:=daten.OZusatz; //zum letzten Objekt
         OPStrasse.Text:=daten.OPStrasse; //zum letzten Objekt
         OPPlz.Text:=daten.OPPlz; //zum letzten Objekt
         OPOrt.Text:=daten.OPOrt; //zum letzten Objekt
         OPVTel.Text:=daten.OPVTel; //zum letzten Objekt
         OPTel.Text:=daten.OPTel; //zum letzten Objekt
         OPVFax.Text:=daten.OPVFax; //zum letzten Objekt
         OPFax.Text:=daten.OPFax; //zum letzten Objekt
         OPSachbearbeiter.Text:=daten.OPSachbearbeiter; //zum letzten Objekt
         OPZusatz.Text:=daten.OPZusatz; //zum letzten Objekt
       end //zum letzten Objekt
     else showmessage('Objektdatei enthält kein Objekt') //zum letzten Objekt
  except //zum letzten Objekt
     showmessage('Fehler: Zuerst Objektdatei öffnen!') //zum letzten Objekt
  end //zum letzten Objekt
                                                          //zum letzten Objekt
end; //zum letzten Objekt

procedure TObjekt.neuesObjektanlegen1Click(Sender: TObject); //neues Objekt erfassen
begin //neues Objekt erfassen
  try //neues Objekt erfassen
     reset(datei); //neues Objekt erfassen
     seek(datei, filesize(datei)); //neues Objekt erfassen
     EditOName.Text:=''; //neues Objekt erfassen
     EditOObjektgruppe.Text:=''; //neues Objekt erfassen
     EditOStrasse.Text:=''; //neues Objekt erfassen
     EditOPlz.Text:=''; //neues Objekt erfassen
     EditOOrt.Text:=''; //neues Objekt erfassen
     EditOVTel.Text:=''; //neues Objekt erfassen
     EditOTel.Text:=''; //neues Objekt erfassen
     EditOVFax.Text:=''; //neues Objekt erfassen
     EditOFax.Text:=''; //neues Objekt erfassen
     EditOVMobil.Text:=''; //neues Objekt erfassen
     EditOMobil.Text:=''; //neues Objekt erfassen
     EditOVService.Text:=''; //neues Objekt erfassen
     EditOService.Text:=''; //neues Objekt erfassen
     EditOWebseite.Text:=''; //neues Objekt erfassen
     EditOEmail.Text:=''; //neues Objekt erfassen
     EditOZusatz.Text:=''; //neues Objekt erfassen
     OPStrasse.Text:=''; //neues Objekt erfassen
     OPPlz.Text:=''; //neues Objekt erfassen
     OPOrt.Text:=''; //neues Objekt erfassen
     OPVTel.Text:=''; //neues Objekt erfassen
     OPTel.Text:=''; //neues Objekt erfassen
     OPVFax.Text:=''; //neues Objekt erfassen
     OPFax.Text:=''; //neues Objekt erfassen
     OPSachbearbeiter.Text:=''; //neues Objekt erfassen
     OPZusatz.Text:=''; //neues Objekt erfassen
                                                             //neues Objekt erfassen
     daten.OName:=EditOName.text; //neues Objekt erfassen
     daten.OObjektgruppe:=EditOObjektgruppe.text; //neues Objekt erfassen
     daten.OStrasse:=EditOStrasse.text; //neues Objekt erfassen
     daten.OPlz:=EditOPlz.text; //neues Objekt erfassen
     daten.OOrt:=EditOOrt.text; //neues Objekt erfassen
     daten.OVTel:=EditOVTel.text; //neues Objekt erfassen
     daten.OTel:=EditOTel.text; //neues Objekt erfassen
     daten.OVFax:=EditOVFax.text; //neues Objekt erfassen
     daten.OFax:=EditOFax.text; //neues Objekt erfassen
     daten.OVMobil:=EditOVMobil.text; //neues Objekt erfassen
     daten.OMobil:=EditOMobil.text; //neues Objekt erfassen
     daten.OVService:=EditOVService.text; //neues Objekt erfassen
     daten.OService:=EditOService.text; //neues Objekt erfassen
     daten.OWebseite:=EditOWebseite.text; //neues Objekt erfassen
     daten.OEmail:=EditOEmail.text; //neues Objekt erfassen
     daten.OZusatz:=EditOZusatz.text; //neues Objekt erfassen
     daten.OPStrasse:=OPStrasse.Text; //neues Objekt erfassen
     daten.OPPlz:=OPPlz.Text; //neues Objekt erfassen
     daten.OPOrt:=OPOrt.Text; //neues Objekt erfassen
     daten.OPVTel:=OPVTel.Text; //neues Objekt erfassen
     daten.OPTel:=OPTel.Text; //neues Objekt erfassen
     daten.OPVFax:=OPVFax.Text; //neues Objekt erfassen
     daten.OPFax:=OPFax.Text; //neues Objekt erfassen
     daten.OPSachbearbeiter:=OPSachbearbeiter.Text; //neues Objekt erfassen
     daten.OPZusatz:=OPZusatz.Text; //neues Objekt erfassen
     write(datei,daten); //neues Objekt erfassen
     EditOName.setfocus //neues Objekt erfassen
  except //neues Objekt erfassen
     showmessage('Fehler: Zuerst Objektdaten öffnen!') //neues Objekt erfassen
  end //neues Objekt erfassen
                                                             //neues Objekt erfassen
end; //neues Objekt erfassen

procedure TObjekt.nderungenspeichern1Click(Sender: TObject); //änderungen Speichern
begin //änderungen Speichern
     daten.OName:=EditOName.text; //änderungen Speichern
     daten.OObjektgruppe:=EditOObjektgruppe.text; //änderungen Speichern
     daten.OStrasse:=EditOStrasse.text; //änderungen Speichern
     daten.OPlz:=EditOPlz.text; //änderungen Speichern
     daten.OOrt:=EditOOrt.text; //änderungen Speichern
     daten.OVTel:=EditOVTel.text; //änderungen Speichern
     daten.OTel:=EditOTel.text; //änderungen Speichern
     daten.OVFax:=EditOVFax.text; //änderungen Speichern
     daten.OFax:=EditOFax.text; //änderungen Speichern
     daten.OVMobil:=EditOVMobil.text; //änderungen Speichern
     daten.OMobil:=EditOMobil.text; //änderungen Speichern
     daten.OVService:=EditOVService.text; //änderungen Speichern
     daten.OService:=EditOService.text; //änderungen Speichern
     daten.OWebseite:=EditOWebseite.text; //änderungen Speichern
     daten.OEmail:=EditOEmail.text; //änderungen Speichern
     daten.OZusatz:=EditOZusatz.text; //änderungen Speichern
     daten.OPStrasse:=OPStrasse.Text; //änderungen Speichern
     daten.OPPlz:=OPPlz.Text; //änderungen Speichern
     daten.OPOrt:=OPOrt.Text; //änderungen Speichern
     daten.OPVTel:=OPVTel.Text; //änderungen Speichern
     daten.OPTel:=OPTel.Text; //änderungen Speichern
     daten.OPVFax:=OPVFax.Text; //änderungen Speichern
     daten.OPFax:=OPFax.Text; //änderungen Speichern
     daten.OPSachbearbeiter:=OPSachbearbeiter.Text; //änderungen Speichern
     daten.OPZusatz:=OPZusatz.Text; //änderungen Speichern
    try //änderungen Speichern
      seek(datei,filepos(datei)-1); //änderungen Speichern
      write(datei,daten) //änderungen Speichern
    except //änderungen Speichern
      showmessage('Objekt zuerst öffnen bzw. kein Objekt angezeigt')//änderungen Speichern
    end //änderungen Speichern
                                                             //änderungen Speichern
end; //änderungen Speichern

procedure TObjekt.ObjektButtonClick(Sender: TObject);
begin
  opendialogdatei.Title := 'Objektdatei Öffnen';
// opendialogdatei.InitialDir := 'C:/Programme/';
  opendialogdatei.DefaultExt := '.dat';
  opendialogdatei.Filter := 'Objektdaten (*.dat)|*.dat|Alle Dateien (*.*)|*.*';

  opendialogdatei.Options := [ofAllowMultiSelect, ofPathMustExist,ofShowHelp];
  opendialogdatei.Options := [ofPathMustExist,ofShowHelp];
                                                          //Objektdaten öffnen
    if opendialogdatei.execute then //Objektdaten öffnen
       begin //Objektdaten öffnen
        dateiname:=opendialogdatei.filename; //Objektdaten öffnen
        assignfile(datei,dateiname); //Objektdaten öffnen
        atbestandsverwaltung1.Enabled:=True; //Objektdaten öffnen
        Steuerung1.Visible:=True; //Objektdaten öffnen
        ObjektButton.Enabled:=False;
        MainForm.ObjektOpen.Enabled:=False;

        try //Objektdaten öffnen
          reset(datei) //Objektdaten öffnen
        except //Objektdaten öffnen
          dateiname:=''; //Objektdaten öffnen
          showmessage('Objektdatei existiert nicht') //Objektdaten öffnen
        end //Objektdaten öffnen
       end; //Objektdaten öffnen
           EditOName.clear; //Objektdaten öffnen
           EditOObjektgruppe.clear; //Objektdaten öffnen
           EditOStrasse.clear; //Objektdaten öffnen
           EditOPlz.clear; //Objektdaten öffnen
           EditOOrt.clear; //Objektdaten öffnen
           EditOVTel.clear; //Objektdaten öffnen
           EditOTel.clear; //Objektdaten öffnen
           EditOVFax.clear; //Objektdaten öffnen
           EditOFax.clear; //Objektdaten öffnen
           EditOVMobil.clear; //Objektdaten öffnen
           EditOMobil.clear; //Objektdaten öffnen
           EditOVService.clear; //Objektdaten öffnen
           EditOService.clear; //Objektdaten öffnen
           EditOWebseite.clear; //Objektdaten öffnen
           EditOEmail.clear; //Objektdaten öffnen
           EditOZusatz.clear; //Objektdaten öffnen
           OPStrasse.clear; //Objektdaten öffnen
           OPPlz.clear; //Objektdaten öffnen
           OPOrt.clear; //Objektdaten öffnen
           OPVTel.clear; //Objektdaten öffnen
           OPTel.clear; //Objektdaten öffnen
           OPVFax.clear; //Objektdaten öffnen
           OPFax.clear; //Objektdaten öffnen
           OPSachbearbeiter.clear; //Objektdaten öffnen
           OPZusatz.clear; //Objektdaten öffnen
  end; //Objektdaten öffnen

end.
  Mit Zitat antworten Zitat
Antwort Antwort

« 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 01:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz