If - Abfrage variabel gestalten ?

[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;