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.
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