Hi

wie kann ich abfragen ob im textfeld1 eine währung und im textfeld2 ein datum (muss logisch sein kein 31.02 oder so) ist?

MfG Marcel

Hallo,

ich gehe mal davon aus, das Du mit "textfeld" ein Edit-Feld meinst.
Prüfung auf Währung (Bsp.)


alternativ mit StrToDate(Edit2.Text) für Datumsprüfung

MfG yukon-troll

nein ich meine wie ich abfragen kann ob in edit1.text in datum bzw. eine währung steht

if edit1.text = währung then
//rechne
else
//zeige fehlermeldung

Was meinst Du mit Währung ?
Eine "Zahl" (z.B. 12.25) oder DM, €,Yen oder was auch sonst ?

z.B. 15,51 € und 01.01.03

Gibst Du die Währung selbst ins Edit-Feld ein, oder ist das schon vorgegeben ?
Bei ersterem würde ich einfach die Angabe € oder sonstiges weglassen,
ansonsten musst Du den ersten Teilstring (15.55) aus der Ausgabe herausfiltern und dann prüfen.

Der try/except Block macht ansonsten genau das, was Du willst.

Am Beispiel Datum:

mit StrToDate(Edit1.Text)
versucht Delphi den String in ein Datum zu konvertieren,
geht das gut, macht er bei der nächsten Anweisung im try-Block weiter (in Deinem Fall -> rechne)

tritt aber beim Versuch der Konvertierung eine Exception auf (weil z.B Edit1.Text
kein gültiges Datum darstellt), dann verlässt Delphi den try-Block und führt die Anweisungen im except-Block aus, ansonsten wird der except-Block nicht ausgeführt.
Bitte auch mal in der Hilfe nachlesen.

MfG yukon-troll

so hier:

procedure TForm1.Button1Click(Sender: TObject);
begin
try
StrToCurr(Edit1.Text);
except
Edit1.Text:='Fehler';
end;

funzt aber nicht

doch funzt jetzt aber wie kann ich das abstellen das der mir den fehler "fehler ist kein gültiger gleitkommawert" anzeigt

was geht dabei nicht ?

Kommt ein Fehler beim kompilieren?
Oder kommt ein Fehler bei Button1Click trotz Zahleneingabe ?
(Währung mit Punkt als Trennzeichen eingeben !).

MfG yukon-troll

Den Fehler zeigt er nur an, wenn du das Programm aus der IDE startest, da es eine Delphi-Fehlermeldung ist. Kannst du in den Debugger-Optionen abschalten (weiß jetzt grad´ nicht wo).

mfg
GSE

ok ich danke euch

hab ich wieder was dazu gelernt