OOP ist mir schon geläufig aber genau wie Uwe es schon gesagt hat, geht es in meinem Fall nur mit dem Record besser =)
Ich glaub das ist jetzt nicht mehr so ganz zutreffend!
Mitlerweile sind etliche Funktionen und Proceduren hinzugekommen und ich denke die Verwaltung durch eine Klasse wäre mitlerweile der bessere weg.
Da ich in Delphi bisher nur wenig mit Klassen gearbeitet habe würde ich gerne wissen
wie man das ganze mit soeinem Array Record realisiert.
Delphi-Quellcode:
//Methoden
function getZuordnungen():Tar_zuordnung;
//holt alle Zuordnungen aus DB und liefert Array of TZuordnung zurück
procedure fillCombobox(ar_zuordnung:Tar_zuordnung);
//füllt die ComboBox mit den Zuordnungsnamen
procedure verbindeFeld();
//verbindet die beiden Treeview Datenfelder miteinander und Speichert Zuordnungswerte in DB
procedure entferneFeld(TV:ttreeview);
//entfernt die Verbindungen
procedure ladeVerbindungen(ar_zuordnung :Tar_Zuordnung;id:integer);
//fügt Unterknoten mit den vorhanden Zuordnungswerten in die Treeviews ein
Wie realisiert man das ?
Mein Ansatz:
Delphi-Quellcode:
unit uZuordnungsklasse;
interface
uses Classes;
type
TZuordnungRec =
record
zuorndungsname :
string;
trennzeichen :
string;
zuordnungsdatei :
string;
distributor :
string;
...
end;
type Tar_ZuordnungRec =
array of TZuordnungRec;
type
TZuordnung =
class
Constructor create;
Destructor destroy;
private
ZO = TzuordnungRec;
public
//zugriffsmethoden
end;
implementation
end.