Datum mit Datum austauschen

[aaron]

Hallo
ich habs mit euren Beispielen nicht hinbekommen, habe ein Beispiel gefunden mit dem ich schonmal aus einem String Zahlen extrahieren kann:

Delphi-Quellcode:

type
  TCharSet = set of Char;

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;

function StripNonNumeric(const S: string): string;
begin
  Result := StripNonConforming(S, ['0'..'9'])
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
showmessage(StripNonConforming('TEST TEST  12.11.2008 Test Test',['0'..'9']));
end;

Nun müßte ich nur noch wissen wie ich daraus wieder ein Datum machen kann.



Freundliche Grüße
Aaron