Fortschritt beim Speichern in Gauge darstellen

**DeathsShadow**

Hallo ihr

ich habe ein Programm geschrieben mit dem ich Keys für meine Programme generiere kann.
Es generiertzunächst die angegebene Anzahl an Keys, dann überprüft es die doppelten und löscht sie. 8)

Im nächsten Schritt kann ma die Keys in einer InI-Datei speichern.
hier der code:

markieren

Delphi-Quellcode:

			var

  IniPath, SP_Name : String;

begin

  SP_Name := ' - '+E_00_Name.Text;

  IniPath := ChangeFileExt(Paramstr(0), SP_Name+'.ini');

  if SaveListBoxToIni(IniPath, 'ListBox1', ListBox1.Items) then

    ShowMessage('Gespeichert!');

end;

Allerdings dauert dies bei ca 100.000 Keys seeeehr lange

, deswegen wollte ich nun den speicherfortschritt darstellen. Aber wie stelle ich das in TGauge dar?

Ich hoffe ihr könnt mir helfen, deswegen schon mal vielen dank im vorraus.

MFG Death's Shadow

Fortschritt beim Speichern in Gauge darstellen

Fortschritt beim Speichern in Gauge darstellen

Forumregeln