Comment vérifier si la chaîne est un DateTime valide chaîne de Format dans Delphi

Je veux utilisateur d'être en mesure de saisir manuellement le format de la les champs datetime dans le programme. J'ai composant Tedit. Par exemple, si l'utilisateur entre les 'HH:nn', alors c'est un datetime valide chaîne de format et de tous datetime composants de changement de propriété format, mais s'il entre dans 'tsa", il ne l'est pas. Est-il un moyen rapide de vérifier cela, sans avoir à écrire de ma propre fonction?

InformationsquelleAutor Tofig Hasanov | 2009-12-04

18

Vous pouvez utiliser les fonctions:
```
TryStrToDate
TryStrToTime
TryStrToDateTime
```
Ils essaient de convertir une chaîne de caractères à une date/heure et si la conversion réussit, elle renvoie la valeur true. Donc, il n'y a pas d'exceptions soulevées.

Vous pouvez utiliser l'option TFormatSettings paramètre pour définir votre propre format.

Toutes les fonctions sont définies dans SysUtils.

Mais il y a une certaine date/heure de contrôles disponibles dans la VCL comme TDateTimePicker et TMonthCalendar. Vous pouvez les utiliser aussi.
- Ma question était différent, je n'ai pas besoin de vérifier si la chaîne est un DateTime valide, j'ai besoin de voir si la chaîne est un format valide DateTime (Ex: "jj.MM.aa HH.mm" est un Format valide DateTime, tandis que "KK.LL.MM NN.RR" ne l'est pas.
- Oui, vous pouvez utiliser la fonction de cet objectif. Vous pouvez modifier les paramètres de format.
InformationsquelleAutor Toon Krijthe
4

Le problème est de savoir comment vous définir un format valide'? Probablement, le meilleur que vous pourriez faire est de rechercher l'existence de certaines lettres dans la chaîne de format. Mais que faire si l'utilisateur ne se soucie pas de voir de l'année, ou ne veut pas voir le temps?

Je ne serais pas trop stresser à propos de la vérification qu'ils sont entrés dans un "format valide'. Plutôt juste de leur donner un aperçu du format qu'ils ont saisies à l'aide de la date-heure actuelle.

Modifier: mise à Jour pour de nouvelles infos de l'OP

Il y avait un peu de précisions sur la question:

En fait j'ai besoin de spécifier le Format de la propriété de TDateTimePicker et TDateTime champs dans la Base de données. Et je veux que l'utilisateur puisse modifier ces formats. – Tofig Hassanov

C'est une précision importante, peut-être que vous souhaitez inclure dans votre question?

La chose importante est que la chaîne de format ne sera pas seulement d'indiquer le Format d'Affichage, mais également la modification de format. Aujourd'hui, bien qu'assez beaucoup n'importe quelle chaîne est valide, toutes ne sont pas particulièrement utiles (surtout pour l'édition). E. g.:
```
FDateTimeFormat := '"The day is "d" of this month of the year "yy';
```
Ce qui est parfaitement valable dans le sens que votre date peut être formaté en conséquence. Cependant, il n'est pas particulièrement utile pour régler le mois.

Maintenant, à mon humble avis, si un utilisateur veut faire de leur rendre la vie difficile en n'incluant pas les mois les champs dans leur chaîne de format robuste! Le problème vient que les règles de formatage sont un peu techniques, et un utilisateur peut obtenir des mois et des minutes mélangés. E. g. FTimeFormat := 'HH:MM:SS' qui est en fait <heures>:<mois>:<les secondes>

Même si, je maintiens ma proposition initiale (avec un petit tweak): Plutôt juste de leur donner un aperçu du format qu'ils ont saisies à l'aide de ~~la date-heure actuelle~~ une date déterminée-temps qui devrait mettre l'accent sur ces "erreurs" dans la chaîne de format.

