Probleme mit Now()

[DeddyH]

Und auf die Variable Jetzt kann man ganz verzichten.

Delphi-Quellcode:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
  DName: String;
begin
  if OpenPictureDialog1.Execute() then
  begin
    DName := Format('%s%s%s',['temp\',FormatDateTime('yyyymmddhhnnsszzz', SysUtils.Now),'.jpg']);
    DateiNeuPfad:=ExtractFilePath(Application.ExeName)+DName;
    ShowMessage(DateiNeuPfad);   // <====== zum Testen anzeigen
    Copyfile(PCHAR(OpenPictureDialog1.FileName), PCHAR(DateiNeuPfad), false);
  end;
end;