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