From 2fb94ece94309d2fddb40c62104eb8e24ce40594 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 13 Mar 2006 09:05:07 +0000
Subject: [PATCH]   * use the setresourcestirng iterator

git-svn-id: trunk@2900 -
---
 fcl/inc/gettext.pp | 44 ++++----------------------------------------
 1 file changed, 4 insertions(+), 40 deletions(-)

diff --git a/fcl/inc/gettext.pp b/fcl/inc/gettext.pp
index 05ec778e8f..15ca70d447 100644
--- a/fcl/inc/gettext.pp
+++ b/fcl/inc/gettext.pp
@@ -211,54 +211,18 @@ end;
 //   Resourcestring translation procedures
 // -------------------------------------------------------
 
-{
-  Define USEITERATOR if you want to translate the strings using
-  the SetResourceStrings call. This is not recommended for this
-  particular iplementation, since we must pass through a global
-  variable TheFile : TMOFile. However that works too.
-}
-
-{$ifdef USEITERATOR}
-var
-  Thefile : TMOFile;
-
-function Translate (Name,Value : AnsiString; Hash : Longint) : AnsiString;
 
+function Translate (Name,Value : AnsiString; Hash : Longint; arg:pointer) : AnsiString;
 begin
-  Result:=TheFile.Translate(Value,Hash);
+  Result:=TMOFile(arg).Translate(Value,Hash);
 end;
 
+
 procedure TranslateResourceStrings(AFile: TMOFile);
-var
-  i,j : Integer;
-  s : String;
 begin
-  TheFile:=AFile;
-  SetResourceStrings(@Translate);
+  SetResourceStrings(@Translate,AFile);
 end;
-{$else}
 
-procedure TranslateResourceStrings(AFile: TMOFile);
-var
-  i, j, count: Integer;
-  s: String;
-begin
-  for i:=0 to ResourceStringTableCount - 1 do
-  begin
-    count := ResourceStringCount(I);
-    for j := 0 to count - 1 do
-    begin
-      s := AFile.Translate(GetResourceStringDefaultValue(i, j),
-        GetResourceStringHash(i, j));
-      if Length(s) > 0 then
-      begin
-        SetResourceStringValue(i, j, s);
-        GettextUsed := True;
-      end;
-    end;
-  end;
-end;
-{$endif}
 
 {$ifdef win32}
 procedure GetLanguageIDs(var Lang, FallbackLang: string);