Changeset 134 for trunk/Forms


Ignore:
Timestamp:
Apr 10, 2022, 1:54:34 PM (3 years ago)
Author:
chronos
Message:
  • Modified: UDataFile unit moved into Common package and TDataFile class made TComponent descendant.
Location:
trunk/Forms
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormCompare.pas

    r129 r134  
    334334  Ext := ExtractFileExt(AFileName);
    335335  if Ext = VCardFileExt then begin
    336     with TVCardFile.Create do
     336    with TVCardFile.Create(nil) do
    337337    try
    338338      LoadFromFile(AFileName);

  • trunk/Forms/UFormContacts.pas

    r133 r134  
    439439begin
    440440  if Assigned(ListView1.Selected) then begin
    441     TempFile := TVCardFile.Create;
     441    TempFile := TVCardFile.Create(nil);
    442442    try
    443443      OpenDialog1.Filter := TempFile.GetFileFilter;
    … …  
    490490  Lines: TStringList;
    491491begin
    492   PasteContacts := TVCardFile.Create;
     492  PasteContacts := TVCardFile.Create(nil);
    493493  Lines := TStringList.Create;
    494494  try
    … …  
    532532begin
    533533  if Assigned(ListView1.Selected) then begin
    534     TempFile := TVCardFile.Create;
     534    TempFile := TVCardFile.Create(nil);
    535535    try
    536536      SaveDialog1.Filter := TempFile.GetFileFilter;

  • trunk/Forms/UFormFindDuplicity.pas

    r129 r134  
    224224  I: Integer;
    225225begin
    226   TempContacts := TVCardFile.Create;
     226  TempContacts := TVCardFile.Create(nil);
    227227  try
    228228    for I := 0 to Contacts.Count - 1 do
Note: See TracChangeset for help on using the changeset viewer.