IF in mit Strings

[Ykcim]

Hallo Zusammen,

mich interessiert, wie Ihr das lösen würdet:

Ich muss meine Fertigungsaufträge nach verschiedenen Prozesses selektieren. Das kann ich über die Maschinennummern machen, da die ersten beiden Stellen immer aussagen, zu welchem Prozess die Maschine gehört.

Jetzt gibt es aber Prozesse, die haben Unterprozess und somit mehrere Möglichkeiten der Maschinennummern.

Beispiel:
Zu Prozess 1 gehören alle Maschinen, bei denen die Maschinennummer mit KA und HG anfangen
Zu Prozess 2 gehören alle Maschinen, bei denen die Maschinennummer mit PO, ZF, DH anfangen.

Gibt es eine Möglichkeit in Delphi, wie ich das mit einer IF-Anweisung flexibel abfragen kann. Ich hatte schon an so etwas wie:

Delphi-Quellcode:

IF Maschine.Text in ('PO', 'ZF', 'DH') then begin

end;

Aber damit habe ich leider keinen Erfolg gehabt.

Hat hier jemand eine Idee?

Vielen Dank
Patrick

[DeddyH]

if AnsiIndexText(Maschine.Text, ['PO', 'ZF', 'DH']) > -1 then

[Ykcim]

Hallo DeedyH,

vielen Dank! Die Funktion kannte ich noch nicht. Kann ich das auch irgendwie verwenden, wenn ich die Anzahl der möglich Maschinen noch nicht kenne? Also statt:

if AnsiIndexText(Maschine.Text, ['PO', 'ZF', 'DH']) > -1 then Irgendwie etwas wie
if AnsiIndexText(Maschine.Text, VARIABLE) > -1 then In diese Variable würde ich dann die Maschinennummern (PO, ZF, DH) reinschreiben...

Vielen Dank
Patrick

[DeddyH]

Geht.

Delphi-Quellcode:

procedure TFormTest.ButtonWuppdiClick(Sender: TObject);
var
  StrArr: array of string;
begin
  SetLength(StrArr, 3);
  StrArr[0] := 'PO';
  StrArr[1] := 'ZF';
  StrArr[2] := 'DH';
  if AnsiIndexText('DH', StrArr) > -1 then
    ShowMessage('Gefunden');
  StrArr := nil;
end;

[Ykcim]

KLAPPT! Riesig!

Vielen Dank!
Patrick

[Jens01]

Code:

if MatchText(Maschine.Text, ['PO', 'ZF', 'DH']) then

[sx2008]

Wenn die Maschinennummern in Form einer Stringliste vorliegen dann kann man es auch so machen:

Delphi-Quellcode:

var
  Maschinenliste : TStrings; // bzw. TStringList
begin
  ...
  if Maschinenliste.IndexOf(Maschine.Text) <> -1 then
  begin
    ...