Salut à tous en ces temps noir un membre du forum anglais a écrit et publié une petite application

Liens vers la discussion
L'Université Johns Hopkins de Baltimore publie les dénombrements actuels des cas confirmés et récupérés ainsi que des décès dans l'épidémie de Corona pour de nombreux pays. J'ai écrit un petit programme qui télécharge les valeurs des séries chronologiques et les affiche graphiquement dans un TChart. Je sais que de tels programmes peuvent être trouvés sur le Web à de nombreux endroits maintenant, mais avoir les données immédiatement disponibles rend le programme très agile. Et il y a une option pour utiliser une échelle logarithmique pour les données cumulatives qui permet de détecter quand l'augmentation actuellement exponentielle des cas commence à se stabiliser, espérons-le. En maintenant la touche CTRL et le bouton gauche de la souris enfoncés, et en faisant glisser la souris sur les points de données, vous pouvez ajuster une courbe exponentielle aux points de données; Le temps pour doubler le nombre de cas ainsi qu'une estimation du nombre de cas en 1 et 2 semaines sont affichés dans la barre d'état.
Les sources peuvent être directement téléchargées et compilées avec Lazarus 2.0.6 et FPC 3.04 ici

Si vous avez des Exceptions à la compilation commentez ces lignes dans le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
sa[0] := AnsiDequotedStr(sa[0], '"');
sa[1] := AnsiDequotedStr(sa[1], '"');
En attachement les DLL nécessaires pour windows

coronadll.zip

Courage à tous

[EDIT] Autre solution en cas d'erreur

Remplacez la fonction AnsiDequotedStr

Par celle-ci, à insérer dans le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Function MyDequotedStr(s: string) : String;
var
  i: integer;
begin
  Result :='';
  for i:= 0 to length(s)-1 do
  begin
    if s[i]<>'"' then result := result + s[i];
  end;
end;