Hallo,

gibt es eine Möglichkeit so eine Abfrage


  if (feldaktive[161]<>1) and (feldaktive[162]<>1) and (feldaktive[163]<>1) and (feldaktive[164]<>1) and (feldaktive[165]<>1) and (feldaktive[166]<>1) and (feldaktive[167]<>1) and (feldaktive[168]<>1) and (feldaktive[169]<>1) and (feldaktive[170]<>1) then
zu vereinfachen?


ferby

Spontan (auf Grund der Nummerierung) käme mir da eine Schleife in den Sinn, die vllt. einen bool-Wert setzt und sofort abgebrochen wird, wenn der Wert doch 1 ist. Hilft dir das irgendwie?


Edit: Nanu? Wo kam denn der Strich vor der 1 her?

zusammenfalten · markieren

Delphi-Quellcode:

var i: integer; aBool: boolean;
begin
aBool := False;
For i := 161 to 170 do
  if feldaktive[i] <> 1 then
    aBool := true
  else
    begin
      aBool := false;
      break;
    end;
if aBool then

Das wäre ein möglicher Weg.

//edit: Ich hätte mir die Idee vorher patentieren lassen sollen

Hast du doch, ich habe sie ja von dir abgeschrieben.

Zitat von ferby:

  if (feldaktive[161]<>1) and (feldaktive[162]<>1) and (feldaktive[163]<>1) and (feldaktive[164]<>1) and (feldaktive[165]<>1) and (feldaktive[166]<>1) and (feldaktive[167]<>1) and (feldaktive[168]<>1) and (feldaktive[169]<>1) and (feldaktive[170]<>1) then

Sodala, ich hab nen bischen experimentiert und bin der meinung so funktioniert das auch:
if not(1 in [Feldaktive[161], Feldaktive[162],...]) Then

Hallo,

danke, hat das ganze wenigstens ein wenig verkürtzt.


ferby

Zitat von ferby:

Hallo,
gibt es eine Möglichkeit so eine Abfrage
  if (feldaktive[161]<>1) and (feldaktive[162]<>1) and (feldaktive[163]<>1) and (feldaktive[164]<>1) and (feldaktive[165]<>1) and (feldaktive[166]<>1) and (feldaktive[167]<>1) and (feldaktive[168]<>1) and (feldaktive[169]<>1) and (feldaktive[170]<>1) then zu vereinfachen?
ferby

Ich würde ein Funktion daraus machen

markieren

Delphi-Quellcode:

function IstImBereich(Wert: Integer; WerteArray: array of Integer; Start, Ende: Integer;
var
  i: Integer;
begin
  Result := True;
  for i := Start to Ende do
    if Wert = WerteArray[i] then Exit;
  Result := False;
end;

Dann kannst du im deine Abfrage wie Folgt umschreiben:

  if not IstImBereich(1, feldaktive, 161, 170) then ... Das ist flexibel und liest sich gut.

Ciao HeZa

könnte man das net so lösen?

if (1 in Arr[170,171,172...]) then

Zitat von glkgereon:

könnte man das net so lösen?

if (1 in Arr[170,171,172...]) then

Ja, schau mal weiter oben, hab ich ungefähr so schon vorgeschlagen, bei mir ist nur noch ein not drin...

@HeZa:
Ich würde das nicht so machen. Denn in deine for-schleife hast variable start- und Endwerte. Da kann die Compileroptimierung nicht so gut wirken. aus for I:=1 to 3 do showmessage(i); würde mit der compileroptmierung soweit ich weiß

markieren

Delphi-Quellcode:

showmessage(1);
showmessage(2);
showmessage(3);

werden, aber mit veraibeln start und Endwert geht das glaube ich nicht.

ferby's eigentliche Lösung ist zwar blöd zu lesen, aber auf grund der compileroptmierung ziemlich gut. Am besten wäre es noch die werte, die am wahrscheinlichsten false sind nach vorne zu schreiben.

Ich muss mir unbedingt diese Compileroptimierungsmethoden patentieren lassen.