Bug in pos ?

[corpsman]

Servus,

bei mir Kompiliert folgender Code :

Code: Alles auswählen

 
Procedure TForm1.Button1Click(Sender: TObject);
 
Var
  b: Boolean;
Begin
  b := true;
  If b And (lowercase(trim(edit3.text)) <> '') Then Begin
    b := pos(lowercase(trim(edit3.text)) <> '', lowercase(trim(Vorname))) <> 0;
  End;
End;
 

Entstanden ist er aus einem Copy Paste Fehler. Die Frage die sich mir nun stellt, warum akzeptiert der Kompiler das überhaupt ? Die Prüfung ob ein boolean Teil eines Strings ist ergibt für mich keinen Sinn.

Erzeugt unter :
Lazarus 1.2.2, SVN Revision : 44758, FPC 2.6.4 i386-win32-win32/win64

[m.fuchs]

Die Prüfung ob ein boolean Teil eines Strings ist ergibt für mich keinen Sinn.

Und wo bist du der Meinung, dass du so etwas prüfen würdest?

Edit: Jetzt sehe ich auch was du meinst, mit dem Beispiel von wp_xyz war es auch für einen alten, sehbehinderten Mann wie mich zu erkennen.

[wp_xyz]

Tatsächlich, dieser Code wird akzeptiert:

Code: Alles auswählen

 
var
  s, t: String;
  p: Integer;
begin
  s := 'test'; t := 'true';
  p := Pos(s <> '', t);     
 

Ctrl-Click auf "Pos" führt mich zu einer Routine, in der beide Parameter ein Variant sind. Damit akzeptiert der Compiler hier praktisch alles! Ob das im Sinn von Niklaus Wirth ist?

[baumina]

Kleiner Vergleich zu Delphi, dort kommt es zu einer Compiler-Meldung.

Code: Alles auswählen

function Pos(const SubStr, Str: ShortString): Integer;
function Pos(const SubStr, Str: UnicodeString): Integer; overload;
function Pos(const SubStr, Str: WideString): Integer; overload;
function Pos(const SubStr, Str: RawByteString): Integer; overload;