Forum: Programmieren allgemein
by Sel2012,
26. Aug 2015
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.:-D
Forum: Programmieren allgemein
by Sel2012,
25. Aug 2015
Mit If...Then geht es im Prinzip ganz einfach:
procedure TForm4.Button11Click(Sender: TObject);
var i:integer;
begin
erg:=strtoint(edit1.text)+zahl1;
circle1a.visible:=false;
Forum: Programmieren allgemein
by Sel2012,
25. Aug 2015
Hallo Blup, vielend Dank für den Vorschlag. Hast du ihn getestet? Bei mir bleibt nämlich das alte Problem, dass ein String ein
String bleibt und keine Anweisung wird. Als optische Darstellung, z.B. im Label, etc. ist das kein Problem. Aber ich benötige ja eine Anweisung.
Forum: Programmieren allgemein
by Sel2012,
25. Aug 2015
Hallo liebe Spezialisten,
ich möchte mit FireMonkeyMobile eine variable Anzahl von Kreisen darstellen.
Natürlich kann ich für jede Situation mit ButtonXClick jeden gewünschten Kreis einzeln mit visible ansprechen (Siehe script 1).
procedure TForm4.Button1Click(Sender: TObject);
begin
circle2a.visible:=false;
circle3a.visible:=false;
circle4a.visible:=false;
circle5a.visible:=false;
...