Delphi-Quellcode:
Anzeige := ' von ' + FormatDateTime( 'dd.mm.yyyy', von) + ' bis ' + FormatDateTime( 'dd.mm.yyyy', bis);
Anzeige := SDatumVon + ' ' + DateToStr(von) + SDatumBis + ' ' + DateToStr(bis);
SDatum := 'Datum von: %s' + #13#10 + ' bis: %s';
Anzeige := Format(SDatum, [DateToStr(von), DateToStr(bis)]);
könnte mir bitte nochmal jemand erklären was hier alles geschieht, einiges ist mir noch nicht wirklich klar. Schließlich sollte man den Code vestehen, den man verwendet!!!
Aktueller Stand:
Delphi-Quellcode:
const
SDatumVon0101 = 'Datum von 01.01.';
SDatumBis3112 = 'Datum bis 31.12.';
SDatumVon = 'Datum von';
SDatumBis = ' bis';
....
procedure TfrmUmwandeln.Button1Click(Sender: TObject);
var
jahr, monat, tag: Word;
von, bis: TDate;
Anzeige: String;
SDatum: String;
sDatumVon, SDatumBis: String;
begin
pnlPrjConst.Visible := True;
decodedate(now, jahr, monat, tag);
von := EncodeDate( jahr, 1, 1);
bis := EncodeDate ( Jahr, 12, 31);
Anzeige := ' von ' + FormatDateTime( 'dd.mm.yyyy', von) + ' bis ' + FormatDateTime( 'dd.mm.yyyy', bis);
Anzeige := SDatumVon + ' ' + DateToStr(von) + SDatumBis + ' ' + DateToStr(bis);
SDatum := 'Datum von: %s' + #13#10 + ' bis: %s';
Anzeige := Format(SDatum, [DateToStr(von), DateToStr(bis)]);
lbPrjDatumAlt.Caption := SDatumVon0101 + IntToStr(jahr) + #13#10 + ' ' +
SDatumBis3112 + IntToStr(jahr);
lbPrjDatumNeu.Caption := Anzeige;
end;
Nochmals eine Frage, ich kann meine Konstanten SDatumVon0101 uns SDatumBis3112 nicht in ein anderes Format umwandeln, da es Konstanten sind und immer einen festen Wert besitzen, der nicht veränderbar ist? Richtig verstanden?