Wie wird aus einem String eine Anweisung?

[frankyboy1974]

Hallo,

also ich würde sagen, in dem du einen Compiler / Interpreter programmierst.

mfg

[p80286]

Zitat von frankyboy1974:

Hallo,

also ich würde sagen, in dem du einen Compiler / Interpreter programmierst.

mfg

Na nicht ganz sooo schlimm. Bei einem Makro-Assembler werden die eigentlich numerischen Befehle ja auch durch Buchstabenkombinationen repräsentiert. Du mußt also für jeden Kreis und für jede Funktion eine entsprechende Kombination definieren, und die wird dann übersetzt.
ungefähr so:
if Befehl='exit' then Application.Terminate; oder

Delphi-Quellcode:

if Befehl='exit' then Befehlnum:=99;
case Befehlnum of
   99 : Application.Terminate;
end;{case --------------------}

Ein paar Grundkenntnisse im Parser bzw. Compilerbau schaden da allerdings auch nicht.

Gruß
K-H

[frankyboy1974]

Hallo,

also gut, zumindesten einen Assembler.

mfg

[Sel2012]

Mit If...Then geht es im Prinzip ganz einfach:

Delphi-Quellcode:

procedure TForm4.Button11Click(Sender: TObject);
var i:integer;

begin
erg:=strtoint(edit1.text)+zahl1;

 circle1a.visible:=false;
 circle2a.visible:=false;
 circle3a.visible:=false;
 circle4a.visible:=false;
 circle5a.visible:=false;
 circle6a.visible:=false;
 circle7a.visible:=false;
 circle8a.visible:=false;
 circle9a.visible:=false;
 circle10a.visible:=false;

for i  := 1 to erg do

 if i=1 then circle1a.visible:=true
else if i=2 then circle2a.visible:=true
else if i=3 then circle3a.visible:=true
else if i=4 then circle4a.visible:=true
else if i=5 then circle5a.visible:=true
else if i=6 then circle6a.visible:=true
else if i=7 then circle7a.visible:=true
else if i=8 then circle8a.visible:=true
else if i=9 then circle9a.Visible:=true
else if i=10 then circle10a.Visible:=true
end;

Damit kann ich ohne viel Schreibarbeit viele Varianten erstellen, indem nur der Start- und Endwert der For-Schleife geändert wird.

[Mavarik]

Zitat von Sel2012:

Mit If...Then geht es im Prinzip ganz einfach:

OMG liest Du eigentlich auch die Antworten? (#5)

[baumina]

else if else if else if ...

[Sir Rufo]

Oder man schreibt es noch kürzer

Delphi-Quellcode:

procedure TForm4.Button11Click(Sender: TObject);
begin
  erg := strtoint(edit1.text)+zahl1;

  circle1a.visible := Between(erg,1,1);
  circle2a.visible := Between(erg,1,2);
  circle3a.visible := Between(erg,1,3);
  circle4a.visible := Between(erg,1,4);
  circle5a.visible := Between(erg,1,5);
  circle6a.visible := Between(erg,1,6);
  circle7a.visible := Between(erg,1,7);
  circle8a.visible := Between(erg,1,8);
  circle9a.visible := Between(erg,1,9);
  circle10a.visible:= Between(erg,1,10);
end;

[Blup]

Zitat von Mavarik:

Abgesehen vom "<=" Fehler

So wie ich den ursprünglichen Quelltext verstanden habe, möchte er schrittweise alle Kreise einblenden, also zuerst einen, dann zwei, usw. bis alle Kreise sichtbar sind.
Deshalb habe ich den Parameter auch "ACount" genannt.
Soll natürlich nur immer ein Kreis zur selben Zeit sichtbar sein, währe der Vergleich mit "=" erforderlich.
Dann würde ich den Parameter "AIndex" nennen.

[Mavarik]

Zitat von Blup:

So wie ich den ursprünglichen Quelltext verstanden habe, möchte er schrittweise alle Kreise einblenden

Ah ok... hatte ich nicht so verstanden...

[Sel2012]

Zitat von Mavarik:

Zitat von Sel2012:

Mit If...Then geht es im Prinzip ganz einfach:

OMG liest Du eigentlich auch die Antworten? (#5)

Hallo Mavarik, hast du auch die Antwort (#7) gelesen? Vielleicht bin ich ja zu doof, aber bei mir klappt das leider nicht.
Daraus wird keine funktionierende Anweisung, sondern das Ding bleibt ein tatenloser string.