Hallo liebe Delphi-Helfer
Ich nutze für mein Projekt verschiedene selbst gebaute Objekte.
z. B.:
Code:
TAufgabe = class(TObjekt)
private
public
Projekt: TProjekt;
Anforderung: String;
VonMitarbeiter: TMitarbeiter;
FuerMitarbeiter: TMitarbeiter;
Mitarbeitergruppe: TMitarbeitergruppe;
Hauptaufgabennummer: Integer;
Taetigkeitstyp: TTaetigkeitstyp;
Status: TAufgabenstatus;
Allgemein: Boolean;
Gesehen: Boolean;
Prioritaet: Integer;
end;
Gibt es eine einfache Möglichkeit so ein Objekt 1:1 zu kopieren, ohne das ich Funktionen schreiben um jeden einzelnen Wert zu übergeben?
Code:
procedure TAufgabeBearbeitenF.FormShow(Sender: TObject);
begin
// Aufgabe laden
AufgabeAlt := TAufgabe.LoadFromDatabase(Aufgabennummer, PV.Mitarbeiter.Nummer);
AufgabeNeu := AufgabeAlt;
AufgabeAlt.Version := '123';
AufgabeNeu.Version := '456';
ShowMessage(AufgabeAlt.Version + ' ' + AufgabeNeu.Version);
Als ShowMessage kommt so leider "456 456" raus statt "123 456"