Deutsches Lazarusforum

Man kann in den Einstellungen im Reiter "Profile" den Eintrag "Package Betreuer" auswählen. Dann erscheint auch der Create Button wieder.

Um meine Eingangs gestellte Frage zu beantworten:
Der Autor erklärt die Funktion selbst. Ich habe seine Erklärung mit DeepL übersetzen lassen:

Was die scoreBoard-Funktion angeht, habe ich verschiedene Formen ausprobiert, um das Spielbrett zu bewerten. Am Ende habe ich mich für eine einfache ...

Zvoni hat geschrieben: Fr 21. Nov 2025, 16:38 ...
Außerdem gibts ne Funktion „inside“ die nie aufgerufen wird!?!??!

Die hatte ich aus dem C Code übernommen, wird aber hier nicht gebraucht, da man keinen Stein ausserhalb des Spieles einwerfen kann.

Komisch,
wenn man das Spiel gewinnt, dann passiert nichts ...

Laut Source sollte da eine Meldung kommen.



Doch, in dem Memo rechts erscheint dann, "Du hast gewonnen"


Auch musste ich Ausdrücke wie
score -= scores[y][x - 3];
zu
score := score - scores[y][x - 3];
umschreiben, du hast da ...

Zunächst einmal vielen Dank für deine Ausführungen.
Mir geht es aber in erster Linie darum, zu verstehen, wie die Bewertungsfunktion scoreBoard zu ihren Ergebnissen kommt.
Sie berücksichtigt dabei nämlich auch "Angriffe" vom Gegner mit ziemlich wirksamer Abwehr.

Ich hatte in diesem Thread ein Vier Gewinnt Spiel vorgestellt.
Dort hatte jedes Spielfeld anhand der Gewinnmöglichkeiten an diesem Feld einen Wert zugewiesen bekommen.
Die Bewertungsfunktion für den MiniMax Algorithmus (Bewerten) hat einfach die Werte der Felder, die mit der jeweiligen Farbe besetzt ...

theo hat geschrieben: Do 20. Nov 2025, 18:33 Es gibt noch IfThen in den units Strutils und Math:

Code: Alles auswählen

  Caption:=IfThen(CheckBox1.Checked , 'a', 'b');    

Etwas merkwürdig imho...

Danke!
Ja, als Funktion kann man das natürlich so implementieren.

Danke, das scheint aber in Freepascal nicht zu gehen.
Beispiel: Fehlermeldung: unit1.pas(35,15) Error: Illegal expression

Hallo,

ich habe eben einen C Quellcode nach Pascal übesetzt. In C (oder auch z.B. PHP) gibt es den ? Operator.

int schwarz = 1;
int weiss = -1;

int getcolor(int maxOrMin) {
return maxOrMin?schwarz:weiss;
}


Die Funktion liefert abhängig vom Wert im Parameter maxOrMin entweder den ersten oder ...

So wie ich das sehe, wird dort ein Fenster erzeugt und als Child vom Desktopwindow hinter den Desktop Icons gezeichnet. Das mit dem SendMessage dient dann nur der Kommunikation mit diesem Fenster, da das Desktopfenster nicht dafür ausgelegt ist, Children zu verwalten. Aus dem Grund kommen ansonsten ...

Also ich hab's mal getestet.
Das Programmelchen speichert ein Png mit dem Inhalt des Desktops in C:\users\user\pictures\test.png

Was genau ist jetzt Deine Frage?

Wenn man in den Projekteinstellungen unter Compilereinstellungen -> Hinzufügungen und Beeinflussungen -uconsole einträgt, dann passt es auch im Codeeditor.
Ich hätte halt gerne gewusst, wo console ursprünglich definiert wurde.

Ihr könnt es ja gerne mal selbst ausprobieren.

Ich hatte letztens ein Video über den minimax bzw. Alpha Beta Prune Algorithmus gesehen und wollte das mal in einem 4 Gewinnt Spiel umsetzen.
Es sieht zwar noch grauselich aus und der minimax Algorithmus ist bei einer maxTiefe von mehr als 6 quälend ...

Das?
https://www.freepascal.org/daily/doc/prog/progsu88.html


Ja, das hatte ich schon gelesen. Wenn ich in meiner Anwendung einen Button einbaue und darin:

procedure TViergewinntMainForm.btnisConsoleClick(Sender: TObject);
begin
if IsConsole then showmessage('console') else showmessage('gui ...

Hallo,

ich arbeite an einem kleinen Projekt, welches zwar als "Applikation" erzeugt wurde, aber zunächst als einfaches Konsolenprogramm arbeiten sollte.
Zu dem Zweck habe ich unter Projekteinstellungen -> Compilereinstellungen -> Konfiguration und Ziele -> Zielbetriebssystemspezifische ...