-
Forum: Object-Pascal / Delphi-Language
Delphi
by naudoc,
27. Nov 2006
Ich nehme an, dass vor das 2. trystrtoint auch noch ein Komma soll!?
Wenn ich es genau so mache, bekomme ich in dem PopUp immer die Zahl die in Edit1 steht, ist dort ein Buchstabe, dann Word 0 angezeigt. Die Fehlermeldung kommt nie...
Und: Geht das ganze auch mit 'real'-Zahlen? und mit...tofloat und floatto... ?
mfG
PS: ich probier jetzt deine 1. Lösung...
Edit: Danke Klaus!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by naudoc,
27. Nov 2006
Ich hab natürlich noch ',' und '-' eingefügt, sonst gingen ja weder negative Zahlen, noch Zahlen mit Komma. Und wie man es möglich macht, dass Zahlen gelöscht werden weiss ich auch nicht...
mfG
PS:
@3_of_8: Danke, ich werds versuchen... ;)
-
Forum: Object-Pascal / Delphi-Language
Delphi
by naudoc,
26. Nov 2006
Hallo,
was ist Dummy, was ist Double, wie funktioniert CheckEdit? :gruebel:
Könntest du das mal programmieren für die variablen a und b, wenn a+b gerechnet werden soll?(Ergebnis soll c sein, und die Editfelder Edit1, Edit2 und Edit3)
Wär vielleicht hilfreich...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by naudoc,
26. Nov 2006
Hallo,
so kann man ja nicht mal mit der Taste über Enter löschen, aber 3,,,4--4,,, usw kann eingegeben werden...
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); //Das hier im OnKeyPress fängt alles ab was keine Zahl is
begin
if not (Key in ) then Key:= #0;
end;
Geht das nicht noch etwas besser?
mfG naudoc
-
Forum: Object-Pascal / Delphi-Language
Delphi
by naudoc,
26. Nov 2006
Sorry, aber ich versteh nicht wie die Funktion funktioniert, deshalb kann ich sie nicht anwenden...
Weiss nicht was an welche Stelle kommt, und warum...
Danke trotzdem!
mfg naudoc
-
Forum: Object-Pascal / Delphi-Language
Delphi
by naudoc,
26. Nov 2006
Hi,
so solls aussehen.
procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
if ((edit1.text=floattostr(a)) or (edit1.text='-'+floattostr(a)+'') or (edit1.text='0') or (edit1.text=''))
-
Forum: Object-Pascal / Delphi-Language
Delphi
by naudoc,
24. Nov 2006
Hallo,
was ist hier Falsch:
procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c:real;
begin
if ((edit1.text=floattostr(a)) or (edit1.text='-'+floattostr(a)+'') or (edit1.text='0') or (edit1.text=''))
and ((edit2.text=floattostr(b)) or (edit2.text='-'+floattostr(b)+'') or (edit2.text='0') or (edit2.text=''))
and ((edit3.text=floattostr(c)) or (edit3.text='-'+floattostr(c)+'') or...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by naudoc,
16. Nov 2006
danke!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by naudoc,
16. Nov 2006
Hi
@mkinzler: Ich versteh nur Bahnhof, sorry
@Luckie: ich hab nach editfeld buchstaben sperren gesucht, aber nichts gefunden. Wonach muss ich suchen?
Danke!
mfG Max
-
Forum: Object-Pascal / Delphi-Language
Delphi
by naudoc,
16. Nov 2006
Hallo,
ich suche (mal wieder für den Taschenrechner :lol: ) einen Code, der Editfelder für Buchstaben und Sonderzeichen sperrt, denn wenn ich zB 'kk'+'kk' "rechne" kommt der Fehler "'kk' ist kein gültiger Gleitkommawert". Dies möchte ich verhindern, oder evtl. sogar so Programmieren, dass sich ein eigenes Popupfeld öffnet mit dem Text "Kann man mit Buchstaben rechnen? Depp!", oder einfach nur...