Changeset 249 for trunk/Components/ACLLanguageUnit.pas

Timestamp:

Sep 17, 2007, 9:00:30 PM (18 years ago)

Author:

RBRi

Message:

#24

File:

• trunk/Components/ACLLanguageUnit.pas (modified) (4 diffs)

trunk/Components/ACLLanguageUnit.pas

@@ -48 +48 @@
     function getValue(const aLabel : String; const aDefaultValue : String) : String;
     procedure setValue(const aLabel : String; const aValue : String);
+    procedure readFrom(aTextFile : TextFile);
     procedure saveTo(const aTextFile : TextFile);
   end;
@@ -248 +249 @@
 
 
+  procedure TLanguageItemList.readFrom(aTextFile : TextFile);
+  var
+    tmpLine : string;
+    tmpLabel : string;
+    tmpValue : string;
+    tmpLineParts : TStringList;
+  begin
+    tmpLineParts := TStringList.Create;
+
+    while not Eof(aTextFile) do
+    begin
+      ReadLn(aTextFile, tmpLine);
+
+      tmpLineParts.clear;
+      StrExtractStringsQuoted(tmpLineParts, tmpLine);
+
+      if tmpLineParts.count > 0 then
+      begin
+        tmpLabel := tmpLineParts[0];
+
+        // TODO trim leading blanks
+        if tmpLabel[1] <> LANGUAGE_COMMENT_CHAR then
+        begin
+          // Got a name, read the value and store.
+          tmpValue := '';
+          if tmpLineParts.count > 0 then
+          begin
+            tmpValue := tmpLineParts[1];
+          end;
+
+          setValue(tmpLabel, tmpValue);
+        end;
+      end;
+    end;
+
+    tmpLineParts.Destroy;
+  end;
+
+
   procedure TLanguageItemList.saveTo(const aTextFile : TextFile);
   var
@@ -459 +499 @@
   var
     tmpTextFile : TextFile;
-    tmpLine : string;
-    tmpLabel : string;
-    tmpValue : string;
-    tmpLineParts : TStringList;
   begin
     filename := aFileName;
@@ -478 +514 @@
     Reset(tmpTextFile);
 
-    tmpLineParts := TStringList.Create;
-
-    while not Eof(tmpTextFile) do
-    begin
-      ReadLn(tmpTextFile, tmpLine);
-
-      tmpLineParts.clear;
-      StrExtractStringsQuoted(tmpLineParts, tmpLine);
-
-      if tmpLineParts.count > 0 then
-      begin
-        tmpLabel := tmpLineParts[0];
-
-        // TODO trim leading blanks
-        if tmpLabel[1] <> LANGUAGE_COMMENT_CHAR then
-        begin
-          // Got a name, read the value and store.
-          tmpValue := '';
-          if tmpLineParts.count > 0 then
-          begin
-            tmpValue := tmpLineParts[1];
-          end;
-
-          languageItems.setValue(tmpLabel, tmpValue);
-        end;
-      end;
-    end;
-
-    tmpLineParts.Destroy;
+    languageItems.readFrom(tmpTextFile);
+
     CloseFile(tmpTextFile);
   end;