String Entscheidungen mit case treffen!!!

[merlin17]

evtl. so etwas (um wieder zum Thema zurück zu kommen...);
ist sicherlich noch ausbaufähig bzw. optimierbar <g>

Delphi-Quellcode:

 case StringToCaseSelect(Section.ChildNodes['TYP'].Text,
        ['INTEGER', 'BETRAG', 'STRING']) of
        0: CDS1.FieldDefs.Add(Section.ChildNodes['NAME'].Text,
            ftInteger, 0, false);
        1: CDS1.FieldDefs.Add(Section.ChildNodes['NAME'].Text,
            ftFloat, 0, false);
        2: CDS1.FieldDefs.Add(Section.ChildNodes['NAME'].Text,
            ftString, 50, false);
      end;



function TForm1.StringToCaseSelect
  (Selector: string;
  CaseList: array of string): Integer;
var
  cnt: integer;
begin
  Result := -1;
  for cnt := 0 to Length(CaseList) - 1 do
  begin
    if CompareText(Selector, CaseList[cnt]) = 0 then
    begin
      Result := cnt;
      Break;
    end;
  end;
end;

thomas