Du könntest verschiedene Klasen definieren, die alle ein Interface implementieren, das z-B.So aussieht:
Delphi-Quellcode:
type
IDatenzugriff=interface
function LeseDatensatz(UniqueKey:
String);
end;
type
TTCPDatenZugriff=class(IDatenzugriff)
public
function LeseDatensatz(UniqueKey:
String)
end;
implementation
function TTCPDatenZugriff.LeseDatensatz(UniqueKey:
String)
begin
//Hole Datensatz
end;
procedure VerwendeDatenzugriff();
var
Datenzugriff:IDatenzugriff;
Datensatz:TDatensatz;
begin
if Zugriffsmethode=
TCP then
begin
Datenzugriff=TTCPDatenZugriff.Create;
end;
//...
Datensatz:= Datenzugriff.LeseDatensatz('
UniqueKey');
//...
end;
end;
Ich hab jetzt kein Delphi zum ausprobieren, aber so ungefähr