32bit- vs. 64bit-Software - Vorteile/Nachteile

[TiGü]

Hacke doch mal ein Konsolenprogramm und führe mal als 32-Bit und mal als 64-Bit aus.

Delphi-Quellcode:

program Project3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Classes;

var
  List: TList;
  Ptr: Pointer;
  I: Integer;

const
  LIMIT = 4 * 1024 * 1024;
  SIZE = 1024;

begin
  try
    List := TList.Create;

    for I := 0 to LIMIT - 1 do
    begin
      Ptr := GetMemory(SIZE);
      List.Add(Ptr);
    end;

    for I := 0 to List.Count - 1 do
    begin
      FreeMemory(List.Items[I]);
    end;

    List.Free;
  except
    on E: Exception do
    begin
      Writeln(E.ClassName, ': ', E.Message, ': ', I.ToString);
      Readln;
    end;
  end;
end.