Record als Result einer Funktion

[Uwe Raabe]

Zitat von Andreas13:

Bitte selber überprüfen.

Das ist doch kein Beweis, sondern zeigt nur, daß nach einem Programmstart eine bestimmte Speicherbelegung wahrscheinlich ist. Probier mal dieses Testprogramm:

Delphi-Quellcode:

program Project652;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

Type
  MyBoolean = (boUndef, boFalse, boTrue);

CONST
  MyBooleanStr: Array[MyBoolean] of String = ('Undefiniert', 'Nein', 'Ja');

procedure Test;
var
  MB: MyBoolean;
begin
  if (MB < boUndef) or (MB > boTrue) then
    Writeln('Range Error!')
  else
    WriteLn('MB: MyBooleanStr[MB] = ', MyBooleanStr[MB]);
end;

procedure Dummy;
var
  B: Byte;
begin
  B := Random(256);
end;

procedure RandomTest;
var
  I: Integer;
begin
  for I := 1 to 1000 do begin
    Dummy;
    Test;
  end;
end;

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