Please help to translate AkfQuiz to other languages

deutsch, english
Andreas K. Förster
italiano
Martin Guy
dansk
Tommy Jensen

This is the relevant code from the file qmsgs.pas


   1 { Translators: }
   2 { if you need an apostrophe, use it twice like this: 'That''s it' }
   3 { use the function cnv if and only if you use non-ASCII chars }
   4 
   5 
   6 function msg_GPL: mystring;
   7 begin
   8 case lang of
   9   italiano: msg_GPL := cnv('GPL v2 o version più recente');
  10   deutsch : msg_GPL := 'GPL V2 oder neuer'
  11   otherwise msg_GPL := 'GPL v2 or later'
  12   end
  13 end;
  14 
  15 function msg_noWarranty: mystring;
  16 begin
  17 case lang of
  18   italiano:  msg_noWarranty := cnv(
  19     'Questo programma è distribuito SENZA ALCUNA GARANZIA' + nl
  20     + 'per quanto ciò sia consentito dalla legge.' + nl
  21     + 'È lecito redistribuirlo secondo i termini della' + nl
  22     + 'GNU General Public License;' + nl
  23     + 'per dettagli vedere la cartella COPYING.' + nl
  24     + 'Gli archivi dei Quiz non sono coperte da questa licenza');
  25   deutsch : msg_noWarranty := cnv(
  26     'Dieses Programm wird ohne Gewährleistung geliefert, ' + nl 
  27     + 'soweit dies gesetzlich zulässig ist.' + nl 
  28     + 'Sie können es unter den Bedingungen der' + nl
  29     + 'GNU General Public License weitergeben.'+ nl 
  30     + 'Details dazu enthält die Datei COPYING.' + nl
  31     + nl
  32     + 'Quiz-Dateien sind von dieser Lizenz nicht betroffen.')
  33   otherwise msg_noWarranty := 
  34     'This program comes with NO WARRANTY,' + nl
  35     + 'to the extent permitted by law.' + nl
  36     + 'You may redistribute it under the terms of the ' + nl
  37     + 'GNU General Public License;' + nl
  38     + 'see the file named COPYING for details.' + nl
  39     + nl
  40     + 'Quiz-files are not affected by this license.'
  41   end
  42 end;
  43 
  44 function msg_contributions: mystring;
  45 begin
  46 case lang of
  47   italiano : msg_contributions := 'Contribuenti:';
  48   deutsch  : msg_contributions := cnv('Beiträge:')
  49   otherwise  msg_contributions := 'Contributions:'
  50   end
  51 end;
  52 
  53 function msg_advertisement: mystring;
  54 begin
  55 { may be used for other advertisements }
  56 { just one line! }
  57 
  58 {$IfDef Advertisement}
  59   case lang of
  60     deutsch  : msg_advertisement := 
  61         cnv('Das original AKFQuiz ist für GNU/Linux erhältlich');
  62     italiano :  msg_advertisement := 
  63         cnv('La versione originale di AKFQuiz è disponibile per GNU/Linux');
  64     dansk    :  msg_advertisement := 
  65         'Den oprindelige AKFQuiz findes til GNU/Linux'
  66     otherwise  msg_advertisement := 
  67         'The original of AKFQuiz is available for GNU/Linux'
  68     end
  69 {$Else}
  70   msg_advertisement := '' { to reduce the size of the binary  }
  71 {$EndIf}
  72 end;
  73 
  74 function msg_noquizfound: mystring;
  75 begin
  76 case lang of
  77   deutsch : msg_noquizfound := 'Keine AKFQuiz-Dateien gefunden';
  78   italiano: msg_noquizfound := 'Nessun archivio AKFQuiz trovato';
  79   dansk   : msg_noquizfound := 'Ingen AKFQuiz filer fundet'
  80   otherwise msg_noquizfound := 'No AKFQuiz-files found'
  81   end
  82 end;
  83 
  84 function msg_filenotfound: mystring;
  85 begin
  86 case lang of 
  87   deutsch : msg_filenotfound := 'Fehler: Datei nicht gefunden';
  88   italiano: msg_filenotfound := 'Errore: Archivio non trovato';
  89   dansk   : msg_filenotfound := 'Fejl: Fil ikke fundet'
  90   otherwise msg_filenotfound := 'Error: file not found'
  91   end
  92 end;
  93 
  94 function msg_anykey(const key: string): mystring;
  95 begin
  96 case lang of
  97   deutsch : 
  98     if key='' 
  99       then msg_anykey := 'beliebige Taste...'
 100       else msg_anykey := 
 101              'beliebige Taste zum Fortfahren, oder '+key+' zum Beenden...';
 102   italiano : 
 103     if key='' 
 104       then msg_anykey := 'Premere un tasto...'
 105       else msg_anykey := 
 106             'Premere un tasto per continuare o '+key+' per uscire...';
 107   dansk :
 108     if key='' 
 109       then msg_anykey := cnv('Tryk på en tast...')
 110       else msg_anykey := cnv('Tryk på en tast for at fortsætte eller '+
 111                              key+' for at stoppe...')
 112   otherwise if key='' 
 113               then msg_anykey := 'press any key to continue...'
 114               else msg_anykey := 
 115                    'press any key to continue or '+key+' to stop...'
 116   end
 117 end;
 118 
 119 function msg_quiz: mystring;
 120 begin
 121 case lang of
 122   deutsch,
 123   italiano,
 124   dansk    : msg_quiz := 'Quiz: '
 125   otherwise  msg_quiz := 'Quiz: '
 126   end
 127 end;
 128 
 129 function msg_author: mystring;
 130 begin
 131 case lang of
 132   deutsch  : msg_author := 'Autor: ';
 133   italiano : msg_author := 'Autore: ';
 134   dansk    : msg_author := 'Forfatter: '
 135   otherwise  msg_author := 'Author: '
 136   end
 137 end;
 138 
 139 function msg_authorURI: mystring;
 140 begin
 141 case lang of
 142   deutsch  : msg_authorURI := 'Autor-Link: ';
 143   italiano : msg_authorURI := 'Autore-link: ';
 144   dansk    : msg_authorURI := 'Forfatter-Link: '
 145   otherwise  msg_authorURI := 'Author-link: '
 146   end
 147 end;
 148 
 149 function msg_translator: mystring;
 150 begin
 151 case lang of
 152   deutsch  : msg_translator := cnv('Übersetzer: ');
 153   italiano : msg_translator := 'Traduttore: ';
 154   dansk    : msg_translator := cnv('Oversætter: ')
 155   otherwise  msg_translator := 'Translator: '
 156   end
 157 end;
 158 
 159 function msg_edited: mystring;
 160 begin
 161 case lang of
 162   italiano : msg_edited := 'Modificato da: ';
 163   deutsch  : msg_edited := cnv('Überarbeitet von: ')
 164   otherwise  msg_edited := 'Edited by: '
 165   end
 166 end;
 167 
 168 function msg_license: mystring;
 169 begin
 170 case lang of
 171   italiano : msg_license := 'Licenza: ';
 172   deutsch  : msg_license := 'Lizenz: '
 173   otherwise  msg_license := 'License: '
 174   end
 175 end;
 176 
 177 function msg_licenseURI: mystring;
 178 begin
 179 case lang of
 180   italiano : msg_licenseURI := 'Licenza-link: ';
 181   deutsch  : msg_licenseURI := 'Lizenz-Link: '
 182   otherwise  msg_licenseURI := 'License-Link: '
 183   end
 184 end;
 185 
 186 function msg_right: mystring;
 187 begin
 188 case lang of
 189   deutsch  : msg_right := 'richtig';
 190   italiano : msg_right := 'giusto';
 191   dansk    : msg_right := 'rigtigt'
 192   otherwise  msg_right := 'right'
 193   end
 194 end;
 195          
 196 function msg_wrong: mystring;
 197 begin
 198 case lang of
 199   deutsch  : msg_wrong := 'leider falsch';
 200   italiano : msg_wrong := 'sbagliato, mi dispiace';
 201   dansk    : msg_wrong := 'beklager, det er forkert'
 202   otherwise  msg_wrong := 'wrong, sorry'
 203   end
 204 end;
 205 
 206 function msg_points: mystring;
 207 begin
 208 case lang of
 209   deutsch  : msg_points := 'Punkte: ';
 210   italiano : msg_points := 'punti: ';
 211   dansk    : msg_points := 'point: ' {???}
 212   otherwise  msg_points := 'points: '
 213   end
 214 end;
 215  
 216 function msg_seen: mystring;
 217 begin
 218 case lang of
 219   deutsch  : msg_seen := cnv('Du hast die Lösung doch schon gesehen!');
 220   italiano : msg_seen := cnv('Ehi! Hai già visto la soluzione!');
 221   dansk    : msg_seen := cnv('Du har jo allerede set løsningen!')
 222   otherwise  msg_seen := 'Hey, you have seen the solution already!'
 223   end
 224 end;
 225 
 226 function msg_really: mystring;
 227 begin
 228 case lang of
 229   deutsch  : msg_really := cnv('Wirklich die Lösung zeigen?');
 230   italiano : msg_really := 'Vuoi vedere la soluzione davvero?';
 231   dansk    : msg_really := cnv('Ønsker du virkelig at se løsningen?')
 232   otherwise  msg_really := 'You really want to see the solution?'
 233   end
 234 end;
 235 
 236 function msg_sol1: mystring;
 237 begin
 238 case lang of
 239   deutsch  : msg_sol1 := 'Es wurden ';
 240   italiano : msg_sol1 := 'Hai guagadnato ';
 241   dansk    : msg_sol1 := cnv('Du har fået ')
 242   otherwise  msg_sol1 := 'You have gained '
 243   end
 244 end;
 245 
 246 function msg_sol2: mystring;
 247 begin
 248 case lang of
 249   deutsch  : msg_sol2 := ' von maximal ';
 250   italiano : msg_sol2 := ' dei ';
 251   dansk    : msg_sol2 := ' af '
 252   otherwise  msg_sol2 := ' of '
 253   end
 254 end;
 255 
 256 function msg_sol3: mystring;
 257 begin
 258 case lang of
 259   deutsch  : msg_sol3 := ' Punkten erreicht.';
 260   italiano : msg_sol3 := ' punti possibili.';
 261   dansk    : msg_sol3 := ' mulige point.'
 262   otherwise  msg_sol3 := ' possible points.'
 263   end
 264 end;
 265 
 266 function msg_sol4: mystring;
 267 begin
 268 case lang of
 269   deutsch  : msg_sol4 := 'Das sind ';
 270   italiano : msg_sol4 := cnv('Ciò fà ');
 271   dansk    : msg_sol4 := 'Det giver '
 272   otherwise  msg_sol4 := 'That makes '
 273   end
 274 end;
 275 
 276 function msg_sol5: mystring;
 277 begin
 278 case lang of
 279   deutsch  : msg_sol5 := 'Das sind leider nicht genug.';
 280   italiano : msg_sol5 := 'Mi dispiace, ma non basta.';
 281   dansk    : msg_sol5 := 'Beklager, det er ikke nok.'
 282   otherwise  msg_sol5 := 'Sorry, that''s not enough.'
 283   end
 284 end;
 285 
 286 function msg_timeout: mystring;
 287 begin
 288 case lang of
 289   italiano : msg_timeout := cnv('Il tempo è finito!');
 290   deutsch  : msg_timeout := 'Die Zeit ist abgelaufen!'
 291   otherwise  msg_timeout := 'The time is up!'
 292   end
 293 end;
 294 
 295 function msg_time: mystring;
 296 begin
 297 case lang of
 298   italiano : msg_time := 'Tempo trascorso: ';
 299   deutsch  : msg_time := cnv('Benötigte Zeit: ')
 300   otherwise  msg_time := 'Elapsed time: '
 301   end
 302 end;
 303 
 304 function msg_timelimit: mystring;
 305 begin
 306 case lang of
 307   italiano : msg_timelimit := 'Limite di tempo: ';
 308   deutsch  : msg_timelimit := 'Zeit-Limit: '
 309   otherwise  msg_timelimit := 'time limit: '
 310   end
 311 end;
 312 
 313 
 314 function msg_error: mystring;
 315 begin
 316 case lang of
 317   deutsch  : msg_error := 'Fehler';
 318   italiano : msg_error := 'Errore';
 319   dansk    : msg_error := 'Fejl'
 320   otherwise  msg_error := 'Error'
 321   end
 322 end;
 323 
 324 function msg_fileerror: mystring;
 325 begin
 326 case lang of
 327   deutsch  : msg_fileerror := 'Fehler in der Eingabe-Datei';
 328   italiano : msg_fileerror := 'Errore nell''archivio di input';
 329   dansk    : msg_fileerror := 'Fejl i input filen'
 330   otherwise  msg_fileerror := 'Error in input file'
 331   end
 332 end;
 333 
 334 function msg_result: mystring;
 335 begin
 336 case lang of
 337   deutsch  : msg_result := 'Auswertung';
 338   italiano : msg_result := 'risultato';
 339   dansk    : msg_result := 'resultat'
 340   otherwise  msg_result := 'result'
 341   end
 342 end;
 343 
 344 function msg_solution: mystring;
 345 begin
 346 case lang of
 347   deutsch  : msg_solution := cnv('Auflösung');
 348   italiano : msg_solution := 'soluzione';
 349   dansk    : msg_solution := cnv('løsning')
 350   otherwise  msg_solution := 'solution'
 351   end
 352 end;
 353 
 354 function msg_new: mystring;
 355 begin
 356 case lang of
 357   deutsch  : msg_new := 'neu';
 358   italiano : msg_new := 'nuovo';
 359   dansk    : msg_new := 'ny'
 360   otherwise  msg_new := 'new'
 361   end
 362 end;
 363 
 364 function msg_made: mystring;
 365 begin
 366 case lang of
 367   deutsch  : msg_made := 'erstellt mit';
 368   italiano : msg_made := 'creato con';
 369   dansk    : msg_made := 'skabt ved brug af' {???}
 370   otherwise  msg_made := 'made using'
 371   end
 372 end;
 373 
 374 function msg_back: mystring;
 375 begin
 376 case lang of
 377   deutsch  : msg_back := cnv('zurück');
 378   italiano : msg_back := 'indietro';
 379   dansk    : msg_back := 'tilbage'
 380   otherwise  msg_back := 'back'
 381   end
 382 end;
 383 
 384 function msg_noJS: mystring;
 385 begin
 386 case lang of
 387   deutsch  : 
 388     msg_noJS := cnv('JavaScript nicht verfügbar oder deaktiviert');
 389   italiano : 
 390     msg_noJS := cnv('JavaScript o non è disponibile o è disattivato');
 391   dansk    : msg_noJS := 'JavaScript ikke installeret eller deaktiveret'
 392   otherwise  msg_noJS := 'JavaScript not available or deactivated'
 393   end
 394 end;
 395 
 396 function msg_notusable: mystring;
 397 begin
 398 case lang of
 399   deutsch  : msg_notusable := 'Quiz nicht benutzbar!';
 400   italiano : msg_notusable := 'Quiz non utilizzabile!';
 401   dansk    : msg_notusable := 'Quizzen kan ikke bruges!'
 402   otherwise  msg_notusable := 'Quiz not usable!'
 403   end
 404 end;
 405 
 406 function msg_assessment: mystring;
 407 begin
 408 case lang of
 409   deutsch  : msg_assessment := 'Auswertung';
 410   italiano : msg_assessment := 'valutazione';
 411   dansk    : msg_assessment := cnv('bedømmelse')
 412   otherwise  msg_assessment := 'assessment'
 413   end
 414 end;
 415 
 416 function msg_more: mystring;
 417 begin
 418 case lang of
 419   deutsch : msg_more := 'mehr...';
 420   italiano: msg_more := 'ancora...';
 421   english : msg_more := 'more...'
 422   otherwise msg_more := '...'
 423   end
 424 end;
 425 
 426 function msg_Results: mystring;
 427 begin
 428 case lang of
 429   italiano: msg_Results := 'Risultati';
 430   deutsch : msg_Results := 'Ergebnisse'
 431   otherwise msg_Results := 'Results'
 432   end
 433 end;
 434 
 435 function msg_showResults: mystring;
 436 begin
 437 case lang of
 438   italiano: msg_showResults := 'Mostrare i risultati';
 439   deutsch : msg_showResults := 'Zeige Ergebnisse'
 440   otherwise msg_showResults := 'Show results'
 441   end
 442 end;
 443 
 444 function msg_name: mystring;
 445 begin
 446 case lang of
 447   italiano:  msg_name := 'Nome: ';
 448   deutsch :  msg_name := 'Name: '
 449   otherwise  msg_name := 'Name: '
 450   end
 451 end;
 452 
 453 function msg_passwd: mystring;
 454 begin
 455 case lang of
 456   italiano:  msg_passwd := 'Parola d''ordine';
 457   deutsch :  msg_passwd := 'Passwort'
 458   otherwise  msg_passwd := 'Password'
 459   end
 460 end;
 461 
 462 function msg_newpasswd: mystring;
 463 begin
 464 case lang of
 465   italiano:  msg_newpasswd := 'Nuova parola d''ordine';
 466   deutsch :  msg_newpasswd := 'Neues Passwort'
 467   otherwise  msg_newpasswd := 'New Password'
 468   end
 469 end;
 470 
 471 function msg_reconfigure: mystring;
 472 begin
 473 case lang of
 474   italiano:  msg_reconfigure := 'Riconfigurare';
 475   deutsch :  msg_reconfigure := 'Umkonfigurieren'
 476   otherwise  msg_reconfigure := 'Reconfigure'
 477   end
 478 end;
 479 
 480 function msg_login: mystring;
 481 begin
 482 case lang of
 483   italiano:  msg_login := 'Entrare come docente';
 484   deutsch :  msg_login := 'Als Lehrer anmelden'
 485   otherwise  msg_login := 'Log in as teacher'
 486   end
 487 end;
 488 
 489 function msg_loggedin: mystring;
 490 begin
 491 case lang of
 492   italiano:  msg_loggedin := 'Ingresso riuscito';
 493   deutsch :  msg_loggedin := 'Anmeldung erlogreich'
 494   otherwise  msg_loggedin := 'Login successful'
 495   end
 496 end;
 497 
 498 function msg_logout: mystring;
 499 begin
 500 case lang of
 501   italiano:  msg_logout := 'Uscire';
 502   deutsch :  msg_logout := 'Abmelden'
 503   otherwise  msg_logout := 'Log out'
 504   end
 505 end;
 506 
 507 function msg_loggedout: mystring;
 508 begin
 509 case lang of
 510   italiano:  msg_loggedout := 'Sconnesso';
 511   deutsch :  msg_loggedout := 'Abgemeldet'
 512   otherwise  msg_loggedout := 'Logged out'
 513   end
 514 end;
 515 
 516 function msg_inconsistent: mystring;
 517 begin
 518 case lang of
 519   italiano:  msg_inconsistent :=
 520         cnv('Il risultato non è uguale a quello originale');
 521   deutsch :  msg_inconsistent := 
 522         cnv('Das Ergebnis entspricht nicht dem ursprünglichen Ergebnis')
 523   otherwise  msg_inconsistent := 
 524           'The result is not the same as the original result'
 525   end
 526 end;
 527 
 528 function msg_view: mystring;
 529 begin
 530 case lang of
 531   { italiano:  msg_view := 'vedere'; }
 532   italiano:  msg_view := 'sfogliare';
 533   deutsch :  msg_view := 'anzeigen'
 534   otherwise msg_view := 'view'
 535   end
 536 end;
 537 
 538 function msg_InitAudio: mystring;
 539 begin
 540 case lang of
 541   deutsch : msg_InitAudio := 'initialisiere die Audio-Ausgabe...'
 542   otherwise msg_InitAudio := 'initializing audio...'
 543   end
 544 end;

AkfQuiz/TranslateIt (zuletzt geändert am 2007-12-23 22:47:52 durch localhost)