2 Probleme....

[NightFox]

Hi, also problem 1: möchte einen taschenrechner programmieren bei dem man die rechnung in ein editfeld eingibt und das tool das dann rechent. beispiel: man gibt '8*(3+5)' ein und dann gibt das tool 64 aus.

Problem 2: es ist mir schon öfters vorgekommen dass ich um die 20 labels ändern musste und da hab ich immer folgendes gemacht:
label1.caption...
label2.caption...
..
label20.caption...

kann man das nicht schneller machen? So auf die art for i:=1 to 20 do label[i].caption.. oder so, bin ratlos

MFG NightFox

[Jelly]

Bitte nur eine Frage pro Thread. Editiere also deinen Beitrag bitte so um und erstell für deine 2. Frage einen eigene Thread.

[fLaSh11]

(FindComponent('Label'+IntToStr(i)) as TLabel).Caption:='huhu'

[TeronG]

Zitat von fLaSh11:

(FindComponent('Label'+IntToStr(i)) as TLabel).Caption:='huhu'

Dauert "recht lange" .. wenn man das öffter machen will dann ist wohl
 MyLabels : array[1..20] of Tlable schneller bzw. schöner


BTW: "lösche" lieber die erste Frage sonst müssen wir alle Antworten ändern

[scrat1979]

Hallo,

zu Deinem 2. Problem. Deine Idee war schon mal nicht schlecht

Hier eine Lösung (ungetestet):

  for i := 1 to 20 do (findcomponent('label' + inttostr (i))as tlabel).caption := 'Das ist label Nr. ' + IntToStr(i); Grüsse,

SCRaT

EDIT: Ohhh, da waren grad einige schneller als ich

EDIT2: Source verbessert, danke an fLaSh11

[fLaSh11]

scrat du hast eine Klammer vor FindComponent vergessen!

[Phoenix]

Als Ergänzung zu Jelly noch folgendes: Ändere Bitte Deinen Titel in was Aussagekräftiges!
Probleme haben hier alle.

[fLaSh11]

Zum 1.Problem:
Du musst die Gleichung (8+...) parsen. Das heißt sie rekursiv auseinandernehmen. Und danach alles von innen nach außen ausrechnen ...

Hier ist ein sehr schönes Beispiel: Klick

[TeronG]

bzw.: man muss die array-labels nicht zur laufzeit erzeugen ... es reicht vollkommen, wenn man sie einmalig (onCreate oder so) zuweist (label[1] := Label1, ...) und danach kann man sie einfach über Label[1].Caption ansprechen.

[NightFox]

Ok vielen dank!