Wie wird aus einem String eine Anweisung?

[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;

[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.

[implementation]

Zitat von Sel2012:

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.

Ich weiß ja nicht, wo du deinen String herzauberst. In dem Vorschlag kommt nämlich gar keiner vor. Also red keinen Scheibenkleister.

[stahli]

Für so etwas brauchst Du halt einen Interpreter (oder einen Compiler, der den text auch interpretiert und daraus eine Exe baut).

Einen Compiler wirst Du nicht bauen können. Das kannst Du gleich vergessen.

Aber Du kannst ggf. einfache Texte interpretieren. Dazu musst Du sie zerlegen und den Sinn ermitteln.
Wenn es eine begrenzte Anzahl von Kombinationen gibt, dann geht so etwas, aber es ist aufwendig.

Wenn Du z.B. einen Text in 3 Teile zerlegst, kannst Du z.B. so etwas machen:

Delphi-Quellcode:

if S1 = 'Close' then Close;

if (S1 = 'Panel1') and (S2 = 'Visible') and (S3 = 'True') then
  Panel1.Visible := True;

if S1 = 'Klose' then Close;

if (S1 = 'Tafel') and (S2 = 'Sichtbar') and (S3 = 'Ja') then
  Panel1.Visible := True;

Also Du gibst dem Programm vor, was es bei bestimmten Texten tun soll.
Das ist aber dann kein wirklicher Pascal-Quelltext, der dynamisch compiliert wird.

Bei Delphi muss der Quelltext komplett vorher kompiliert werden. In der Exe steht dann der komplette ausführbare Maschinencode.
Dynamische Texte zur Laufzeit "nachzuübersetzen" geht halt nicht.

[hoika]

Hallo,
an den Threadersteller.

Bitte noch mal den neuen Quellcode zeigen.

PS:
Warum so negativ zu FindComponent?
Wenn ich verschiedene Arten von Komponenten habe,
fange ich doch nicht an, mir mehrere Arrays zu basteln,
aber hier geht es erst mal um Circles, also OK.

PS2:
Von RemObjects gibt es PascalScript,
da wäre unser Interpreter.


Heiko

[Sir Rufo]

Mit FindComponent verlässt man ein wenig den OOP Pfad und CleanCode ist sowieso schon Geschichte.

Wir kennen die Beweggründe nicht, aber ich vermute mal so etwas wie eine Aussteuerungsanzeige. Anyway, dafür gibt es Klassen (hier wäre wohl ein Frame angesagt) um etwas Komplexeres zusammenzufassen und dadurch in der Handhabung einfacher zu machen.

Wer keine Frames verwenden möchte und auch keine neue Komponente dafür erstellen möchte, der schreibt sich eine einfache Klasse, die dann diese x Controls entgegennimmt und entsprechend ansteuert.

FindComponent ist wie "Schauen wir mal", die Verwendung von Klassen schafft Tatsachen.

Jeder entscheidet selber, ob er mit Tatsachen oder mit Weissagungen programmieren möchte. Ich kann mit Tatsachen allerdings erheblich besser umgehen.