Vier-in-einer-Reihe

[DualCoreCpu]

Zitat von Sherlock:

Und in welchem Spiel wird das gebraucht?

Sherlock

Keine Ahnung, aber

Zitat von Michael II:

Es gibt aber zahlreiche Probleme in der Mathematik, welche noch auf eine Lösung warten. Vielleicht könnte man sich hier im Forum ja mal auf eins einigen und das Ding dann mit viel Grips und Delphi lösen

Da fiel mir halt spontan (einfach so beim Lesen hier) das von mir genannte Problem ein.

Ein anderes wäre eine 3D Landschaft, die dann wieder durchaus in einem Spiel verwendet werden könnte.

Das dürfte aber bereits gelöst sein, oder???

[Roland Chastain]

Hallo! Hier ist eine neue Version meiner bescheidenen Programm.

Jetzt können wir die Menüsprache ändern. Aber ich bin nicht in der Lage die deutsche Version zu machen. Hat jemand die Freundlichkeit und die Zeit für mich zu tun?

Delphi-Quellcode:

unit langage;

interface

type
  TLanguage = (
    lEnglish,
    lFrench,
    lGerman
  );
  
  TText = (
    txtWhite,
    txtBlack,
    txtWhiteWins,
    txtBlackWins,
    txtDraw,
    txtGame,
    txtNewGame,
    txtExit,
    txtOptions,
    txtComputerWhite,
    txtComputerBlack,
    txtEnglish,
    txtFrench,
    txtGerman,
    txtDisable,
    txtHighest,
    txtHelp,
    txtAbout
  );

function GetText(const aText: TText; const aLanguage: TLanguage): string;

implementation

const
  DATA: array[TText, TLanguage] of string = (
    ('White to move.', 'Trait au Blanc.', 'Weiß am Zug.'), // txtWhiteToMove
    ('Black to move.', 'Trait au Noir.', 'Schwarz am Zug.'), // txtBlackToMove
    ('White wins.', 'Le Blanc gagne.', 'Weiß gewinnt.'), // txtWhiteWins
    ('Black wins.', 'Le Noir gagne.', 'Schwarz gewinnt.'), // txtBlackWins
    ('Draw.', 'Partie remise.', 'Remis.'), // txtDraw
    
    ('Game', 'Jeu', 'Game'), // txtGame
    ('New game', 'Nouvelle partie', 'New game'), // txtNewGame
    ('Exit', 'Quitter', 'Exit'), // txtExit
    ('Options', 'Options', 'Options'), // txtOptions
    ('Computer plays White', 'L''ordinateur joue les pions blancs', 'Computer plays White'), // txtComputerWhite
    ('Computer plays Black', 'L''ordinateur joue les pions noirs', 'Computer plays Black'), // txtComputerBlack
    ('English', 'Anglais', 'English'), // txtEnglish
    ('French', 'Français', 'French'), // txtFrench
    ('German', 'Allemand', 'German'), // txtGerman
    ('Disable animation', 'Désactiver l''animation', 'Disable animation'), // txtDisable
    ('Highest animation speed', 'Vitesse d''animation maximale', 'Highest animation speed'), // txtHighest
    ('Help', 'Aide', 'Help'), // txtHelp
    ('About', 'À propos', 'About')  // txtAbout
  );

[Jumpy]

reicht das so?

Delphi-Quellcode:

    ('Game', 'Jeu', 'Spiel'), // txtGame
    ('New game', 'Nouvelle partie', 'Neues Spiel'), // txtNewGame
    ('Exit', 'Quitter', 'Beenden'), // txtExit
    ('Options', 'Options', 'Optionen'), // txtOptions
    ('Computer plays White', 'L''ordinateur joue les pions blancs', 'Computer spielt weiß'), // txtComputerWhite
    ('Computer plays Black', 'L''ordinateur joue les pions noirs', 'Computer spielt schwarz'), // txtComputerBlack
    ('English', 'Anglais', 'Englisch'), // txtEnglish
    ('French', 'Français', 'Französisch'), // txtFrench
    ('German', 'Allemand', 'Deutsch'), // txtGerman
    ('Disable animation', 'Désactiver l''animation', 'Animation ausschalten'), // txtDisable
    ('Highest animation speed', 'Vitesse d''animation maximale', 'Höchste Animationsgeschwindigkeit'), // txtHighest
    ('Help', 'Aide', 'Hilfe'), // txtHelp
    ('About', 'À propos', 'Über') // txtAbout

[Sherlock]

Magst Du nicht lieber die Übersetzungen außerhalb des Quellcodes veranstalten? Delphi bietet dazu den resourcestring und es gibt einige Übersetzungswerkzeuge, die damit zu ausgezeichneten Lokalisierungen kommen. Weil das da oben hat man vor 20 Jahren so gemacht...

Ich google das schnell mal für Dich...

Sherlock

[Sherlock]

Eigentlich braucht man gar nicht so weit zu gehen, wie ich erst annahm. Schau Dir die Online-Hilfe zum Thema Übersetzungen an (http://docwiki.embarcadero.com/RADSt...ger_in_der_IDE).

Ich würde ohnehin so einigen hier empfehlen wollen, die Anwendungen auf Deutsch zu schreiben, und die Übersetzung anderen zu überlassen. Insofern begrüße ich Deinen Schritt ungemein!

Sherlock

[Roland Chastain]

@Jumpy
Vielen Dank für die Übersetzung!

@Sherlock
Vielen Dank für den Tipp! Ich werde es studieren.

Aktualisierte Dateien. Bitte beachten Sie die erste Nachricht.

[Benedikt Magnus]

Warum sehe ich diesen Thread jetzt erst?

Wunderbare Arbeit! Gefällt mir sehr!

Ich habe auch mal so etwas gemacht, noch gar nicht so lange her: Sieh hier.

[Michael II]

Und jetzt bitte ein gutes 5gewinnt... .

Bei 5gewinnt - im Gegensatz zu 4gewinnt immer noch ein "ungelöstes" Spiel - werden auch immer wieder Computermeisterschaften gespielt:

https://en.wikipedia.org/wiki/Gomoku