wenn edit nicht dem format entspricht dann ... ??

[delphineuling88]

ich will überprüfen ob edit dem hh:mm:ss format enspricht wenn das nicht so ist soll er ne nachricht zeigen
hab schon mal einen vorschlag nur was muss hinter das gleich?

else if (not(edit5.Text={was kommt hier rein?} ) then showmessage (' ')

[mkinzler]

Wenn die Eingabe ein festes Format haben soll, wäre es sinnvoll eine derartige Eingabe im Edit zu erzwingen. An sonsten bleibt dir nichts anderes übrig als den Eingabestring auf die ':' an Pos 3 und 6 zu überprüfen anschlißend zu zerlegen und einzeln die Wertebereiche zu validieren (Stunden zwischen 0 -12 /24; Minuten zwischen 0-60).

[SirThornberry]

ich muss mich da mkinzler anschließen. Mit so wenig Zeilen wird das nichts.
Du musst erst prüfen ob der eingegebene Text die richtige länge hat um deinem format zu entsprechen.
Anschließend noch prüfen ob die Doppelpunkte an den richtigen stellen sind.
Dann noch prüfen ob die restlichen zeichen Zahlen sind. Und dann noch prüfen ob die entsprechenden zeichen zusammengefügt keine zu große zahl ergeben.

[delphineuling88]

wie erzwinge ich denn eine feste eingabe in dem format?

[mkinzler]

Man sucht eine passende Edit-Komponente oder verwendet z.B. TJvMaskEdit (JediVCL) und setzt über die Eigenschaft EditMask das benötigte Format.

[delphineuling88]

was heißt eine passende edit komponente?
und den kram mit mask edit blick ich nicht durch hab noch nie was in der richtung gemacht

[mkinzler]

Es gibt spezielle Editkomponenten für speziell Inputformate (Datum, Dateinamen u.ä.)
EditMask ist eine Eigenschaft der oben genannten Komponente. Wenn du hierfür den wert '!90:00:00;1;_' setzt sieht der Edit so aus: __:__:__.

Es kann jetzt nur noch an den mit _ markierten Positionen Zahlen eingegeben werden.

[delphineuling88]

wo finde ich die komponente und wiekann ich das dann noch machen das ich halt nur 24 stunden und 60 sekunden und minuten eingeben kann also einen gültigen zeitwert?

[Lannes]

Hallo,

auf gültige Zeit und Format '00:00:00' prüfen:

Delphi-Quellcode:

var aTime: TDateTime;
Begin
if Length(Edit1.Text) = 8 then
  begin
    try
    ATime := StrToTime(Edit1.Text);
    except
    showmessage('Bitte gültige Zeit angeben');
    end;
  end
  else
    Showmessage('Bitte Zeit im Format "00:00:00" angeben');

[delphineuling88]

ok zu spät gesehen hab es jetzt anders gemacht mit drei edit feldern.
hätte ich deins früher gesehen hätte ich das wohl genommen aber finde meine jetzige lösung auch gut.