Datum umwandeln..

[Metallicwar]

Delphi-Quellcode:

const
  SDatumVon = '01.01.';
  SDatumBis = '31.12.';
procedure TForm1.Button1Click(Sender: TObject);
var
  jahr: Word;
  von, bis: TDate;
  Anzeige: String;
  SDatum: String;
begin
  von := EncodeDate( jahr, 1, 1);
  bis := EncodeDate ( Jahr, 12, 31);

  anzeige := 'Von ' + FormatDateTime( 'dd.mm.yyyy', von) + ' bis ' + FormatDateTime( 'dd.mm.yyyy', bis);

  SDatumVon := 'von '; //<-- Der linken Seite kann nichts zugewiesern werden
  SDatumBis := ' bis ';
  Anzeige := SDatumVon + DateToStr(von) + SDatumBis + DateToStr(bis);
  SDatum := 'von %s bis %s';
  Anzeige := Format(SDatum, [DateToStr(von), DateToStr(bis)]);
  ShowMessage(Anzeige);
end;

Als Projektkonstanten hab ich ja schon SDatumVon, SDAtumBis die einen festen Wert haben. Logisch dass diesen Konstanten keine anderen Werte zugeordnet werden können.

Entferne ich diese Projektkonstanten und deklariere sie als einfache Stringvariable

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  jahr: Word;
  von, bis: TDate;
  Anzeige: String;
  SDatum: String;
  sDatumVon, SDatumBis: String;
begin
  von := EncodeDate( jahr, 1, 1); // --> Ungültiges Argument zum Codieren des Datums.
  bis := EncodeDate ( Jahr, 12, 31);

  anzeige := 'Von ' + FormatDateTime( 'dd.mm.yyyy', von) + ' bis ' + FormatDateTime( 'dd.mm.yyyy', bis);

  SDatumVon := 'von ';
  SDatumBis := ' bis ';
  Anzeige := SDatumVon + DateToStr(von) + SDatumBis + DateToStr(bis);
  SDatum := 'von %s bis %s';
  Anzeige := Format(SDatum, [DateToStr(von), DateToStr(bis)]);
  ShowMessage(Anzeige);
end;

What am I doing wrong?