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

[kwhk]

Hallo,
ich habe ein paar meine Oldi-Programme überarbeitet, damit sie auch unter Windows 10 laufen. Mal ein kleines Beispiel, mein Programm DateTime. Wenn man das in einem CMD-Fenster aufruft, dann werden Datum und Uhrzeit protokolliert, danach wird das Programm beendet.

Code:

Microsoft Windows [Version 10.0.14393]
(c) 2016 Microsoft Corporation. Alle Rechte vorbehalten.

D:\Delphi10RAD\HK\DateTime>datetime
-------- Datum: 20.01.2017  ---  Tag: Freitag  ------  Zeit: 13:27:18 ---------

Die erste Version habe ich vor vielen Jahren mit TASM gemacht, da wurde eine DateTime.COM erstellt, die war 381 Bytes lang.

Dann habe ich dieses Programm mit Delphi 3,5,6,7 gemacht. Mit Delphi 7 wird eine DateTime.exe erstellt, die ist 372.736 Bytes lang.

Nun habe ich mit RAD Studio 10.1 Berlin das gleiche Programm erzeugt (gleicher Source-Code wie bei Delphi 7), da wächst das Programm auf 2.153.984 Bytes.

Einen ähnlichen Effekt habe ich auch bei anderen Programmen bemerkt. EXE aus RAD-Studio 10.1 Berlin haben eine vielfache Dateigröße gegenüber der EXE-Dateien aus Delphi 7.

Habe ich da bei DEBUG o.ä. etwas nicht richtig eingestellt ?
DEBUG kann ich auch mit Delphi 7 machen.

[jaenicke]

Es ist in den RTL- und VCL-Units eben sehr viel an Funktionalität dazugekommen, die der Linker nicht immer automatisch weglassen kann.

Man kann einiges aus den Exen entfernen, z.B. die RTTI Informationen, aber ganz klein ist es trotzdem nicht.

Eine minimale Kommandozeilenanwendung ist in Delphi 10.1 ca. 43 KiB groß. Mit System.SysUtils sind es dann schon 136 KiB. Mit DateUtils sind es dann 521 KiB.

Deine Exe-Größe lässt mich aber vermuten, dass du Vcl.Forms oder andere VCL-Units eingebunden hast. Denn erst damit kommt man sofort über 2 MiB (in der Release-Buildkonfiguration!). Oder du hast noch die Debug-Buildkonfiguration aktiv.

[kwhk]

Es ist eine Konsolenanwendung. Ich hänge die mal als ZIP an, falls es interessiert. Für Hinweise wäre ich wirklich dankbar.

[kwhk]

Eigentlich wollte ich das kleinere Trivial-Programm DateTime anhängen

[Dalai]

Zitat von kwhk:

Es ist eine Konsolenanwendung.

Nö. In der DateTime.dpr sowie der DateTimeU.pas sieht man TForm1, uses Forms usw. Es ist also keine Konsolenanwendung, die auch als solche erstellt worden wäre.

Grüße
Dalai

[a.def]

Konsolenanwendung Beispiel: http://docwiki.embarcadero.com/RADSt...lenanwendungen

[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.