Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi TEdit rein numerisch --> edit1.value !? (https://www.delphipraxis.net/16134-tedit-rein-numerisch-edit1-value.html)

Praktikant 11. Feb 2004 09:06


TEdit rein numerisch --> edit1.value !?
 
Gibt's eine Möglichkeit, direkt mit einem editfeld Inhalt zu rechnen, ohne mit StrToInt vorher den text zu wandeln. Sprich anstatt edit.text eine art edit.value

Tester 11. Feb 2004 09:10

Re: TEdit rein numerisch --> edit1.value !?
 
Hallo!

Versuch die Ergebnissmenge die du im Edit hast einfach mit StrToFloat umzuwandeln, dann kannst du damit rechnen.

Oder nimm SpinEdits.

Gruß Tester

Tester 11. Feb 2004 09:12

Re: TEdit rein numerisch --> edit1.value !?
 
Als Beispiel :

Delphi-Quellcode:
  Edit.Text := FloatToStr( Wert1 + Wert2 );

Praktikant 11. Feb 2004 13:16

Re: TEdit rein numerisch --> edit1.value !?
 
wo finde ich das spinedit :gruebel:

Die andere Variante ist ja eigentlich im prinzip wieder mein strtoxx(edit) usw.
Bei etwas komplexeren Rechnungen ist das eben nervig und mit einem
Delphi-Quellcode:
edit3.value:=edit1.value+edit2.value
gings eben schneller
als mit
Delphi-Quellcode:
edit3.text:=IntToStr(StrToInt(edit1.text)+StrToint(edit2.text));

MikeS 11. Feb 2004 13:23

Re: TEdit rein numerisch --> edit1.value !?
 
moin

schon mal daran geacht deine eigene funktion zu schreiben!
macht bei vielem einsatz auf jeden fall sinn;

du übergibst deine edits und erhälst dann das ergebnis!

:wink:

Praktikant 11. Feb 2004 15:26

Re: TEdit rein numerisch --> edit1.value !?
 
tjo, wenn man wüsste wie :?

So lange beschäftige ich mich noch nicht mit Delphi - durch mein Praktikum wurde ich jedoch dazu genötigt :lol:

MikeS 11. Feb 2004 15:33

Re: TEdit rein numerisch --> edit1.value !?
 
wie sehen denn deine rechnungen so aus!
immer die gleichen operationen?

du könntest ja was in dieser art machen!

Delphi-Quellcode:
function berechne(edit1.text, '+', edit2.text, '-', edit3.text): integer;
begin
  // hier die berechnung
  // für edit1.text und edit.text und edit3.text mußt du in der Deklaration natürlich andere variabeln nehmen
  // die Anordnung würde ich auch sortieren
end;
war nur um dir uz veranschaulichen wie ich es meinte!
Viel Spaß;

Vielleicht hilfts Dir ja auch gar nicht!

Praktikant 12. Feb 2004 08:08

Re: TEdit rein numerisch --> edit1.value !?
 
das hilft nicht weiter.
Die Berechnungen sind nicht immer identisch, dafür sind's eben einige edit-Feder mehr, so dass es eben einiges an Schreibarbeit sparen würde wenn man sich die StrTo-Wandlung usw. sparen könnte und eben direkt das editfeld anstatt als string als integer bzw. extended behandeln könnte.

FriFra 12. Feb 2004 09:06

Re: TEdit rein numerisch --> edit1.value !?
 
Dann nimm doch wirklich SpinEdit (Beispiele) oder leite Dir ein eigenes Edit von TEdit ab, dann kannst Du auch die Eigenschaft Value einbauen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz