Changeset 22 for trunk/UCore.pas

Timestamp:

Mar 25, 2013, 11:47:38 PM (11 years ago)

Author:

chronos

Message:

• Upraveno: Příprava pro zobrazování seznamu operací.

File:

• trunk/UCore.pas (modified) (6 diffs)

trunk/UCore.pas

@@ -11 +11 @@
 
 type
+
+  { TAccountOperation }
+
   TAccountOperation = class
     Id: string;
     Time: TDateTime;
     Value: Double;
+    Account: string;
     VarSym: string;
     SpecSym: string;
     ConstSym: string;
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
   end;
 
@@ -118 +124 @@
   SDumpFormat = 'Dump %d %t.%f';
 
+{ TAccountOperation }
+
+procedure TAccountOperation.LoadFromRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
+    Id := UTF8Encode(ReadStringWithDefault('Id', UTF8Decode('')));
+    Time := ReadDateTimeWithDefault('Time', 0);
+    Value := ReadFloatWithDefault('Value', 0);
+    Account := UTF8Encode(ReadStringWithDefault('Account', UTF8Decode('')));
+    VarSym := UTF8Encode(ReadStringWithDefault('VarSym', UTF8Decode('')));
+    SpecSym := UTF8Encode(ReadStringWithDefault('SpecSym', UTF8Decode('')));
+    ConstSym := UTF8Encode(ReadStringWithDefault('ConstSym', UTF8Decode('')));
+  finally
+    Free;
+  end;
+end;
+
+procedure TAccountOperation.SaveToRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
+    WriteString('Id', UTF8Decode(Id));
+    WriteString('Account', UTF8Decode(Account));
+    WriteDateTime('Time', Time);
+    WriteFloat('Value', Value);
+    WriteString('VarSym', UTF8Decode(VarSym));
+    WriteString('SpecSym', UTF8Decode(SpecSym));
+    WriteString('ConstSym', UTF8Decode(ConstSym));
+  finally
+    Free;
+  end;
+end;
+
 { TAccount }
 
@@ -127 +171 @@
   Time := Source.Time;
   Number := Source.Number;
+  BankCode := Source.BankCode;
+  //Operations.Assign(Source.Operations);
 end;
 
 procedure TAccount.LoadFromRegistry(Context: TRegistryContext);
+var
+  I: Integer;
 begin
   with TRegistryEx.Create do
@@ -144 +192 @@
     Free;
   end;
+  with Operations do
+  for I := 0 to Count - 1 do begin
+    if not Assigned(Items[I]) then Items[I] := TAccountOperation.Create;
+    TAccountOperation(Items[I]).LoadFromRegistry(RegContext(Context.RootKey, Context.Key + '\' + IntToStr(I)));
+  end;
 end;
 
 procedure TAccount.SaveToRegistry(Context: TRegistryContext);
+var
+  I: Integer;
 begin
   with TRegistryEx.Create do
@@ -161 +216 @@
     Free;
   end;
+  with Operations do
+  for I := 0 to Count - 1 do
+    TAccountOperation(Items[I]).SaveToRegistry(RegContext(Context.RootKey, Context.Key + '\' + IntToStr(I)));
 end;
 
@@ -219 +277 @@
     Strings.Delete(Strings.Count - 1);
   for I := 0 to Count - 1 do begin
-    Strings.Strings[I] := IntToStr(I) + ': ' + TAccount(Items[I]).Name + ' (' +
+    Strings.Strings[I] := IntToStr(I + 1) + ': ' + TAccount(Items[I]).Name + ' (' +
       TAccount(Items[I]).Number + '/' + TAccount(Items[I]).BankCode + ')';
     Strings.Objects[I] := Items[I];