If - Abfrage variabel gestalten ?

[blauweiss]

Zitat von HolgerCW:

Delphi-Quellcode:

With Sender as TBitBtn do
begin

  If Name = 'BitBtn1' then Kennzeichen := '=';
  
  If Name = 'BitBtn2' then Kennzeichen := '<>';

end;

If (DM_Geraete.Query1['RW_NUMMER'] <> Null) AND (DM_Geraete.Query1['RW_VERSCHROTTUNG'] Kennzeichen Null) then
begin

end;

Hallo HolgerCW,

so würde es z.B. gehen:

Delphi-Quellcode:

  equalrequired := (Sender as TBitBtn).Name = 'BitBtn1';

If (DM_Geraete.Query1['RW_NUMMER'] <> Null) AND 
   ((DM_Geraete.Query1['RW_VERSCHROTTUNG'] = Null) = equalrequired) then
  begin

  end;

Gruß
blauweiss