Delphi Variable mit mehreren Werten vergleichen ohne "OR" ?

Thema durchsuchen

Ansicht

Themen-Optionen

Variable mit mehreren Werten vergleichen ohne "OR" ?

Ein Thema von Karstadt · begonnen am 28. Nov 2006 · letzter Beitrag vom 28. Nov 2006

Vorheriger Beitrag

Nächster Beitrag

volkerw

Registriert seit: 28. Nov 2005
Ort: Witten
26 Beiträge

Delphi 2006 Professional

Re: Variable mit mehreren Werten vergleichen ohne "OR&a

28. Nov 2006, 08:30

Hallo,
bei 10 Vergleichswerten ist folgende Lösung wahrscheinlich übersichtlicher und flexibler:

zusammenfalten · markieren

Delphi-Quellcode:

			Procedure Gegenstand(Bezeichnung:String);

var

  sl : TStringList;

begin

  sl := TStringList.Create;

  sl.CaseSensitive := true;

  sl.DelimitedText := 'rohr, schraube, schraubendreher';

  IF sl.IndexOf(Bezeichnung) > -1 then

    ShowMessage(Bezeichnung + ' ist enthalten.');

  sl.Free;

end;

Gruß, Volker