keine boolean Rückgabe

[simlei]

Hi...

Mich regt sone ****** auf. Total unlogisch, kostet Nerven und beschäftigt ne ganze weile....

Code:

function returntrue():boolean;
begin
  result := true;
end;

Fehler: [DCC Fehler] Unit1.pas(143): E2010 Inkompatible Typen: 'Boolean' und 'Integer'

Wenn ich die Funktion aus dem Quelltext herausnheme, funktioniert alles, sollte also wirklich hieran liegen.
Warum um alles in der Welt läst sich keine Boolean konstante zurückgeben??

danke im Voraus...

[edit=MrSpock]Titel geändert. Mfg, MrSpock[/edit]

[Helmi]

Hallo,

ändere doch bitte den Titel deines Threads. Solche Kraftausdrücke ("blödes...") werden hier nicht gerne gesehen.

Dein Problem betreffend: Zeig doch mal mehr Code. Wo und wie wird diese function aufgerufen?

Nebenbei bemerkt - die function macht ja ned so viel Sinn, oder?

[mkinzler]

An diesem Code liegt es nicht direkt. Den für sich sollte der funktionieren.

[BullsEye]

Delphi-Quellcode:

[b]function returntrue():boolean;
begin
  result := true;
end;[/b]

procedure TForm1.Button1Click(Sender: TObject);

begin
  if returntrue = false then label1.Caption := 'false';
  if returntrue = true then label1.Caption := 'true';
end;

Funktioniert bei mir einwandfrei.Ist returntrue evlt schon anders belegt?

[Teekeks]

bei mir gehts...
Ist ja auch wirklich unlogisch... wie verwendest du die function?

[Die Muhkuh]

Hast Du irgendwo eine Variable true definiert?

@ BullsEye

Bitte nicht auf true / false überprüfen!

[Teekeks]

auf false darf man doch... soweit ich weiß sollte man nur nicht auf true testen...

[Die Muhkuh]

Man sollte generell nicht auf boolean prüfen.

Spielt jetzt hier aber auch keine Rolle.

[mkinzler]

Ist so oder so unnötig, da ein Vergleich einen Boolean zurückliefert

[Hobby-Programmierer]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin
  if not returntrue then label1.Caption := 'false';
  if returntrue then label1.Caption := 'true';
end;

oder mit Stringausgabe

Delphi-Quellcode:

Label1.Caption:= BoolToStr(returntrue());