Changeset 20 for trunk/UCore.pas

Timestamp:

Mar 25, 2013, 10:58:03 PM (11 years ago)

Author:

chronos

Message:

• Upraveno: Celé číslo účtu rozděleno do samostatných částí jako samotné číslo a kód banky.

File:

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

trunk/UCore.pas

@@ -11 +11 @@
 
 type
+  TAccountOperation = class
+    Id: string;
+    Time: TDateTime;
+    Value: Double;
+    VarSym: string;
+    SpecSym: string;
+    ConstSym: string;
+  end;
 
   { TAccount }
@@ -18 +26 @@
     Name: string;
     Number: string;
+    BankCode: string;
     Balance: Double;
     Time: TDateTime;
+    Operations: TListObject;
     procedure Assign(Source: TAccount);
     procedure LoadFromRegistry(Context: TRegistryContext);
     procedure SaveToRegistry(Context: TRegistryContext);
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -128 +140 @@
     Balance := ReadFloatWithDefault('Balance', 0);
     Number := UTF8Encode(ReadStringWithDefault('Number', ''));
+    BankCode := UTF8Encode(ReadStringWithDefault('BankCode', ''));
   finally
     Free;
@@ -144 +157 @@
     WriteString('Token', UTF8Decode(Token));
     WriteFloat('Balance', Balance);
-  finally
-    Free;
-  end;
+    WriteString('BankCode', UTF8Decode(BankCode));
+  finally
+    Free;
+  end;
+end;
+
+constructor TAccount.Create;
+begin
+  Operations := TListObject.Create;
+end;
+
+destructor TAccount.Destroy;
+begin
+  Operations.Free;
+  inherited Destroy;
 end;
 
@@ -194 +219 @@
     Strings.Delete(Strings.Count - 1);
   for I := 0 to Count - 1 do begin
-    Strings.Strings[I] := TAccount(Items[I]).Name + ' (' + TAccount(Items[I]).Number + ')';
+    Strings.Strings[I] := IntToStr(I) + ': ' + TAccount(Items[I]).Name + ' (' +
+      TAccount(Items[I]).Number + '/' + TAccount(Items[I]).BankCode + ')';
     Strings.Objects[I] := Items[I];
   end;
@@ -240 +266 @@
   Result := StringReplace(Result, '%a', CurrentAccount.Number, [rfReplaceAll]);
   Result := StringReplace(Result, '%n', CurrentAccount.Name, [rfReplaceAll]);
+  Result := StringReplace(Result, '%b', CurrentAccount.BankCode, [rfReplaceAll]);
   Result := StringReplace(Result, '%%', '%', [rfReplaceAll]);
 end;
@@ -273 +300 @@
       Node2 := Node.FindNode('bankId');
       if Assigned(Node2) then
-        Account.Number := Account.Number + '/' + UTF8Encode(Node2.TextContent);
+        Account.BankCode := UTF8Encode(Node2.TextContent);
       Node2 := Node.FindNode('closingBalance');
       if Assigned(Node2) then
@@ -279 +306 @@
           DefaultFormatSettings.DecimalSeparator, [rfReplaceAll]));
     end else begin
+      Account.BankCode := '';
       Account.Number := '';
       Account.Balance := 0;