Delphi-Quellcode:
if MatchStr(s_Art, ['Rechnung', 'Endrechnung', 'Gutschrift']) then
MethodeFürRechnungen(...);
if s_Art = 'Angebot' then
MethodeFürAngebote(...);
oder
Delphi-Quellcode:
if IsRechnungsArt(s_Art) then
MethodeFürRechnungen(...);
if IsAngebotsArt(s_Art) then
MethodeFürAngebote(...);
oder, wenn es sich gegenseitig ausschließt
Delphi-Quellcode:
if IsRechnungsArt(s_Art) then
MethodeFürRechnungen(...)
else if IsAngebotsArt(s_Art) then
MethodeFürAngebote(...);
oder
Delphi-Quellcode:
case GetArt(s_Art) of
artRechnung: MethodeFürRechnungen(...);
artAngebot: MethodeFürAngebote(...);
...
else
raise EInvalidArtExcetion.Create('unbekannte Art: ' + s_Art);
end;
Auch der weiteste Weg beginnt mit einem ersten Schritt. (Konfuzius)