Bug in QuickLib

[PeterPanino]

QuickLib ist eine umfangreiche MultiPurpose-Library, die in der aktuellen Version 2.1 mit GetIt heruntergeladen werden kann.

Leider hat die Unit Quick.Commons einen Bug:

Code:

//checks if need include signs
if pfIncludeNumbers in Complexity then
// QuickLib 2.1

Das bedeutet, dass beim Aufruf von

Code:

RandomPassword(10, [pfIncludeSigns]);

keine Sonderzeichen eingefügt werden!

Sowie beim Aufruf von

Code:

RandomPassword(10, [pfIncludeNumbers]);

SOWOHL Sonderzeichen als auch Ziffern eingefügt werden!

Hat jemand noch andere Bugs in QuickLib bemerkt?

Hier ist ein kleines Projekt, mit dem der Bug reproduziert werden kann:

QuickTest.zip

Und hier ist der Bug-Fix:

bugfix.png

[PeterPanino]

Weiterer Bug gefunden:

Code:

Quick.Process.GetProcessList

erzeugt ein Memory-Leak. Es scheint keine Möglichkeit zu geben, das Gedächtnis-Loch zu vermeiden:

Code:

procedure TForm1.tsProcessListsShow(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Sorted := True;
    sl.Duplicates := dupIgnore;
    sl.AddStrings(Quick.Process.GetProcessList); // bug: Creates memory-leak
    //CodeSite.Send('TForm1.tsProcessListsShow: sl', sl);
    lstProcesses.Items.Assign(sl);
  finally
    sl.Free;
  end;
end;

Dies scheint ein konzeptioneller Fehler zu sein: Quick.Process.GetProcessList gibt ein Ergebnis vom Typ TStringList zurück. Aber wie soll man den Speicher dieser StringList wieder freigeben? Besser wäre es, der Funktion Quick.Process.GetProcessList eine existierende StringList als var-Parameter zu übergeben, die man dann nachher selbst freigeben kann, z.B.:

Code:

Quick.Process.GetProcessList(sl);

[Andreas13]

Lieder läßt sich die Bibliothek QuickLib mit Delphi XE5 nicht kompilieren, weil sie neuere Sprachelemente wie Inline-Deklarationen etc. verwendet.
Euch allen schöne Weihnachten & gute Gesundheit!
Gruß, Andreas

[PeterPanino]

Zitat von Andreas13:

Euch allen schöne Weihnachten & gute Gesundheit!
Gruß, Andreas

Alles Gute!

[generic]

Zitat von Andreas13:

Lieder läßt sich die Bibliothek QuickLib mit Delphi XE5 nicht kompilieren, weil sie neuere Sprachelemente wie Inline-Deklarationen etc. verwendet.

Das lässt sich aber mit wenigen Handgriffen beheben.
Ich wollte den Logger mal probieren und da war ich nach 5 Minuten mit durch, dass es für mein XE5 kompiliert.

Ich finde nur Schade, dass die Macher das nicht berücksichtigen und nur die neuen Delphi's unterstützen.

[Andreas13]

Ja, das ist wirklich schade, denn die älteren Delphi-Versionen bleiben dadurch ausgesperrt. Andererseits muß man auch nicht alle neuen Feautres unbedingt benutzen, denn nicht alles ist ein echter Fortschritt. Gerade die in QuickLib verwendeten Inline-Deklarationen tragen nicht gerade zur Übersichtlichkeit bei, und erinnern eher an alte Basic-Manieren, wo Variablen undeklariert (oder durch Tippfehler) aus dem Nichts auftauchen durften. Gerade die prägnanteste Eigenschaft von Pascal – seine Klarheit und Diszipliniertheit – leidet darunter. Schade, in doppelter Hinsicht…

Zitat von generic:

Das lässt sich aber mit wenigen Handgriffen beheben.
Ich wollte den Logger mal probieren und da war ich nach 5 Minuten mit durch, dass es für mein XE5 kompiliert.

Deine Mühe in Ehren, aber Deine ganze Arbeit wird beim nächsten Update zunichte gemacht. Und dieses ist gerade wegen der hier aufgezählten Bugs bestimmt demnächst fällig.
Vielleicht "verirrt sich" der Entwickler von in QuickLib auch mal nach Delphi-Praxis-Land und liest unsere Anregungen.

Gruß, Andreas
PS:
Euch allen einen guten Rutsch in ein gesundes, glückliches und hoffentlich besseres Neues Jahr 2021!

[mkinzler]

Einfach Repository klonen und Änderungen pushen.

[himitsu]

Zitat von PeterPanino:

Aber wie soll man den Speicher dieser StringList wieder freigeben?

Indem man Free benutzt?

Delphi-Quellcode:

procedure TForm1.tsProcessListsShow(Sender: TObject);
var
  sl: TStringList;
begin
  sl := Quick.Process.GetProcessList;
  try
    sl.Sort;
    //CodeSite.Send('TForm1.tsProcessListsShow: sl', sl);
    lstProcesses.Items.Assign(sl);
  finally
    sl.Free;
  end;
end;

Zitat von PeterPanino:

Dies scheint ein konzeptioneller Fehler zu sein

Aber wenn eine Funktion etwas "erstellt" und der Aufrufer es wieder freigeben muß, dann würde ich soeine Funktion eher "Create" nennen, anstatt "Get",
oder mir einen anderen Typen als Result raussuchen, bzw. wie beim Assign/AddStrings die StringList nicht erstellen, sondern nur befüllen.

[PeterPanino]

Zitat von himitsu:

Indem man Free benutzt?

Delphi-Quellcode:

procedure TForm1.tsProcessListsShow(Sender: TObject);
var
  sl: TStringList;
begin
  sl := Quick.Process.GetProcessList;
  try
    sl.Sort;
    //CodeSite.Send('TForm1.tsProcessListsShow: sl', sl);
    lstProcesses.Items.Assign(sl);
  finally
    sl.Free;
  end;
end;

Leider kann man bei dieser Konstruktion nicht die Duplikate entfernen, so wie ich es in meinem Code gemacht habe. Dazu müsste man wahrscheinlich erst wieder mehrere StringList-Objekte erstellen.

Wie gesagt, besser wäre es zu diesem Zweck, wenn man der Funktion GetProcessList eine existierende StringList als var-Parameter übergeben könnte.

[himitsu]

Das ist doch eine firsche Liste?

Dann sollte doch eh jeder Prozess nur einmal drin sein.