Changeset 228 for trunk/NewView/TextSearchQuery.pas

Timestamp:

Sep 9, 2007, 2:02:29 PM (18 years ago)

Author:

RBRi

Message:

refactoring for language handling

File:

• trunk/NewView/TextSearchQuery.pas (modified) (1 diff)

trunk/NewView/TextSearchQuery.pas

@@ -62 +62 @@
 Procedure OnLanguageEvent( Language: TLanguageFile;
                            const Apply: boolean );
-begin
-
-  Language.Prefix := 'SearchQuery.';
-  Language.LL( Apply, QueryErrorMissingWord1, 'QueryErrorMissingWord1', 'No search word given after ' );
-  Language.LL( Apply, QueryErrorMissingWord2, 'QueryErrorMissingWord2', ' before ' );
+var
+  tmpPrefix : String;
+begin
+  tmpPrefix := 'SearchQuery' + LANGUAGE_LABEL_DELIMITER;
+  Language.LL( Apply, QueryErrorMissingWord1, tmpPrefix + 'QueryErrorMissingWord1', 'No search word given after ' );
+  Language.LL( Apply, QueryErrorMissingWord2, tmpPrefix + 'QueryErrorMissingWord2', ' before ' );
 end;