Hallo zusammen,

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

markieren

Delphi-Quellcode:

If Test = 1 then
begin

 ...

end;

quasi irgendwie so:

markieren

Delphi-Quellcode:

Variabel := '=';

If Test Variabel 1 then
begin

 ...

end;

Gruss

Holger

Was mir dazu einfällt : Prozeduraler Parameter :

zusammenfalten · markieren

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

Keine Ahnung ob das funktioniert.

Alternativ wäre sowas möglich:

markieren

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;

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:

markieren

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

Zitat von p80286:

markieren

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:

markieren

Delphi-Quellcode:

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

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

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

Gruß
K-H

Jo stimmt.

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
result := wert1=wert2; stilgerechter ist als
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.

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:

markieren

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:

zusammenfalten · markieren

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

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.

markieren

Delphi-Quellcode:

If Sender = BitBtn1 then...

If Sender = BitBtn2 then...

Edit: Natürlich ohne ''.