Ausdrücke vergleichen

[Helmi]

hallo,

vielleicht so:

Delphi-Quellcode:

var
  count1: Integer;
  count2: Integer;

begin
  count1 := 0;
  count2 := 0;

  if A <> '' then
    begin
      inc(count1);

      If pos(A, XSTRING) > 0 then
        inc(count2);
    end;
 
  if B <> '' then
    begin
      inc(count1);

      If pos(B, XSTRING) > 0 then
        inc(count2);
    end;
 
  if C <> '' then
    begin
      inc(count1);

      If pos(C, XSTRING) > 0 then
        inc(count2);
    end;
 
  if D <> '' then
    begin
      inc(count1);

      If pos(D, XSTRING) > 0 then
        inc(count2);
    end;

  If count1 > 0 then
    begin
      If count1 = count2 then
        ShowMessage('yaba daba do')
      else
        ShowMessage('Mind. 1 Text ist nicht im XSTRING vorhanden!');
    end
  else
    begin
      ShowMessage('Mindestens ein Text fehlt!');
    end;
end;

Sobald ein Text vorhanden ist wird count1 hochgezählt
Wenn dann der jeweilige Text vorhanden ist, dann wird count2 hochgezählt
Ist count1 größer null wurde mind. in ein Edit etwas eingegeben. Sind beide Werte gleich, dann waren auch noch beide Edit-Texte im XString vorhandeng gewesen

[Edit]

Delphi-Quellcode:

procedure check_Text(const S: String; const XString: String; var count1: Integer; count2: Integer);
begin
  If S <> '' then
    begin
      inc(count1);
      If Pos(S, XString) > 0 then
        inc(count2);
    end;
end;

{...}

var
   count1: Integer;
   count2: Integer;

begin
  count1 := 0;
  count2 := 0;

  check_Text(A, XSTRING, count1, count2);
  check_Text(B, XSTRING, count1, count2);
  check_Text(C, XSTRING, count1, count2);
  check_Text(D, XSTRING, count1, count2);

  If count1 > 0 then
     begin
       If count1 = count2 then
         ShowMessage('yaba daba do')
       else
         ShowMessage('Mind. 1 Text ist nicht im XSTRING vorhanden!');
     end
   else
     begin
       ShowMessage('Mindestens ein Text fehlt!');
     end;
end;