Hallo zusammen
versuche nun schon länger Werte die in einer Tabelle sind ( einem Feld ) auszuwerten.
Das Tabellen Feld wird so befüllt.
Delphi-Quellcode:
procedure Tfrm_member.insert_chairmen;
var
CM, SCH, HM, MBP, H, NH, SS : string;
begin
if CheckBox_church.Checked then CM := 'CM';
if CheckBox_school.Checked then SCH := 'SCH';
if CheckBox_hotel.Checked then HM := 'HM';
if CheckBox_hospital.Checked then MBP := 'H';
if CheckBox_mbp.Checked then H := 'MBP';
if CheckBox_nursinh.Checked then NH := 'NH';
if CheckBox_bibel.Checked then SS := 'SS';
DM_member.Member.Edit;
DM_member.Member.FieldByName('CHAIRMEN_G').AsString := ( CM +' '+ SCH +' '+ HM +' '+ MBP +' '+ H +' '+ NH +' '+ SS )
end;
Bei einem erneuten aufrufen der Form sollten natürlich die CheckBoxen
auch wieder so gesetzt sein.
Habe mir nun überlegt das ich beim Onshow die Daten auslese
ALL := DM_member.Member.FieldByName('CHAIRMEN_G').AsString;
und in eine Variable schreibe. Leider weiss ich nicht wie ich in einer Variable
nach z.B dem Wert CM suche.
Hat mir womöglich jemand einen Tipp?
Shalom
Manfred