Servus ! Hab mir vorgenommen einen TR zu programmieren, als Vorbild den Windwos TR. Habe einen Stack erstellet auf den ich mit Pop Push usw zugreifen kann. Einen Num Stack für die Zahlen und einen Operatorstack. Habe in einer Hirarchie festgelegt welcher Operator am stärksten bindet , am zweistärksten usw. 0 bekommen die stärksten mit auf den Stack , 1 die zweitstärksten usw. So wollte ich dann vergleichen ob das Object von der Operatorzahl auf dem Stack höhe rist als das neue usw, um Punkt- vor- Strich-Rechnung zu realisieren. Habe aber ein Problem: wenn man 1+ eingibt und dann wieder eine Zahl, dann wird das Editfeld gelöscht und die neue Zahl steht da, alles richtig, solange bis er das erste Zwischenregebnis anzeigt, dann muss man jedoch zweimal auf den Plus button klicken damit er mit dem Zwischenregebnis weiterrechnet. Bei einem Klick bleibt es stehen und es passiert nichts. Hier mal der Code:
Code:
procedure TForm1.EAusgabeKeyPress(Sender: TObject; var Key: Char);
var
OpPosition: integer;
OpAltPosition: integer;
Zahl,ZahlAlt: extended;
OpAlt : String;
begin
inc(anz);
if (Op <> '') and (anz = 1) then
EAusgabe.Text := '';
if Key in [',','0','1','2','3','4','5','6','7','8','9'] then exit;
if OpPos(Key,OpPosition)= true then {Wenn key ein Operator ist}
begin
Label1.Caption:= Key;
Zahl:= StrToFloat(EAusgabe.Text);
if OpStack.IsEmpty= false then
begin
OpStack.PopObject(TObject(OpAltPosition));
if OpAltPosition <= OpPosition then
begin
ZahlAlt:= StrToFloat(NumStack.Pop);
OpAlt:= OpStack.Pop;
case OpAlt[1] of
'+':
begin
ZahlAlt:= ZahlAlt + Zahl;
EAusgabe.Text:= FloatToStr(ZahlAlt);
NumStack.Push(FloatToStr(ZahlAlt));
Anz:= 0;
end;
'-':
begin
ZahlAlt:= ZahlAlt - Zahl;
EAusgabe.Text:= FloatToStr(ZahlAlt);
NumStack.Push(FloatToStr(ZahlAlt));
Anz:= 0;
end;
end;
end;
end
else
begin
Op := Key;
Anz:= 0;
OpStack.Push(key);
OpStack.PushObject(key,TObject(OpPosition));
NumStack.Push(FloatToStr(Zahl));
exit;
end;
end;
Key:= #0;
end;
Vielleicht sieht jemand wo mein Fehler liegt.
Gruß Flo