Code/Schleife extrem langsam

[mkinzler]

Zitat von NamenLozer:

Delphi-Quellcode:

var
  I: Integer;
begin

  listbox1.Items.BeginUpdate; 

  for I := ntohl(inet_addr(PAnsiChar(AnsiString(edit1.text)))) to
           ntohl(inet_addr(PAnsiChar(AnsiString(edit2.text)))) do
    listbox1.items.Add(string(inet_ntoa(TInAddr(htonl(I)))));

  listbox1.Items.EndUpdate;
end;

Wäre die Lösung wenn die ListBox die Performancebremse ist