Hallo zusammen
habe hier folgendes:
auf einem Form sind mehrere Checkboxen die ausgewertet werden und in ein
Datenbankfeld eingetragen werden. Das sieht dann so aus:
Delphi-Quellcode:
procedure Tfrm_member.insert_chairmen;
var
CM, SCH, HM, MBP, H, NH, SS, PS, D: string;
A_SCH, A_HM, A_AH, A_NH, A_PS, A_DOC :string;
begin
if G_CheckBox_church.Checked then CM := 'CM';
if G_CheckBox_school.Checked then SCH := 'SCH';
if G_CheckBox_hotel.Checked then HM := 'HM';
if G_CheckBox_hospital.Checked then H := 'H';
if G_CheckBox_mbp.Checked then MBP := 'MBP';
if G_CheckBox_nursinh.Checked then NH := 'NH';
if G_CheckBox_bibel.Checked then SS := 'SS';
if G_CheckBox_ps.Checked then PS := 'PS';
if G_CheckBox_donors.Checked then D := 'D';
if A_CheckBox_school.Checked then A_SCH := 'A_SCH';
if A_CheckBox_hotel.Checked then A_HM := 'A_HM';
if A_CheckBox_hospital.Checked then A_AH := 'A_H';
if A_CheckBox_nursinh.Checked then A_NH := 'A_NH';
if A_CheckBox_ps.Checked then A_PS := 'A_PS';
if A_CheckBox_Doctor.Checked then A_DOC := 'A_DOC';
with DM_member.Member do
begin
Edit;
FieldByName('CHAIRMEN_G').AsString := ( CM +' '+ SCH +' '+ HM +' '+ MBP +' '+ H +' '+ NH +' '+ SS +' '+ PS +' '+ D +' ');
FieldByName('CHAIRMEN_A').AsString := ( A_SCH +' '+ A_HM +' '+ A_AH +' '+ A_NH +' '+ A_PS +' '+ A_DOC +' ');
end;
end;
Das Problem ist hier das es einen Schönheitsfehler hat das wenn ich nur 2 Checkboxen angewählt habe
z.B. G_CheckBox_church.Checked & if G_CheckBox_ps.Checked dann sieht das Ergebnis so aus.
CM PS
Der Abständ sollten eigentlich nur 1x verhandn sein.
Wie könnte ich das lösen?
Shalom
Manfred