array[1..10] auf Wert prüfen?

[hoika]

Hallo,
so aus dem Stegreif

Delphi-Quellcode:

function GibMirEinenString(const AFlag: Integer): String;
begin
  Result:= '';  // ja, die Zeile ist wirklich drin 

  case AFlag of
    1: Result:= '1';
    2: Result:= '2';
  else
  begin
    if AFlag>100 then
    begin
      Result:= 'zu gross';
    end
    else
    begin
      Result:= '>2';  // hier kam die Compilerwarnung
    end;
  end;
end;

Die Methode hatte >500 Zeilen ...

[Neutral General]

Dabei kommt keine Warnung, das muss anders ausgesehen haben. (Habs extra getestet)

[himitsu]

Zitat von DeddyH:

Diese ganzen Kylix-Altlasten "Unit Dingenskirchen ist plattformspezifisch" schalte ich auch immer aus, ansonsten wird jeder Warnung und jedem Hinweis nachgegangen und die Ursache abgestellt.

und die C++-Warnungen vonwegen Create ohne Parameter, überladene Property usw. was der CppBuilder nicht kann.

[DeddyH]

Das geht ja über die Projektoptionen ohne Compilerschalter.

[himitsu]

Zitat von DeddyH:

Das geht ja über die Projektoptionen ohne Compilerschalter.

Global nur für sowas wie den C++-Schrott,

aber das Andere immer nur lokal, um die entsprechende Stelle.

[p80286]

@Hoika
Was ist mit Werten <1 ?

Gruß
K-H

[himitsu]

Zitat von Neutral General:

Dabei kommt keine Warnung, das muss anders ausgesehen haben. (Habs extra getestet)

Es fehlt ein END, das vom CASE, wenn ich das letzte END der Funktion zuschreibe.

Und ich würde wenigstens eine Meldung beim ersten Result := '' erwartet. (wurde zugewiesen aber nicht verwendet)


Ansonsten ist hier der String (gemanagte Typ) ein Problem, der per se immer initialisiert ist, entgegen einem Integer-Result.
Nur ist der eben extern initialisiert und das kann probleme geben, wenn der String wiederverwendet oder in einer Schleife genutzt wird.

[Dennis07]

Ich weiß, ist jetzt schon etwas älter dieses Thema, und ich habe mir gerade noch mal (durch Zufall) die offizielle Dokumentation der Wahrnung durchgelesen. Und diese besagt:

Zitat:

Sie können sich nur auf den letzten Wert eines for-Schleifenzählers verlassen, wenn die Schleife mit einer goto- oder exit-Anweisung verlassen wird.

Und genau das passierte in meinem Code:

Zitat von Dennis07:

Delphi-Quellcode:

function AssertArray(AArray: TArray<Boolean>): Boolean;
begin
  for Result in AArray do
  begin
    if not Result then
    begin
      Exit;
    end;
  end;
end;

Ist also wirklich nichts dran auszusetzen. Das nur noch als kleiner Abschluss.