If Abfrage mit or und and kombinieren

[Luckner]

Hallo Bernau,
diese Funktion kannte ich bis heute nicht, aber sie sieht elegant aus für mein Problem. Werde es gleich ausprobieren.

Danke!
Luckner

[nahpets]

Mein Delphi 7 kennt Matchtext nicht.

Wäre dashier eventuell ein Lösungsansatz (nur ungetestet so hingedaddelt)?

Delphi-Quellcode:

procedure TForm1.irgendwas;
var
  sl       : TStringList;
begin
  sl := TStringList.Create;
  // Dashier eventuell aus einer Datei laden, damit bei Änderungen in der Liste
  // das Programm nicht geändert werden muss.
  sl.Add('TT');
  sl.Add('TT / Cutter');
  sl.Add('TT600');
  sl.Add('Laser');
  sl.Add('Primera');
  if (sl.IndexOf(JvComboMaschine2.Text) > -1)
  and (Trim(JvEditRohwareNr.Text) = '') then begin
    Messagedlg('Rohwaren-Nr. eintragen!', mtwarning, [mbok], 0);
    JvEditRohwareNr.SetFocus;
  else begin
    PanelSpeichern.Visible := True;
    JvHTButtonspeichernOK.SetFocus;
  end;
  sl.Free;
end;

[Luckner]

Habe auch Delphi 7 Ent. und es kennt auch kein MatchText. Schade. Dann lasse ich es mit den vielen elseif's.

Danke für die Hilfe

[Luckner]

Hallo nahpets,

ja, mit einer Strinlist, das wäre auch eine Lösung. Besser als die vielen else's.

[Sir Rufo]

So eine

Delphi-Quellcode:

MatchText

Funktion bekommt man scheinbar ausschließlich mit neueren Versionen.

Gut, man könnte sich die programmieren, aber dazu müsste man wohl Programmierer sein :roll:

Mal im Ernst gefragt:

Habt ihr keine eigene Bibliothek wo ihr solche Standard-Routinen/Klassen sammelt? Wenn Nein, warum nicht?

Gerade hier würde sich z.B. die Funktion

Delphi-Quellcode:

IndexText( const s: string; const v: array of string ): Integer

aufdrängen die man dann in

Delphi-Quellcode:

MatchText

verwendet.

Sowas braucht man idR alle Naselang

Und weil es gerade so viel Spaß macht, schiebt man

Delphi-Quellcode:

IndexStr

und

Delphi-Quellcode:

MatchStr

gleich noch hinterher.

[Luckner]

Hallo Sir Rufo,

dazu müsste man Programmieren sein:) und dann die Zeit dazu haben, neben seinen eigenen Routinen auch noch allgemeine zu etwickeln. Aber ich bin auch ehrlich und glaube nicht, dass ich da Was vernüftiges programmieren könnte. Bin schon froh, wenn Andere das können und hier im Forum mal helfen.

Gruß, Luckner

[Sir Rufo]

Zugegeben es gibt da immer schwer und leicht, aber hier geht man einfach durch ein Array vergleicht die Werte mit

Delphi-Quellcode:

CompareText

und gibt den Array-Index oder -1 zurück =>

Delphi-Quellcode:

IndexText

.

Delphi-Quellcode:

MatchText

ist dann einfach

Delphi-Quellcode:

Result := IndexText( s, v ) > -1;

[nahpets]

Unter Delphi 7 gibt es u. a. AnsiMatchText, damit könnte es in etwa so funktionieren:

Delphi-Quellcode:

uses StrUtils;
...
procedure TForm1.irgendwas;
begin
  if AnsiMatchText(JvComboMaschine2.Text,['TT','TT / Cutter','TT600','Laser','Primera'])
  and (Trim(JvEditRohwareNr.Text) = '') then begin
    Messagedlg('Rohwaren-Nr. eintragen!', mtwarning, [mbok], 0);
    JvEditRohwareNr.SetFocus;
  else begin
    PanelSpeichern.Visible := True;
    JvHTButtonspeichernOK.SetFocus;
  end;
end;

[Luckner]

Danke nahpets,

es funktioniert und es läßt sich für die Zukunft gut erweitern.

Gruß, Luckner