AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Vier-in-einer-Reihe
Thema durchsuchen
Ansicht
Themen-Optionen

Vier-in-einer-Reihe

Ein Thema von Roland Chastain · begonnen am 19. Apr 2014 · letzter Beitrag vom 23. Apr 2017
Antwort Antwort
DualCoreCpu
(Gast)

n/a Beiträge
 
#1

AW: Vier-in-einer-Reihe

  Alt 18. Apr 2017, 17:22
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???

Geändert von DualCoreCpu (18. Apr 2017 um 17:25 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Roland Chastain
Roland Chastain

Registriert seit: 26. Dez 2013
Ort: Saargemünd (Frankreich)
14 Beiträge
 
#2

AW: Vier-in-einer-Reihe

  Alt 20. Apr 2017, 11:47
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
  );

Geändert von Roland Chastain (20. Apr 2017 um 14:46 Uhr)
  Mit Zitat antworten Zitat
Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.740 Beiträge
 
Delphi 6 Enterprise
 
#3

AW: Vier-in-einer-Reihe

  Alt 20. Apr 2017, 13:21
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
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.820 Beiträge
 
Delphi 12 Athens
 
#4

AW: Vier-in-einer-Reihe

  Alt 20. Apr 2017, 13:54
Magst Du nicht lieber die Übersetzungen außerhalb des Quellcodes veranstalten? Delphi bietet dazu den Delphi-Referenz durchsuchenresourcestring 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
Oliver
Geändert von Sherlock (Morgen um 16:78 Uhr) Grund: Weil ich es kann
  Mit Zitat antworten Zitat
Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.820 Beiträge
 
Delphi 12 Athens
 
#5

AW: Vier-in-einer-Reihe

  Alt 20. Apr 2017, 14:10
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
Oliver
Geändert von Sherlock (Morgen um 16:78 Uhr) Grund: Weil ich es kann
  Mit Zitat antworten Zitat
Benutzerbild von Roland Chastain
Roland Chastain

Registriert seit: 26. Dez 2013
Ort: Saargemünd (Frankreich)
14 Beiträge
 
#6

AW: Vier-in-einer-Reihe

  Alt 20. Apr 2017, 14:44
@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.
  Mit Zitat antworten Zitat
Benedikt Magnus

Registriert seit: 6. Jul 2012
Ort: Bonn
190 Beiträge
 
FreePascal / Lazarus
 
#7

AW: Vier-in-einer-Reihe

  Alt 23. Apr 2017, 10:41
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.
  Mit Zitat antworten Zitat
Michael II

Registriert seit: 1. Dez 2012
Ort: CH BE Eriswil
778 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: Vier-in-einer-Reihe

  Alt 23. Apr 2017, 12:08
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
Michael Gasser
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz