[Delphi] Frage wegen eines rechners

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von Uncle Sam, 10. Oktober 2006 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 10. Oktober 2006
    Frage wegen eines rechners

    Hi,

    Habe nun seit einigen stunden info und wir arbeiten mit Delphi. Wir haben ein Rechner gebastelt. Dieser ist so aufgebaut:

    2 editfelder wo jeweils eine (komma)zahl eingefügt werden kann.
    6 buttons ( +,-,*,/, mwst ausrechnen, bmi ausrechnen)
    mehrere labels die dann das ergebnis anzeigen.

    in die editfelder kann man nur Zahlen und kommas eingeben und es kommen keine fehlermeldeungen wenn man zb keine zahl oder versucht durch 0 zu teilen, sonder lediglich ein messagedlg. Das Problem ist nur das man mehr als ein komma einfügen kann und somit das programm einen fehler entdeckt.
    Meine Frage ist nun, wie man es schafft, dass man nur ein komma schreiben kann.

    thx 4 hlp,
    Uncle Sam
     

  2. Anzeige
  3. #2 11. Oktober 2006
    AW: Frage wegen eines rechners

    einfach dashier als prozedur zu deinen beiden edits anfügen:
    Code:
    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
    var 
     string1: string; 
    begin 
     string1:=edit1.text; 
     
     //allgemeine Sperrung von allen Zeichen ausser 
     //backspace, (-) , (,) und Zahlen 
     if not (key in[#8,#44,#45,#48..#57]) then key:=#0; 
     
     // das Minus darf nur am Anfang benutzt werden 
     if (edit1.selstart <> 0) and( key=#45) then key:=#0; 
     
     // nur ein Komma 
     if (pos(#44,string1)>0) and (key=#44) then key:=#0; 
     
     // kein Komma am Anfang 
     if (edit1.SelStart=0) and (key= #44) then key:=#0; 
     
     // Kein -,xxx 
     if (edit1.selstart=1) and 
     (string1[1]='-') and 
     (key=#44) then 
     key:=#0; 
    end;
    ich hoffe dass die kommentare ausreichen ^^
     
  4. #3 12. Oktober 2006
    AW: Frage wegen eines rechners

    jo thx hast mir sehr geholfen funzt jetzt alles

    bewertung hast nu bekommen

    thx 4 hlp,
    Uncle Samy

    -close-
     

  5. Videos zum Thema
Die Seite wird geladen...
Similar Threads - Delphi Frage wegen
  1. Antworten:
    3
    Aufrufe:
    369
  2. Antworten:
    10
    Aufrufe:
    967
  3. Antworten:
    2
    Aufrufe:
    745
  4. Antworten:
    3
    Aufrufe:
    575
  5. Antworten:
    3
    Aufrufe:
    972