paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 07:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: .po files: auto removing double values

Browse Source 
git-svn-id: trunk@10437 -
This commit is contained in:
mattias 2007-01-13 10:32:16 +00:00
parent c6c51404e3
commit 74530085ad
3 changed files with 1888 additions and 1964 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3832
components/turbopower_ipro/languages/ipconst.po
View File

File diff suppressed because it is too large Load Diff

8
components/turbopower_ipro/languages/iputils.po
View File

@ -2,11 +2,11 @@
"Content-Type: text/plain; charset=UTF-8\n" "Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
#: iputils:slongversion
msgid "Version %.2f"
msgstr ""
#: iputils:sshortversion #: iputils:sshortversion
msgid "v%.2f" msgid "v%.2f"
msgstr "" msgstr ""
#: iputils:slongversion
msgid "Version %.2f"
msgstr ""

12
ide/idetranslations.pas
View File

@ -174,13 +174,13 @@ type
function CompareConstItems(Data1, Data2: Pointer): integer; function CompareConstItems(Data1, Data2: Pointer): integer;
begin begin
Result:=CompareText(TConstItem(Data1).ConstName,TConstItem(Data2).ConstName); Result:=CompareText(TConstItem(Data1).Value,TConstItem(Data2).Value);
end; end;
function CompareNameWithConstItems(NamePAnsiString, ConstItem: Pointer): integer; function CompareValueWithConstItems(ValuePAnsiString, ConstItem: Pointer): integer;
begin begin
Result:=CompareText(PAnsiString(NamePAnsiString)^, Result:=CompareText(PAnsiString(ValuePAnsiString)^,
TConstItem(ConstItem).ConstName); TConstItem(ConstItem).Value);
end; end;
function ReadRSTFile(const InFilename: string; function ReadRSTFile(const InFilename: string;
@ -254,7 +254,7 @@ begin
end else end else
Inc(i); Inc(i);
end; end;
Node:=TreeOfConstItems.FindKey(@ConstName,@CompareNameWithConstItems); Node:=TreeOfConstItems.FindKey(@Value,@CompareValueWithConstItems);
if Node=nil then begin if Node=nil then begin
Item:=TConstItem.Create; Item:=TConstItem.Create;
Item.ModuleName:=ModuleName; Item.ModuleName:=ModuleName;
@ -262,7 +262,7 @@ begin
Item.Value:=Value; Item.Value:=Value;
TreeOfConstItems.Add(Item); TreeOfConstItems.Add(Item);
end else begin end else begin
DebugLn(['ReadRSTFile Double ignored: ModuleName=',ModuleName,' ConstName=',ConstName,' Value="',DbgStr(Value),'"']); //DebugLn(['ReadRSTFile Double ignored: ModuleName=',ModuleName,' ConstName=',ConstName,' Value="',DbgStr(Value),'"']);
end; end;
end; end;