DB Feld durchsuchen

[manfred_h]

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

Delphi-Quellcode:

 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

[marabu]

Hallo Manfred,

du könntest es so probieren:

Delphi-Quellcode:

with TStringList.Create do
try
  DelimitedText := DM_member.Member.FieldByName('CHAIRMEN_G').AsString;
  CheckBox_church.Checked := IndexOf('CM') >= 0;
  // ...
finally
  Free;
end;

Grüße vom marabu

[manfred_h]

Hallo Marabu

Besten Dank es funktioniert Super. :thumb:

:cheers:

Shalom
Manfred