Punkt vor Strich?

[Illuminator-23-5]

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!

[Die Muhkuh]

@ 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!)

[moin339]

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.

[Die Muhkuh]

Na das mit dem WindowsRechner will net.

Hat jemand mal ein Beispiel code?

[moin339]

Probier das ganze mal so wie Illuminator das gesagt hat:

Zitat von Illuminator-23-5:

du könntest von vorne bis hinten alles durchgehen und alle multiplikationen/divisionen erledigen und erst in einem 2. Schritt addition/subtraktion
5+4*2-5=
5+8-5=
8

Wo ist denn genau dein Problem? Oder sollen wir den Taschenrechner schreiben

ciao, moin339

[Daniel B]

@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!

[Die Muhkuh]

@Daniel B

werd ich machen!

@all

Ja ich komm nun trotdem nicht weiter. Hat den niemand nen Beispiel code für mich?

[Illuminator-23-5]

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;

[Luckie]

Such mal nach delphi formelparser.

[kasi]

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