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.