Hi,
also wenn Du schon beim Optimieren bist:
Delphi-Quellcode:
if pos('F',SchichtList.Strings[x])>0 then result:='F';//'Frühschicht';
if pos('S',SchichtList.Strings[x])>0 then result:='S';//'Spätschicht';
if pos('N',SchichtList.Strings[x])>0 then result:='N';//'Nachtschicht';
if pos('W',SchichtList.Strings[x])>0 then result:='.';//'Wochenende';
Hier wird 4 x ein String aus der Liste geholt um einen Vergleich durchzuführen.
Wenn aber einer der Vergleiche ok geht, wird auch noch weiter verglichen.
Also besser
Delphi-Quellcode:
schList := SchichtList.Strings[x];
if pos('F',schList)>0 then
result:='F' //'Frühschicht'
else if pos('S',schList)>0 then
result:='S' //'Spätschicht'
else if pos('N',schList)>0 then
result:='N' //'Nachtschicht'
else if pos('W',SchichtList.Strings[x])>0 then
result:='.'; //'Wochenende'
Wenn es gewünscht ist, dass z.B Wochenende den Vorrang hat (theoretisch könnten ja alle Buchstaben in schList auftauchen,
dann musst du einfach die Reihnenfolge der Prüfungen entsprechend dem Vorrang tauschen.
Gruss