... ein Beispiel für diese Methoden anhand deines Beispiels mit der Datenbank schicken? Das wäre sehr hilfreich!
Beispiel für ein Property, das gelesen und geschrieben werden kann:
Delphi-Quellcode:
UNIT UnitData;
INTERFACE
USES
SysUtils, Classes,
DB, ADODB;
TYPE
TDatMod =
CLASS(TDataModule)
AConMain : TADOConnection;
PRIVATE { Private-Deklarationen }
fPfadMain :
String;
Function GetfPadMain:
String;
Procedure SetfPfadMain(
const Value:
String);
PUBLIC { Public-Deklarationen }
Property PfadMain :
String Read GetfPadMain
Write SetfPfadMain;
END;
VAR
DatMod : TDatMod;
IMPLEMENTATION
{$R *.dfm}
{ TDatMod }
// *************** PRIVATE METHODEN ******************
// ---------- PFADMAIN - GET -------------------------
Function TDatMod.GetfPadMain:
String;
begin
Result := fPfadMain;
end;
// ---------- PFADMAIN - SET -------------------------
Procedure TDatMod.SetfPfadMain(
const Value:
String);
begin
fPfadMain := Value;
end;
// *************** PUBLIC METHODEN *******************
// *************** ERGEIGNISSE ***********************
end.