Ausdrücke vergleichen

[Helmi]

Zitat von Aphton:

Delphi-Quellcode:

function komischeBedingung(): Boolean;
var
  i: Integer;
  ABCD: Array[0..3] of Boolean;

dein Array muss vom Typ String sein, nicht Boolean

[Popov]

Weil es lustig aussieht und ich zu so späten Stunde noch logische Gedanken fassen kann:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  a, b, c, d, x: string;
  r: Boolean;
begin
  x := '1234';
  a := '1';
  b := '2';
  c := '3';
  d := '4';

  r := True;
  r := r and ((Length(a) = 0) or ((Length(a) > 0) and (Pos(a, x) > 0)));
  r := r and ((Length(b) = 0) or ((Length(b) > 0) and (Pos(b, x) > 0)));
  r := r and ((Length(c) = 0) or ((Length(c) > 0) and (Pos(c, x) > 0)));
  r := r and ((Length(d) = 0) or ((Length(d) > 0) and (Pos(d, x) > 0)));

  i := 0;
  if Length(a) > 0 then Inc(i);
  if Length(b) > 0 then Inc(i);
  if Length(c) > 0 then Inc(i);
  if Length(d) > 0 then Inc(i);

  r := r and (i > 0);

  ShowMessage(BoolToStr(r));

Edit:

Zwar nicht wichtig, aber da oben ist einiges doppelt gemoppelt. Geht auch kürzer:

Delphi-Quellcode:

  r := True;
  r := r and ((Length(a) = 0) or (Pos(a, x) > 0));
  r := r and ((Length(b) = 0) or (Pos(b, x) > 0));
  r := r and ((Length(c) = 0) or (Pos(c, x) > 0));
  r := r and ((Length(d) = 0) or (Pos(d, x) > 0));

[Furtbichler]

Delphi-Quellcode:

Function IsContainedOrEmpty(Const pattern, text : String) : Boolean;
Begin
  if pattern='' then 
    result := True
  else 
    result := Pos(pattern,text)<>0;
End;

Function AtLeastOnePatternIsNotEmpty (Const a,b,c,d : String) : Boolean;
Begin
  result := (a+b+c+d<>'')
End;

Function TextContainsAtLeastOneOfThePatterns(Const text, a,b,c,d : String) : Boolean;
Begin
  Result := 
    AtLeastOnePatternIsNotEmpty(a,b,c,d)
  and (
         IsContainedOrEmpty(a,text)
      or IsContainedOrEmpty(b,text)
      or IsContainedOrEmpty(c,text)
      or IsContainedOrEmpty(d,text)
      );
End;

Das finde ich am lesbarsten, denn es entspricht 1:1 deiner Vorgabe. Kein Zählen, keine Zwischenvariablen, keine Tricks.

Hinweis:Man könnte die Funktion 'AtLeastOnePatternIsNotEmpty' performancetechnisch optimieren.

[Aphton]

Zitat von Helmi:

Zitat von Aphton:

Delphi-Quellcode:

function komischeBedingung(): Boolean;
var
  i: Integer;
  ABCD: Array[0..3] of Boolean;

dein Array muss vom Typ String sein, nicht Boolean

Jo stimmt, sry

[BMI]

danke Euch allen,

jo, ich denke die letzte von Furtbichler scheint mir am übersichtlichsten.