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;