Taschenrechner mit Grundrechenarten

[Dannyjoe]

Hallo!

Ich habe mal, obder besser gesagt, mein Vater und ich, haben mal einen Taschenrechner programmiert...

Da ich ein Anfänger bin, hat mir mein vater(Hat ein HBCI Modul geschrieben) geholfen, wie man die Idee des Programmes in Quelltext schreibt...

Bewertet mal bitte das Ergebnis!

[Ultimator]

Man kann mehrere Kommata eingeben, unterbinde das besser

[Nicodius]

ähhhhm.. bei mir is das fenster nen desktop weiter8hab aber leider nur einen) vieeeel zu weit rechts .. ich seh nix nur wie es sich beim "wiederherstellen" mit animation von windows weit nach rechts wandert

[Stevie]

Erstmal herzlich willkommen!!!

Positiv aufgefallen ist mir als erstes, dass das Teil Punkt-vor-Strich-Rechnung beherrscht! (jaja, kann nicht jeder TR)
Schön wäre es auch noch, wenn ich per Tastatur meine Rechnung eingeben könnte. Und das Teil darf ruhig etwas kleiner (ich mein das Formular und die Buttons) sein...

Ansonsten weiter so!

P.S.: Das Setzten der Position auf poScreenCenter sollte das Problem mit der Position beheben...

[Dannyjoe]

Zitat von Ultimator:

Man kann mehrere Kommata eingeben, unterbinde das besser

Ja, dass ist mir auch schon aufgefallen, doch wie kann ich das in den Quelltext einbauen?

Gruß, Dannyjoe

P.S.: Habe das ganze jetzt nochmal kleiner gemacht, und das memo rausgeschmissen...
wenn mir irgendjemand sagen könnte, wie ich eine "History" in die memo schreiben kann, bitte posten

[Ultimator]

Du kannst im OnKeyDown des Edits mit

Delphi-Quellcode:

begin
if chr(Key=',') then
  begin
   if (Key in Edit3.Text) then
    Key:=#0;
   end;
end;

Ungetestet.

[Steve]

Hi,

Klick auf "+/-" bei leerem Eingabefeld ergibt

Zitat:

---------------------------
Trechner
---------------------------
Zugriffsverletzung bei Adresse 00455EFD in Modul 'TRechner.exe'. Lesen von Adresse 00000000.
---------------------------
OK
---------------------------

Gruß
Stephan

[Dannyjoe]

Zitat von Ultimator:

Du kannst im OnKeyDown des Edits mit

Delphi-Quellcode:

begin
if chr(Key=',') then
  begin
   if (Key in Edit3.Text) then
    Key:=#0;
   end;
end;

Ungetestet.

Dann sagt er mir:

Zitat:

[Fehler] Main1.pas(217): Inkompatible Typen
[Fehler] Main1.pas(219): Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] Main1.pas(220): Inkompatible Typen: 'Word' und 'Char'
[Fataler Fehler] TRechner.dpr(5): Verwendete Unit 'Main1.pas' kann nicht compiliert werden

[Nicodius]

geniestreich ultimator "chr(Key=',')" kann ja nicht klappen ^^

[Dannyjoe]

Zitat von Steve:

Hi,

Klick auf "+/-" bei leerem Eingabefeld ergibt

Zitat:

---------------------------
Trechner
---------------------------
Zugriffsverletzung bei Adresse 00455EFD in Modul 'TRechner.exe'. Lesen von Adresse 00000000.
---------------------------
OK
---------------------------

Gruß
Stephan

Ja, das wollte ich dann mit nem MessageDlg ausgeben, der dann so aussieht:

Delphi-Quellcode:

if eingabe.text:= '' then
    MessageDlg('Du musst zuerst eine Zahl eingeben, bevor das Vorzeichen geändert werden kann.',mtError,[mbOK],0);

doch dann kommt der Fehler beim Compilieren:

Zitat:

der Ausdruckstyp muss Boolean sein