Warnung des Compilers verstehen

[hsg]

So mache ich es auch an vielen Stellen und hab es in die entsprechende Methode auch eingebaut, die Warning bleibt aber.

[rider]

Auch wenn die falsche Compiler-Warnung ein Bug ist, solche Endlos-If-Ketten mit Stringvergleichen sind mir vom Programmcode ein wenig suspekt.
Schon mal daran gedacht, das Ganze via Enumtyp zu lösen? Dann könnte man ein performantes case-Statement verwenden.

[hsg]

Zitat von rider:

Auch wenn die falsche Compiler-Warnung ein Bug ist, solche Endlos-If-Ketten mit Stringvergleichen sind mir vom Programmcode ein wenig suspekt.
Schon mal daran gedacht, das Ganze via Enumtyp zu lösen? Dann könnte man ein performantes case-Statement verwenden.

Der Source stammt aus meinen Anfangstagen in Delphi in einem etwas größerem Projekt.
Wenn ich mal Zeit finde werde ich es umbauen. Ich war nur auf die Stelle gestossen, weil ich versucht habe, dieses Projekt Warnings-frei zu machen.

Im nächsten Leben gelobe ich Besserung

[hoika]

Hallo,

Notlösung wäre, intern in 2 Methoden aufzusplitten.


Heiko

[Corpsman]

hmm ich komm da nu nich ganz mit.

Ich habe es mal durch meinen Codeformater gejagt und von meinem Compiler Compilieren lassen.

Delphi-Quellcode:

Function Rechte(cModul: String): String;
Begin
  If AnsiCompareText(cModul, 'Angebot') = 0 Then
    Result := 'FAngebot'
  Else If AnsiCompareText(cModul, 'Auftrag') = 0 Then
    Result := 'FAuftrag'
  Else If AnsiCompareText(cModul, 'AV') = 0 Then
    Result := 'FAV'
  Else If AnsiCompareText(cModul, 'Fertigung') = 0 Then
    Result := 'FFertigung'
  Else If AnsiCompareText(cModul, 'Einkauf') = 0 Then
    Result := 'FEinkauf'
  Else If AnsiCompareText(cModul, 'Versand') = 0 Then
    Result := 'FVersand'
  Else If AnsiCompareText(cModul, 'Reparatur') = 0 Then
    Result := 'FReparatur'
  Else If AnsiCompareText(cModul, 'Supply') = 0 Then
    Result := 'FSupply'
  Else If AnsiCompareText(cModul, 'Kunden') = 0 Then
    Result := 'FKunden'
  Else If AnsiCompareText(cModul, 'Artikel') = 0 Then
    Result := 'FLager'
  Else If AnsiCompareText(cModul, 'Projekt') = 0 Then
    Result := 'FProjekt'
  Else If AnsiCompareText(cModul, 'Zeichnung') = 0 Then
    Result := 'FZeichnung'
  Else If AnsiCompareText(cModul, 'Pruefmtl') = 0 Then
    Result := 'FPruefmtl'
  Else If AnsiCompareText(cModul, 'Iso9000') = 0 Then
    Result := 'FIso9000'
  Else If AnsiCompareText(cModul, 'System') = 0 Then
    Result := 'FSystem'
  Else If AnsiCompareText(cModul, 'Dokument') = 0 Then
    Result := 'FDok'
  Else
    Result := '';
End;

Und ich habe weder Warnung noch sonst was bekommen.

Welche Delphi ver hast du denn da zum Kompilieren genutzt ?
( Meine war D5 Prof )

[hsg]

Zitat von Corpsman:

hmm ich komm da nu nich ganz mit.

Ich habe es mal durch meinen Codeformater gejagt und von meinem Compiler Compilieren lassen.

Und ich habe weder Warnung noch sonst was bekommen.

Welche Delphi ver hast du denn da zum Kompilieren genutzt ?
( Meine war D5 Prof )

D2006 Prof und ich habe es eben noch einmal mit deinem Source probiert und bekomme die Warnung.
Wie steht denn dein Warning-Level vom Compiler? Warnungen an? "Der Rückgabewert der Funktion könnte undefiniert sein" eingeschaltet?

[hsg]

Zitat von hoika:

Hallo,

Notlösung wäre, intern in 2 Methoden aufzusplitten.


Heiko

Wäre eben nur eine Notlösung und wenn ich an der Methode noch mal Hand anlege, wird sie eh umgeschrieben (siehe weiter oben). Es ging mir nur darum die Compiler-Meldung zu verstehen, da ich keinen Grund für sie gefunden habe.

Da es scheinbar ein Bug im Compiler ist, habe ich jetzt den entsprechenden Abschnitt mittels Warning OFF/ON ausgeklammert und kann nun meinen Source wieder ohne Warnings compilieren.

[Corpsman]

Komisch

habe grad

Delphi-Quellcode:

Function Recht(Value: String): String;
Begin
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  showmessage(recht('va'));
End;

geschrieben, und normalerweise gibts da ne Fehlermeldung nur diesmal nicht ?

[hsg]

Zitat von Corpsman:

Komisch

habe grad

Delphi-Quellcode:

Function Recht(Value: String): String;
Begin
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  showmessage(recht('va'));
End;

geschrieben, und normalerweise gibts da ne Fehlermeldung nur diesmal nicht ?

Eine Fehlermeldung wohl eher nicht, sondern nur eine Warnung (eben die, um die es in diesem Thread geht).

Deine Warnungen sind ja wohl eingeschaltet, scheinbar gibt es dort diese Warnung noch nicht

[hoika]

Hallo,

unter D6 kommt auch keine.


Heiko