Taschenrechner - String durchsuchen

[Speedi2000]

ah ok inttostr() ^^
Danke, jetzt gibt er z.B. 6 zurück, und weiter?

[DeddyH]

Jetzt hast Du die Position, die Du im Copy()-Befehl angeben kannst

[Speedi2000]

kenn den copy befehl noch net, danke ^^

//Edit: wie mach ich das denn dass er bis zum nächsten Zeichen und dem Zeichen davor macht?

[Speedi2000]

Hmm komm echt noch nicht wirklich mit klar, wie krieg ich es hin dass er es bis zum nächsten Zeichen nur ausliest bzw halt zu dem zeichen davor?

[DeddyH]

Der Copy()-Befehl hat 3 Parameter: den Ausgangsstring, Startposition in diesem und die Länge (nicht die Position), bis zu der kopiert werden soll. Bsp.:SubString := Copy(Ausgangsstring,1,5); Damit werden ab Position 1 5 Zeichen kopiert und in Substring zurückgegeben.

Ist doch eigentlich verständlich, wo hängt es denn?

[Speedi2000]

Ja die Copy funktion hab ich ja jetzt verstanden.

Es hängt halt da wie ich es realisieren soll dass er zB aus
4-2*2+11-5

mit

neu.caption := inttostr(pos('+',term.caption));

nur das 2+1 rausziehe.

Weil bei copy muss ich ja denn ne gewisse Länge angeben.

und es muss ja irgendwie sowas wie count() geben um die anzahl der Zeichen bis zum nächsten Operator (in dem Fall halt das -) auslesen zu können.

Danke

[Delphi-Narr]

Hallo, ich habe das auch mal für die Schule gemacht.
Hier ein Thread dazu

Hier wird der Term in Rechenzeichen und Zahlen zerteilt und in eine Liste geschrieben:


aus

12*2+3/2

wird dann

12
*
2
+
3
/
2

Dann wird diese Liste nach * und / durchsucht und die Zahlen davor und danach werden entsprechend ausgerechnet.

In Zeile 2 gefunden : *

Also 12*2 = 24

Liste sieht wie folgt aus:

24+3/2

Das macht man so lange, bis keine * und / mehr da sind, und macht das Ganze mit + und - .
Wenn auch die alle weg sind, also alles ausgerechnet wurde, nimmt ,man dann die erste Zeile als Ergebnis.

Liebe Grüße!

[himitsu]

So als Tipp (weil ich grad keine Lust/Zeit hab alles nochmals zu sagen:

Such mal hier im Forum nach Matheparsern, denn es gibt da schon einige Threads, wo alles Nötige erklärt wird.

z.B.: http://www.delphipraxis.net/internal...t.php?t=165053

[edit]
toll, da ist mir ja 'ne gewisse Person zuvorgekommen

[Speedi2000]

Ich habe die letzten Stunden mal ein bisschen probiert und steh nun vor einem Fehler, der mir völlig unlogisch erscheint.

Habe das Programm mal angehangen, wäre lieb, wenn das mal jemand durchgucken könnte.

Die Fehlermeldung kommt z.B. wenn man 5+5+5+5-5 eingibt.↲↲Ah habe meinen fehler denke ich gefunden. Nämlich, dass er die zweite schleife noch nach der ersten abarbeitet. Gibt es sowas wie ne die-funktion wie in php auch in delphi?

[himitsu]

"Die" dürte einer Exception entsprechen:

raise Exception.Create('hier die Fehlerbeschreibung');