Datum mit Datum austauschen

**aaron**

Hallo,
ich habe es nun so gemacht, leider funktioniert das nicht sobald auch nur ein Punkt im String steht.
Wenn nur ein Datum drinnen steht funktioniert es.

markieren

Delphi-Quellcode:

			sl := TStringList.Create;

sl.DelimitedText:= StringGrid1.Cells[1, StringGrid1.Row];

sl.DelimitedText := StripNonConforming(sl.DelimitedText, ['0'..'9','.']);

if StrToDate(sl.DelimitedText) = Date then  begin

StringGrid1.Cells[1, StringGrid1.Row] := StringReplace(StringGrid1.Cells[1, StringGrid1.Row],sl.DelimitedText,StringGrid1.Cells[2, StringGrid1.Row],[rfReplaceAll, rfIgnoreCase]);

Was mache ich falsch oder bin ich auf einem komplett falschen Weg?

Freundliche grüße
Aaron

Datum mit Datum austauschen

Re: Datum mit Datum austauschen

Forumregeln