Compiler warnt nicht vor nicht initialisiertem Rückgabewert wenn...

[himitsu]

Zitat von Dejan Vu:

Ich kenne kein Argument, ...

Darum auch ein "Problem", daß Delphi da nicht warnt.

Delphi-Quellcode:

function Test: string;
begin
  // Strings sind ja bekanntlich mit '' initialisiert, was im Prinzip auch stimmt. Ungünstig ist nur, daß Delphi hier
  // eigentlich procedure Test(var Result: string); implementiert, also in Bezug auf die fehlende "nicht initialisiert"-Warnung.
  Result := Result + '*';
end;

var 
  S: string;
begin
  for i := 0 to 10 do
    S := Test;
  ShowMessage(S);
end;

[jaenicke]

Zitat von himitsu:

Hatte dadurch noch einen weiteren Fall entdeckt.

Delphi-Quellcode:

procedure Test;
var
  Value: Integer;
procedure Inner;
  begin
    if Value = 0 then
      ;
  end;
begin
  //Value := 0;  // das hatte ich vergessen
  Inner;
end;

Variablen oberhalb lokaler Prozeduren zu deklarieren halte ich persönlich für extrem unsauber. Wenn man diese darin braucht, sollte man diese auch übergeben...

[himitsu]

Nja, oberhalb kommen bei mir immer die Variablen, welche auch innen benutzt werden
und darunter die Variablen für die Hauptprozedur.

Aber wenn es dich beruhigt ... die Prozeduren sind seit gestern Abend eigenständige Methoden und die (vielen) Variablen ein Record als Var-Parameter.