Deutsches Lazarusforum

Hab das dann mal weiter gesponnen.

i want to have a list of all available bluetooth devices


Gemini hat nun alle notwendigen Anpassungen in AndroidMainfest.xml sowie in MainActivity.kt dargestellt, welche ich einfach 1:1 kopiert habe und:
Hat funktioniert.

Nun habe ich gesagt:

i want to have ...

Das ist ja das, was ich meine.
In der Anleitung stand: Füge diese Einträge der AndroidManifest.xml hinzu.

<uses-permission android:name="android.permission.BLUETOOTH" />
<uses-permission android:name="android.permission.BLUETOOTH_ADMIN" />
<uses-permission android:name="android.permission.ACCESS ...

Man kann ja von KI halten was man will, aber ich bin heute eher etwas zufällig drüber gestolpert.
Da das mit Lazarus und Android Anwendungen ja nich so dolle ist, hab ich mir mal Android Studio installiert.

Kleines Tutorial auf Google gesucht und dann eben mal schnell eine kleine Android App ...

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.