Einzelnen Beitrag anzeigen

Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.490 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Quellcode funzt nicht

  Alt 28. Okt 2006, 10:56
Du musst die Schleife ändern:
Delphi-Quellcode:
i := 0;
while i < sl.clount do
begin
   if sl[i] = 'then
      sl.delete[i]
   else
      inc(i);
end;
Denn duch das Delete wird ja Count um 1 dekrementiert.
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat