Moin...
Delphi-Quellcode:
case RadioGroup1.ItemIndex of
0: DataSource2.DataSet.FieldByName('pruefer').AsString := 'Prüfer:';
1: DataSource2.DataSet.FieldByName('pruefer').AsString := 'Prüferin:';
2: DataSource2.DataSet.FieldByName('pruefer').AsString := 'Protokollantin:';
3: DataSource2.DataSet.FieldByName('pruefer').AsString := 'Protokollant:';
end;
In diesen Falle würde ich die "Strings"
nicht in der Datenbank speichern sondern eine Enumeration, quasi ein Integer, ablegen. Wenn der Gesetzgeber meint, der "Prüfer" heißt ab sofort "Prüfer mit gelben Socken" tangiert das die Datenbank nicht. Der Enum Wert ist der gleiche.
https://docwiki.embarcadero.com/RADS...Typen_(Delphi)
Delphi-Quellcode:
RadioGroup1.ItemIndex := DataSource2.DataSet.FieldByName('AuditorEnumID').AsInteger;
..
Beispiele:
Delphi-Quellcode:
type
TSound = (tsClick, tsClack, tsClock);
TMyColor = (mcRed, mcBlue, mcGreen, mcYellow, mcOrange);
Answer = (ansYes, ansNo, ansMaybe)
...
// wenn die Texte benötigt werden (Ausgaben, Listen)
conDocFolderNames: array[0..5] of string = ('Documentation', 'Manuals', 'Drawings', 'Miscellaneous', 'Images', 'Correspondence'); // die Texte zur Enumeration
...
edtText.Text := conDocFolderNames[0];