Changeset 243 for oup/current/FileClasses

Timestamp:

Aug 10, 2007, 7:26:03 PM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/FileClasses/_DataTypes.pas (modified) (1 diff)

oup/current/FileClasses/_DataTypes.pas

@@ -835 +835 @@
   FNames := TStringList.Create;
   for i := 0 to High(ExtraArgs) do
+  begin
     case ExtraArgs[i].VType of
-      vtChar: FNames.Add(ExtraArgs[0].VChar);
-      vtAnsiString: FNames.Add(String(ExtraArgs[0].VAnsiString));
+      vtChar: FNames.Add(ExtraArgs[i].VChar);
+      vtAnsiString: FNames.Add(String(ExtraArgs[i].VAnsiString));
     end;
+    if Length(FDescription) > 0 then
+      FDescription := FDescription + #13#10;
+    FDescription := FDescription + '$' + IntToHex(1 shl i,2) + ': ' + FNames.Strings[FNames.Count - 1];
+  end;
   FDataLength := 1;
   FType := 'BitSet';