Konvatering af dato

function StripNonConforming(const S: string;
  const ValidChars: TCharSet): string;
var
  DestI: Integer;
  SourceI: Integer;
begin
  SetLength(Result, Length(S));
  DestI := 0;
  for SourceI := 1 to Length(S) do
    if S[SourceI] in ValidChars then
    begin
      Inc(DestI);
      Result[DestI] := S[SourceI]
    end;
  SetLength(Result, DestI)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(StripNonConforming('1/8/2004 1:23:20 PM', ['0'..'9', 'P', 'M']));
end;

Snowball

får en fejl ved TCharSet i linie to af koden...

Hvirker koden også hvis nu datoen er: 20/12/2004 10:20:30 PM ???

Hov, sæt lige nedenstående linier ind over funktionen:

type
  TCharSet = set of Char;

Ja, det vil også virke med den dato du lige skrev. Det funktionen gør er bare at fjerne de tegn fra strengen som man ikke angiver som "lovlige".

Snowball

tak for svaret det var lige det jeg ledte efter :)

Hvad med 1/12/2004 1:23:20 PM?

Det bliver vel lavet om til 112200412320PM ...

Og den anden vej:

11220041:23:20PM

11/2/2004 1:23:20 PM ???

nej: 11/22/0041 23:20:PM <access vaiolaiton>