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;