AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Edit.Text muss mindestens 1 Zahl haben

Ein Thema von Äfan · begonnen am 21. Aug 2004 · letzter Beitrag vom 21. Aug 2004
Antwort Antwort
Äfan
(Gast)

n/a Beiträge
 
#1

Edit.Text muss mindestens 1 Zahl haben

  Alt 21. Aug 2004, 01:46
Hallöle,

Ich benötige mal wieder euere Hilfe. Ich mache so einen Farbwähler mit 3 Trackbars und 3 Edits. Wenn man den wert in einer Edit ändert wird der Wert gleich in der Trackbar dargestellt. Wenn der User aber garnichts in das Edit einträgt, gibt es eine Fehlermeldung und der Laufzeitprozess wird abgebrochen. Wie kann ich es einstellen bzw. unterbinden das garnichts in der Edit steht ?
  Mit Zitat antworten Zitat
Benutzerbild von Trouble_Maker
Trouble_Maker

Registriert seit: 30. Jan 2003
244 Beiträge
 
Delphi 6 Personal
 
#2

Re: Edit.Text muss mindestens 1 Zahl haben

  Alt 21. Aug 2004, 02:02
war schon lang hier nich mehr aktiv aber ein bisschen Delphi kann ich glaub ich noch

also:

if edit1.text = ' ' then showmessage('Das Edit-Feld darf nicht leer sein');


hoffe das ist das was du gemeint hast


cu Trouble_Maker
  Mit Zitat antworten Zitat
Äfan
(Gast)

n/a Beiträge
 
#3

Re: Edit.Text muss mindestens 1 Zahl haben

  Alt 21. Aug 2004, 02:15
Das Problem ist das, dass Rot.Position := StrtoInt(RotWert.Text); mit im Block steht. Also sogar wenn ich ne Meldung zeig, gibts ne Fehlermeldung. IF-Then ist doch Wenn-Dann. Gibt auch Wenn nicht-Dann ?
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#4

Re: Edit.Text muss mindestens 1 Zahl haben

  Alt 21. Aug 2004, 02:30
natürlich:

if not ... then
Gruß
Hansa
  Mit Zitat antworten Zitat
Benutzerbild von dizzy
dizzy

Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Edit.Text muss mindestens 1 Zahl haben

  Alt 21. Aug 2004, 02:31
Delphi-Quellcode:
if Edit1.Text <> 'then Rot.Position := StrtoInt(RotWert.Text);
// oder auch:
if not (Edit1.Text = '') then Rot.Position := StrtoInt(RotWert.Text);
// kommt auf's selbe raus, ist aber vernachlässigbar langsamer (würde nie einer merken)
Aber dann bist du noch nicht vor Nicht-Zahlen-Strings geschützt. Aber evtl. findest du das ja selber raus - die Suche dürfte da mannigfaltig Ergebnisse spucken
(Tipp: TryStrToInt bzw. Val, oder man kann auch prüfen, ob jedes einzelne Zeichen im String eine Ziffer ist (Edit1.Text[n] in [ord(0)..ord(9)] -- in etwa)

\\edit: Die not-Variante
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:53 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf