Hallo Forum
ich habe ein kleines Problem
wenn ich fogendes ausführe und in Edit 1
z.B 05-28-2005 eingebe
kommt in Label1 May-28-2005 obwohl der Formatstring mit 'mmm'
laut hilfe die Kurzform des Monatsnamen akzeptieren soll.
Ich muß aber eingaben im Format mmm-dd-yyyy' verarbeiten.
aber dann krieg ich immer einen Fehler.
wenn ich z.B : May-31-2005 eingebe krieg ich einen Fehler!!!
('Mai-28-2005' ist kein gültiges Datum.)
Kann mir mal jemand sagen warum?
Hoffe auf erklärende Antworten
Stefan
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Label1: TLabel;
procedure Edit1KeyUp(Sender: TObject;
var Key: Word;
Shift: TShiftState);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyUp(Sender: TObject;
var Key: Word;
Shift: TShiftState);
var
d1 : TDate;
begin
if key =VK_RETURN
then
begin
ShortDateFormat := '
mmm-dd-yyyy';
DateSeparator := '
-';
d1 := StrToDate(Edit1.Text);
label1.Caption := dateToStr(d1);
end;
end;
end.