If - Abfrage variabel gestalten ?

[Highttower]

Zitat von jfheins:

Vielleicht so in der Art:

Delphi-Quellcode:

procedure BitBitton1Click
begin
Calculate(true);
end;

procedure BitBitton2Click
begin
Calculate(false);
end;

procedure Calculate(a: Boolean)
begin
If (DM_Geraete.Query1['RW_NUMMER'] <> Null) AND ((DM_Geraete.Query1['RW_VERSCHROTTUNG'] = Null) xor a) then 
begin 

end;
end;

warum binär mit xor vergleichen????

Schöner ist doch:

Delphi-Quellcode:

procedure Calculate(a: Boolean)
begin
If (DM_Geraete.Query1['RW_NUMMER'] <> Null) AND ((DM_Geraete.Query1['RW_VERSCHROTTUNG'] = Null) AND a) then 
begin 

end;
end;

Es geht hier doch nur um einfache Boolsche Algebra -> Komplementärgesetze

HTH

Tobi