Edit.Text muss mindestens 1 Zahl haben

[Äfan]

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 ?

[Trouble_Maker]

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

[Äfan]

Das Problem ist das, dass

Delphi-Quellcode:

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 ?

[Hansa]

natürlich:

Delphi-Quellcode:

if not ... then

[dizzy]

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