Einfluß auf die Größe der EXE-Dateien

[t.roller]

141 kB mit XE7

Delphi-Quellcode:

program Project1;  //20170120

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

Var
  DatumZeit : TDateTime;
  ZeitDatum : TDateTime;
  DatumS    : String;  // "tt.mm.jjjj"
  ZeitS     : String;
  WoTgNr    : Integer;
  TageS     : Array[1..7] of String;
  Meldung   : String;

begin
  try
  DatumS := 'tt.mm.jjjj';

  TageS[1] := 'Sonntag  ---'; // je 12 Bytes
  TageS[2] := 'Montag  ----';
  TageS[3] := 'Dienstag  --';
  TageS[4] := 'Mittwoch  --';
  TageS[5] := 'Donnerstag  ';
  TageS[6] := 'Freitag  ---';
  TageS[7] := 'Sonnabend  -';

  DatumZeit := Date;
  ZeitDatum := Time;
  DatumS := DateToStr(DatumZeit);
  ZeitS  := TimeToStr(ZeitDatum);
  WoTgNr := DayOfWeek(DatumZeit);

  Meldung := '-------- Datum: '+DatumS+'  ---  Tag: '+TageS[WoTgNr]+'---  Zeit: '+ZeitS+' ---------'+#$07+#$0D+#$0A;

  WriteLn(Meldung);
  ReadLn; // eingefügt für Test

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.