Inscription
6 août 2005
Dernière intervention
11 février 2016
Interventions
400
Signature

Accélérez un code

Bonjour, Je souhaiterai accélérez ce code consistant à trouver les IPv4 dispo. procedure TForm2.BitBtn1Click(Sender: TObject); Var Byte1:Byte; Byte2:Byte; Byte3:Byte; Byte4:Byte; begin ShowMessage('Le sereur à 100ms pour répondre'); ListBox1.Items.Add('---Liste des IP positif---'); For Byte1 := 0 To 255 do Begin ProgressBarBy... Lire la suite