En supposant que vous avez une configuration de boîte de dialogue dans laquelle vous avez l'intention de laisser à l'utilisateur de définir ce paramètre:
- Ajouter un TComboBox (vous pouvez alors "pré-charger" avec des exemples de chaînes de guide de l'utilisateur; ils peuvent aussi tout simplement choisir l'un de vos déjà des options appropriées.
- Ajouter une étiquette qui vous illustrer l'exemple de comportement de l'élu chaîne de format.
- Mettre En Œuvre TComboBox.OnChange pour illustrer l'effet du choix de l'utilisateur.
Le code suivant devrait faire l'affaire:
```
procedure TConfigDialog.DateTimeFormatChange(Sender: TObject);
var
  LCheckDate: TDateTime;
  LFormattedDate: String;
begin
  LCheckDate := EncodeDate(1999, 12, 31) + EncodeTime(20, 45, 50, 123);
  LFormattedDate := FormatDateTime(DateTimeFormat.Text, LCheckDate);
  DateFormatSample.Caption := 'Fri 31 December 1999 at 8:45:50.123 would be displayed as: ' + LFormattedDate;
end;
```
AVERTISSEMENT

Vous avez mentionné que vous souhaitez utiliser pour les deux TDateTimeField et TDateTimePicker. Malheureusement, TDateTimePicker encapsule simplement un Windows intégré de Contrôle qui n'utilise pas de FormatDateTime, et donc a des règles différentes pour ses chaînes de format.

Donc, je crains que vous aurez à permettre aux utilisateurs de configurer deux chaînes de format. 🙁
- En effet, +1. Tout ce qui n'est pas valide d'un espace réservé resterait-est. Couplé avec une liste de validité des espaces réservés cela permettrait à l'utilisateur de manière itérative modifier le format jusqu'à ce qu'ils sont satisfaits. Si vous étoffez votre réponse (peut-être avec un peu de code de l'échantillon) je voudrais le voir accepté.
InformationsquelleAutor Disillusioned

De s'étendre sur les Gamecat la réponse de

If not tryStrToDateTime(Edit1.text,MyDateTimeVar) then
ShowMessage('You need to make your entry look like a date...how about yy/mm/dd');

Si vous voulez juste pour vérifier la configuration de l'MyDateTimeVar variable à transmettre à tryStrToDateTimeVar vous pouvez simplement utiliser la gestion des exceptions

try
StrToDateTime(Edit1.Text);
except
ShowMessage('You need to make your entry look like a date...how about yy/mm/dd');
end;

InformationsquelleAutor Doug Johnson-Cookloose

1

Doug et Gamecat, je crois que vous êtes à la fois l'incompréhension de la question.
- Il ne veut pas passer d'une chaîne à une date.
- Il a le jour.
- Il veut convertir une date en chaîne de caractères selon un format spécifié par l'utilisateur.
- I. e. DisplayDate := FormatDateTime(UserDefinedFormat, Now());
La seule chose qui StrToDateTime (ou TryStrToDateTime) pourrait être utilisé pour tentative une circulaire de "cohérence check". Mais ce serait pas bon, car il n'y a aucune garantie que l'utilisateur veut voir tous les éléments de la date/de l'heure. Par conséquent, la circulaire de la vérification ne peut pas travailler!
- En fait j'ai besoin de spécifier le Format de la propriété de TDateTimePicker et TDateTime champs dans la Base de données. Et je veux que l'utilisateur puisse modifier ces formats.
- C'est à peu près la même chose: Si vous définissez la DisplayFormat propriété d'un TDateTimeField puis ce sera le résultat des appels à FormatDateTime en tant que de besoin. Le point dans mon autre réponse est que pratiquement n'importe quelle chaîne est valide, bien que tous ne sont pas utile. Cependant... votre mention de TDateTimePicker n'jeter un gros bâton dans les roues.... La chaîne de format pour TDateTimeField et TDateTimePicker utilisation de conventions différentes, de sorte qu'ils ne sont pas interchangeables!
InformationsquelleAutor Disillusioned

function to_date(p_format,p_string:string): TDateTime;
var
v_day,           //dd
v_month,         //mm
v_year:Integer;  //yyyy
v_hour,          //hh
v_minute,        //nn
v_second:Integer;//ss
v_date:TDateTime;
v_time:TDateTime;
begin
v_day:=Pos('dd',p_format);
v_month:=Pos('mm',p_format);
v_year:=Pos('yyyy',p_format);
v_hour:=Pos('hh',p_format);
v_minute:=Pos('nn',p_format);
v_second:=Pos('ss',p_format);
v_day:=StrToInt(Copy(p_string,v_day,2));
v_month:=StrToInt(Copy(p_string,v_month,2));
v_year:=StrToInt(Copy(p_string,v_year,4));
v_hour:=StrToInt(Copy(p_string,v_hour,2));
v_minute:=StrToInt(Copy(p_string,v_minute,2));
v_second:=StrToInt(Copy(p_string,v_second,2));
v_date:=EncodeDate(v_year,v_month,v_day);
v_time:=EncodeTime(v_hour,v_minute,v_second,0);
ReplaceTime(v_date,v_time);
Result:=v_date;
end;

InformationsquelleAutor hajili

Vous devez vous connecter pour publier un commentaire.

AVERTISSEMENT