paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 15:38:15 +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-Transfer-Encoding: 8bit\n"
#: iputils:slongversion
msgid "Version %.2f"
msgstr ""
#: iputils:sshortversion
msgid "v%.2f"
msgstr ""
#: iputils:slongversion
msgid "Version %.2f"
msgstr ""

12
ide/idetranslations.pas
View File

@ -174,13 +174,13 @@ type
function CompareConstItems(Data1, Data2: Pointer): integer;
begin
Result:=CompareText(TConstItem(Data1).ConstName,TConstItem(Data2).ConstName);
Result:=CompareText(TConstItem(Data1).Value,TConstItem(Data2).Value);
end;
function CompareNameWithConstItems(NamePAnsiString, ConstItem: Pointer): integer;
function CompareValueWithConstItems(ValuePAnsiString, ConstItem: Pointer): integer;
begin
Result:=CompareText(PAnsiString(NamePAnsiString)^,
TConstItem(ConstItem).ConstName);
Result:=CompareText(PAnsiString(ValuePAnsiString)^,
TConstItem(ConstItem).Value);
end;
function ReadRSTFile(const InFilename: string;
@ -254,7 +254,7 @@ begin
end else
Inc(i);
end;
Node:=TreeOfConstItems.FindKey(@ConstName,@CompareNameWithConstItems);
Node:=TreeOfConstItems.FindKey(@Value,@CompareValueWithConstItems);
if Node=nil then begin
Item:=TConstItem.Create;
Item.ModuleName:=ModuleName;
@ -262,7 +262,7 @@ begin
Item.Value:=Value;
TreeOfConstItems.Add(Item);
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;