Entwickler-Ecke :: Thema anzeigen

kad_we - Sa 17.01.04 17:59
Titel: Operator- Variablen

gibt es soetwas, wie Variablen für Operatoren?
z.B.:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var op: operator;
                i,j: real;
begin
for op:= + to / do
showmessage(floattostr(i op j));
end;

oder so ähnlich... ist das möglich?

Moderiert von Peter Lustig: Topic Verschoben

DeCodeGuru - Sa 17.01.04 18:03

Nein, Operatorvariablen gibt es nicht. Ich nehme mal an, dass du einen Parser für Formeln coden willst.

Das einzige, was mir einfallen würde, wäre es mit Strings zu versuchen. Das würde zwar in einer etwas größeren Case-Verzweigung enden, aber mehr fällt mir so auf die Schnelle nicht ein. Sorry. :?

Christian S. - Sa 17.01.04 18:08

Hallo!

Nicht ganz dasselbe, aber vielleicht hilft es Dir:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

type
  tMyOpFunc = function(const a, b : Real) : Real;

const
  n = 2;

var
  Form1: TForm1;
  myFuncs : Array[0..n-1] of TMyOpFunc;

implementation

{$R *.dfm}

function add(const a, b : Real) : Real;
begin
  result := a+b;
end;

function divide(const a, b : Real) : Real;
begin
  result := a/b;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  myFuncs[0] := add;
  myFuncs[1] := divide;
end;


procedure TForm1.Button1Click(Sender: TObject);
VAR c, d : Real;
    i : Integer;
begin
  c := 4; d := 2;

  for i:=0 TO n-1 do
    ShowMessage(FloatToStr(myFuncs[i](c,d)));
end;

MfG
Peter

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!