UInt64 Zuweisung an Integer, keine Warnung, Waum?

[himitsu]

Joar, aber manchmal wäre es schon nett, wenn potentielle Fehler wegen nichtinitialisierter Results kämen.

Delphi-Quellcode:

function Test(S: string): string;
begin
  //Result := '';  // nicht initialisert
  for var C in S do
    Result := Result + C;  // aka Result := S;
end;

procedure TForm16.FormCreate(Sender: TObject);
var
  S: string;
begin
  for var i := 1 to 5 do
    S := Test('Abc');
  ShowMessage(S);
end;

bzw.

Delphi-Quellcode:

procedure TForm16.FormCreate(Sender: TObject);
var
  S: string;
begin
  S := Test('Abc');
  S := Test('Abc');
  S := Test('Abc');
  ShowMessage(S);
end;

oder

Delphi-Quellcode:

procedure TForm16.FormCreate(Sender: TObject);
var
  S: string;
begin
  S := Test('Abc');
  ShowMessage(S);

  S := Test('Abc');
  ShowMessage(S);

  S := Test('Abc');
  ShowMessage(S);
end;

Tja, was würde man nun im Ausgang erwarten?

-> Einmal das, was Test macht, nichtwar?