Deutsches Lazarusforum

Eingentlich Windows, ist dort (in redef.inc) aber auskommentiert.

Die einzige Stelle, die ich gefunden habe, stammt aus dem FPC-Package winunits-jedi. Dort wird die Funktion (und die benötigten Datentypen) sowohl in JwaWinAble als auch in JwaWinUser deklariert.

Wenn das nicht funktioniert, kannst ...

Wenn ich die MSDN Dokumentation zu Hooks richtig verstehe, dann hast du mit WH_CALLWNDPROC keine Chance (leider gibt es dies alles auf MSDN nur in Englisch):
The CallWndProc hook procedure can examine the message, [b][i][color=#BF0000]but it cannot modify it[/color][/i][/b]. After the hook ...

Wenn ich es richtig verstehe, geht es hier nicht um das Mischen von Bildschirmfarben, sondern um das Zuordnen von Farbnamen für bestimmte Mischungen einer Reihe von Grundfarben.

Ich versuche es mal etwas ausführlicher:

Du hast eine bestimmte Anzahl von Grundfarben.
Du möchtest jeder Farbmischung ...

Gut erklärt!

Das DÜRFTE meines Erachtens im Prinzip wohl nicht so sein, könnte also einen Eintrag im Bugtracker wert sein.

Nö, das ist ein Feature, kein Bug. Zumindest laut [fpc-devel]: http://lists.freepascal.org/lists/fpc-devel/2011-July/024981.html" onclick="window.open(this.href);return ...

Verdammt, ich versuche die Sache klarer darzustellen und verwirre nur alle.

Deshalb jetzt mal die von mir gesuchte Lösung:

Ersetzt

property Field: string read GetFField write SetFField;

durch

property Field: string read FField write SetFField;

(statt eines "Getters" also direkter Zugriff ...

Maik81ftl, ich habe dieses kleine Quiz hier gepostet, weil ich gerne über eine - meiner Meinung nach merkwürdige bzw. schlechte - Eigenschaft von FreePascal (aber auch Delphi) diskutieren möchte. Das Quiz sollte als Einstieg dienen. Darum habe ich eine ganz bestimmte Lösung im Kopf - und diese ...

Sucht mal eine Lösung, bei der das Programm abstürzt, wenn man 3 Zeichen entfernt, aber ohne Absturz bleibt, wenn man zusätzlich "string" durch "shortstring" ersetzt (oder schlicht das {$H+} entfernt).

Und noch 'ne Lösung.

Schöne Endlosrekursionen (na ja, endlos bis der Stack voll ist). Aber noch nicht subtil genug. :wink:

Wobei... Frage: hätte der Compiler hier die Chance einen zu warnen? Mit anderen Worten: wäre es sinnvol, eine Rekursionswarnung zu haben, wenn

(a) eine Funktion/Prozedur sich ...

Ha - das ist das Schöne am Programmieren: es gibt immer mehr als einen Weg zum Ziel.

Deine Lösung ist nämlich völlig korrekt - du musst das Leerzeichen ja nicht löschen und ich habe nicht gesagt, dass die 3 Zeichen hintereinander stehen müssen. Trotzdem, das ist nicht die Lösung die ich suche ...

Aufgabe: Bringt das folgende Programm zum Absturz.
Einschränkung: Ihr dürft nichts hinzufügen, sondern nur etwas entfernen. Und zwar genau 3 Zeichen.

program Sphynx;

{$mode objfpc}{$H+}

type

{ TMyClass }

TMyClass = class
private
FField: string;
function GetFField: string;
procedure ...