Re: Punkt vor Strich?
ich glaub, du machst das ganze ein bisschenzu ungeschickt!
versuchs doch, wie beim normalen Windows-rechner zu machen, ein edit, und du rechnest immer gleich das zwischenergebnis aus! |
Re: Punkt vor Strich?
@ Illu
kann auch sein! Setzt mich mal dran und probiers mal aus das mit dem Windows Rechner! (Das ich da nicht selbst drauf gekommen bin!) :angle2: |
Re: Punkt vor Strich?
Moin!
Bei langen Rechnungen wäre es aber besser wenn man die ganze Rechnung is edit-Feld eintippen kann und dann erst auf "gleich" drückt. Man kann dann Tippfehler besser korigieren. Die besseren elektronischen Taschenrechner (also wirkliche Taschenrechner, keine PC-Programme) machen das ja auch so. |
Re: Punkt vor Strich?
Na das mit dem WindowsRechner will net.
Hat jemand mal ein Beispiel code? |
Re: Punkt vor Strich?
Probier das ganze mal so wie Illuminator das gesagt hat:
Zitat:
ciao, moin339 :coder: |
Re: Punkt vor Strich?
@Spider,
Bitte poste das nächste mal solch lange Prozeduren, bzw. Code-Schnippsel als Unit oder als TextFile, dann muss man nicht so arg lange Scrollen. Danke! |
Re: Punkt vor Strich?
@Daniel B
werd ich machen! @all Ja ich komm nun trotdem nicht weiter. Hat den niemand nen Beispiel code für mich? |
Re: Punkt vor Strich?
ich hab hier mal was zusammengebastelt
Delphi-Quellcode:
function min(a, b: integer): integer;
begin case a>b of true: result := b; false: result := a; end; end; function max(a, b: integer): integer; begin case a<b of true: result := b; false: result := a; end; end; function allAway(Rch: string): string; var b, e, i: integer; begin Rch := ' ' + rch + ' '; while max(pos('*', rch), pos('/', rch)) > 0 do begin i := min(pos('*', rch), pos('/', rch)); if pos('*', rch) = 0 then i := pos('/', rch); if pos('/', rch) = 0 then i := pos('*', rch); b := i-1; e := i+1; while rch[b-1] in ['0'..'9'] do dec(b); while rch[e+1] in ['0'..'9'] do inc(e); if rch[i] in ['*', '/'] then begin case Rch[i] of '*': insert(IntToStr(StrToInt(copy(rch, b, i - b)) * StrToInt(copy(rch, i + 1, e - i))), rch, e+1); '/': insert(IntToStr(StrToInt(copy(rch, b, i - b)) div StrToInt(copy(rch, i + 1, e - i))), rch, e+1); end; delete(rch, b, e - b + 1); end; end; result := copy(rch, 2, length(rch) - 2); end; |
Re: Punkt vor Strich?
Such mal nach delphi formelparser.
|
Re: Punkt vor Strich?
Unter http://www.programmersheaven.com/zone2/cat265/2125.htm gibt es eine Komponente die das alles schon macht!
Sind nur 700 Zeilen Code und auch gut dazu geeignet, um zu lernen wie man das macht. KASI |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:38 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz