Vier-in-einer-Reihe

[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
  );