Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Miscellaneous
»
Translations
»
Show 'Language-Team' value of po file in application
Free Pascal
Website
Downloads
Wiki
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Bugtracker
CCR Bugs
IRC channel
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
Memory Leak. Missing 64 b...
by
Thaddy
[
Today
at 10:41:02 am]
Type checking of units of...
by
circular
[
Today
at 10:35:37 am]
Component to sdf file - M...
by
Mi-Ki
[
Today
at 10:34:16 am]
What are main differences...
by
DecayAssault
[
Today
at 10:31:15 am]
Links in forum posts
by
Marc
[
Today
at 10:25:33 am]
Apple Lisa Source Code
by
PierceNg
[
Today
at 09:55:18 am]
File not open??? Why?
by
OC DelGuy
[
Today
at 09:22:36 am]
Getting info that is very...
by
alpine
[
Today
at 09:13:23 am]
Controls inside the form ...
by
GetMem
[
Today
at 08:11:31 am]
BUG: OnExit and ComboBox
by
KodeZwerg
[
Today
at 08:10:46 am]
« previous
next »
Print
Pages: [
1
]
Author
Topic: Show 'Language-Team' value of po file in application (Read 6162 times)
stem
Jr. Member
Posts: 84
Show 'Language-Team' value of po file in application
«
on:
December 30, 2018, 11:09:16 pm »
Hi,
with Poedit you can add in the properties a 'Language-Team'. How can I easily show the value of the 'Language-Team' for the currently selected translation in my application? Thank you!
stem
Logged
stem
Jr. Member
Posts: 84
Re: Show 'Language-Team' value of po file in application
«
Reply #1 on:
May 04, 2019, 09:54:30 pm »
No ideas?
Logged
wp
Hero Member
Posts: 10469
Re: Show 'Language-Team' value of po file in application
«
Reply #2 on:
May 04, 2019, 10:12:54 pm »
In unit "Translations" you can find a class TPoFile which reads the entire file. Property Header contains the name of the last translator and the name of the team. The following code extracts this information from the header:
Code: Pascal
[Select]
[+]
[-]
uses
Translations
;
procedure
ShowTranslationInfo
(
AFileName
:
String
;
out Team
,
Translator
:
String
)
;
var
pofile
:
TPoFile
;
L
:
TStringList
;
i
:
Integer
;
sa
:
TStringArray
;
begin
L
:
=
TStringList
.
Create
;
try
pofile
:
=
TPoFile
.
Create
(
AFileName
)
;
try
L
.
Text
:
=
pofile
.
Header
.
Translation
;
finally
pofile
.
Free
;
end
;
for
i
:
=
0
to
L
.
Count
-
1
do
begin
sa
:
=
L
[
i
]
.
Split
(
':'
)
;
if
(
Length
(
sa
)
=
2
)
then
case
sa
[
0
]
of
'Last-Translator'
:
Translator
:
=
Trim
(
sa
[
1
]
)
;
'Language-Team'
:
Team
:
=
Trim
(
sa
[
1
]
)
;
end
;
end
;
finally
L
.
Free
;
end
;
end
;
Logged
stem
Jr. Member
Posts: 84
Re: Show 'Language-Team' value of po file in application
«
Reply #3 on:
May 04, 2019, 10:58:18 pm »
Thank you!
Logged
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Miscellaneous
»
Translations
»
Show 'Language-Team' value of po file in application
TinyPortal
© 2005-2018