bah en fait, je sais pas si c'est plus propre, mais j'utilise rarement le exit et je fait plutot:
bContinuer := true;
while bContinuer do
begin
// faire des trucs...
// incrementer un index...
// etc...
if test_de_sortie_est_vrai then
bContinuer := false;
end;
---------------
www.alliancefrancophone.org ... Home is where the heart is