Datum mit Datum austauschen

[marabu]

Hallo,

hier noch eine Denkhilfe:

Delphi-Quellcode:

function FindDate(const text: string; var position: Integer): Boolean;
var
  iOffs, iPos: Integer;
  dt: TDateTime;
begin
  iOffs := Pred(Pos(DateSeparator, ShortDateFormat));
  while position > 0 do
  begin
    position := {StrUtils.}PosEx(DateSeparator, text, position);
    if position = 0
      then Break
      else iPos := position - iOffs;
    if TryStrToDate(Copy(text, iPos, Length(ShortDateFormat)), dt)
      then Break
      else position := Succ(position)
  end;
  Result := position > 0;
  position := iPos;
end;

Ich habe so getestet:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  i, iPos: Integer;
begin
  with Memo do
    for i := 0 to Pred(Lines.Count) do
    begin
      iPos := 1;
      if FindDate(Lines[i], iPos) then
        Lines[i] := {StrUtils.}StuffString(Lines[i], iPos, Length(ShortDateFormat), DateToStr(Now));
    end;
end;

Grüße vom marabu