char og date

1: TimeToStr(now) ... returnerer som navnet påpeger en string.
2: Der skal du nok have fat i en MaskEdit eller en SpinEdit, de 2 kan let sættes op til at gøre præcis det du vil.

jeg vil gerne have dag, måned og år hver for sig

hovsa, DateToStr(now) så kan du selv lave noget streng manipulation.

Tag evt et kig på DecodeData proceduren.

<snip>
Unit

SysUtils

Category

datetime routines

Delphi syntax:

procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Description

The DecodeDate procedure breaks the value specified as the Date parameter into Year, Month, and Day values. If the given TDateTime value has a negative (BC) year, the year, month, and day return parameters are all set to zero.

</snip>

Spørg hvis du skal have mere hjælp

Eksempel:

uses SysUtils;


var
  Year : WORD;
  Month : WORD;
  Day  : WORD;
begin
DecodeDate(now,Year,Month,Day);

Edit1.Text := IntToStr(Day);
Edit2.Text := IntToStr(Month);
Edit3.Text := IntToStr(Year);

Prøv at gå i hjælpen efter formatdatetime();
Brug val til det andet.

Du kan bruge OnChange Eventen:

var
  old: string;

procedure TForm1.Edit1Change(Sender: TObject);
var
  fejl: boolean;
  i: integer;
begin
  fejl := false;
  for i:=1 to length(Edit1.text) do
    if not (Edit1.text[i] in ['0'..'9']) then
      fejl := true;
  if fejl then
    Edit1.text := old;
  else
    Old := Edit1.text;
end;

Eller måske endnu nemmere en OnKeyPress Event :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  {#8 svarer til backspace denne vil ellers ikke være aktiv}
  If  (Not(Key In ['0'..'9'])) And (Key <> #8) Then
    Key := #0;
end;