If - Abfrage variabel gestalten ?

[HolgerCW]

Hallo zusammen,

Ich möchte das Gleichheitszeichen gegen eine Variabel austauschen. Nur wie mache ich das ?

Delphi-Quellcode:

If Test = 1 then
begin

 ...

end;

quasi irgendwie so:

Delphi-Quellcode:

Variabel := '=';

If Test Variabel 1 then
begin

 ...

end;

Gruss

Holger

[guinnes]

Was mir dazu einfällt : Prozeduraler Parameter :

Delphi-Quellcode:

TVergleich : Function(A,B : Integer) : Boolean;

Function Groesser(A,B : Integer) : Boolean;
begin
  Result := A > B;
end;

Function Kleiner(A,B : Integer) : Boolean;
begin
  Result := A < B;
end;


....

var
  VergleichFunc : TVergleich;
begin
  VergleichFunc := Groesser;
  if VergleichFunc(a,b) then
  begin

[divBy0]

Keine Ahnung ob das funktioniert.

Alternativ wäre sowas möglich:

Delphi-Quellcode:

case AbfrageTyp of
  0: if Test = 1 then ...
  1: if Test <> 1 then ...
  2: if Test > 1 then ...
  3: if Test < 1 then ...
end;

[p80286]

Hallo Holger,

auf den ersten Blick ist Deine Anforderung nicht sehr intelligent, aber ich vermute Du hast Dir etwas dabei gedacht, darum kein Verweis auf case/</>......

Dunkel kann ich mich erinnern das zu TP-Zeiten schon einmal jemand dieses Ansinnen hatte und das wurde dann mit einer Vergleichsfunktion gelöst. etwa so:

Delphi-Quellcode:

 if VERGLEICHE(a,b).....

function VERGLEICHE (Wert1,Wert2);
begin
  if regewetter then 
   if wert1=wert2 then result:=true;
  if Schnee then
   if wert1<>Wert2 then result:=true;
......
end;

Gruß
K-H

[divBy0]

Zitat:

Zitat von p80286

Delphi-Quellcode:

 if VERGLEICHE(a,b).....

function VERGLEICHE (Wert1,Wert2);
begin
  if regewetter then 
   if wert1=wert2 then result:=true;
  if Schnee then
   if wert1<>Wert2 then result:=true;
......
end;

Schöner ist dann aber:

Delphi-Quellcode:

 if VERGLEICHE(a,b).....

function VERGLEICHE (Wert1,Wert2);
begin
  if regewetter then 
   result := wert1=wert2;
  if Schnee then
   result := wert1<>Wert2;
......
end;

[p80286]

@Divby0
geschenkt! Noch wissen wir ja nicht was er wirklich will.

Gruß
K-H

[divBy0]

Jo stimmt. :cheers:

[s-off]

Zitat:

Zitat von p80286

geschenkt! Noch wissen wir ja nicht was er wirklich will.

Guter Stil hat nichts mit einer inhaltlichen Anforderung zu tun. Und da muss ich divBy0 recht geben, dass

Delphi-Quellcode:

result := wert1=wert2;

stilgerechter ist als

Delphi-Quellcode:

if wert1=wert2 then result:=true;

Da das allgemeingültig ist, sehe ich das trotz des OT hier gut aufgehoben.

Im Endeffekt wird wohl alles auf so eine Vergleichsfunktion hinauslaufen.

[HolgerCW]

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

[divBy0]

Das ist aber kein Problem. Definiere ein lokale Variable und schreibe für den einen Button eine 1 und für den anderen eine 2 und übergibt dies deiner Prozedur oder du übergibts der Prozedur gleich den Sender und wertest intern aus.

Delphi-Quellcode:

If Sender = BitBtn1 then...

If Sender = BitBtn2 then...

Edit: Natürlich ohne ''.