an01f01

uses

System.Zip;

procedure CreateZipFile():
var
	ZipFile: TZipFile;
begin
	// Creates a new instance of TZipFile
	ZipFile := TZipFile.Create;

an01f01

var
  SelectedFile: string;
begin
  if OpenDialog1.Execute then begin
    for SelectedFile in OpenDialog1.Files do
      ListBox1.Items.Add(SelectedFile);
  end;
end;

{ Since the process is now dynamic, the method that compresses the files should be changed }

an01f01

procedure TForm1.OnProgressEvent(Sender: TObject; FileName: string; Header: TZipHeader; Position: Int64);
var
  CurrentFileProgress: real;
  OverallProgress: real;
begin
  Application.ProcessMessages;
  // Calculates the percentages
  CurrentFileProgress := Position / Header.UncompressedSize * 100;
  OverallProgress := (BytesProcessed + Position) / BytesToProcess * 100;
  // Updates the labels with each progress

an01f01

private

procedure OnProgressEvent(Sender: TObject; FileName: string; Header: TZipHeader; Position: Int64);

{ … }

procedure TForm1.OnProgressEvent(Sender: TObject; FileName: string; Header: TZipHeader; Position: Int64);
begin
  Application.ProcessMessages;
  // Displays the compression percentage

an01f01

private

function GetFileSize(const FileName: string): integer;

{ … }

function TForm1.GetFileSize(const FileName: string): integer;
var
  StreamArchive: TFileStream;
begin

an01f01

import os
import sys
import json
import ast
import datetime
import django

orm_dir_path = os.path.join(os.path.dirname(os.path.realpath(sys.argv[0])), 'server/my_orm') 
server_dir_path = os.path.join(os.path.dirname(os.path.realpath(sys.argv[0])), 'server') 

an01f01

import os
import signal
import asyncio
from typing import Optional, Awaitable

import tornado.httpserver
import tornado.ioloop
import tornado.options
import tornado.web

an01f01

import os
import signal
import asyncio
from typing import Optional, Awaitable

import tornado.httpserver
import tornado.ioloop
import tornado.options
import tornado.web

an01f01

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  inherited;
  { TODO: Initialized objects }
end;

procedure TFrmMain.BtnSaveClick(Sender: TObject);
begin
  inherited;
  { TODO: Encrypt and save json file }

an01f01

procedure TFrmMain.BtnSaveClick(Sender: TObject);
begin
  inherited;
  Memo1.Lines.Add('Saving...');
  Memo1.Lines.Add(TTodoProgSettings.GetSettingsFolder);
  Memo1.Lines.Add(TTodoProgSettings.GetDefaultSettingsFilename);

  Todos.Name := 'test me';
  TTodoProgSettings.SaveTodos(Todos);
end;