Zur Erklärung.
Ein und die selbe Procedure wird von zwei Buttons aus gestartet.
Wenn Sie von Button1 aus aktiviert wird, soll nach "=" abgefragt werden und wenn aus Button2 gestartet wird soll nach "<>" abgefragt werden. Es handelt sich um das zweite Abfragekennzeichen bei 'RW_VERSCHROTTUNG'.
Die Abfrage sieht so aus:
Delphi-Quellcode:
If (DM_Geraete.Query1['RW_NUMMER'] <> Null) AND (DM_Geraete.Query1['RW_VERSCHROTTUNG'] = Null) then
begin
end;
Ich dachte mir das ich vor der Abfrage einfach folgendes mache:
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;
Nur geht das nicht.
Gruss
Holger