AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi 2 Bedingungen unterschiedlicher Typen in einer IF Abfrage
Thema durchsuchen
Ansicht
Themen-Optionen

2 Bedingungen unterschiedlicher Typen in einer IF Abfrage

Ein Thema von juergen · begonnen am 9. Apr 2005 · letzter Beitrag vom 9. Apr 2005
 
Benutzerbild von juergen
juergen

Registriert seit: 10. Jan 2005
Ort: Bönen
1.176 Beiträge
 
Delphi 11 Alexandria
 
#1

2 Bedingungen unterschiedlicher Typen in einer IF Abfrage

  Alt 9. Apr 2005, 10:48
Hallo zusammen!
ich möchte -ausgehend von einem Eingabefeld - den eingegebenen Wert auf 2 Bedingungen überprüfen.
Im Moment habe ich dafür 2 (!) If-Abfragen. Das hat allerdings zur Auswirkung, dass bei Erfüllung BEIDER Bedingungen auch 2 ShowMessages kommen....

Wie bekomme ich es nun hin, diese beiden Bedingungen in EINER Abfrage zu prüfen, jeweils mit der "passenden" Meldung?

Delphi-Quellcode:
IF length (lsMinute_b) > 2 then begin //lsMinute_b --> String
Windows.Beep(2000,250) ;
ShowMessage ('Eingabe falsch! Die Anzahl der Stellen für die Minutenwerte hat mehr als 2 Stellen!');
OutputC.text := 'Eingabe falsch!';
end;

IF (liMinute_b) > 60 then begin //liMinute_b --> Integer
Windows.Beep(2000,250) ;
ShowMessage ('Eingabe falsch! Der eingegebene Wert für die Minuten ist grösser 60!');
OutputC.text := 'Eingabe falsch!';
end;

Vielen Dank vorab!

Grüsse
Jürgen
Jürgen
  Mit Zitat antworten Zitat
 


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 02:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz