Como hacer break en delphi

[[coso]]

?
desde la ayuda de delphi

procedure Break;

Description

The Break procedure causes the flow of control to exit a for, while, or repeat statement and continue at the next statement following the loop statement.

A call to Break must be contained in a for, while, or repeat statement, or the compiler reports an error.

[rgstuamigo]

Gracias coso por responder,pero me pregunto si trabajará al igual que en c++ o java,por que cuando tienes dos o mas ciclos anidados, esta sentencia solo saldria de su ciclo correspondiente y no de todos los ciclos al mismo tiempo.
De todas manera lo probare.......
Saludos...

[[seoane]]

HAstaa donde yo se el break de delphi funciona igual que el de C, saliendo solo de un bucle, para salir de mas de un bucle tendrias que usar algo como Exit que se "corresponde" con el return de C

[rgstuamigo]

HAstaa donde yo se el break de delphi funciona igual que el de C, saliendo solo de un bucle, para salir de mas de un bucle tendrias que usar algo como Exit que se "corresponde" con el return de C

Si seoane gracias por recordarme lo del Exit=Return, pero ten en cuenta que esas dos sentencias hace que finalise todo el proceso o la function, y que pasa si tienes aparte de los ciclos anidados otras lineas de codigo debajo de los ciclos anidados y quieres que se ejecute?

[[seoane]]

Vamos a ver si resaltandolo en negro

Empezado por seoane

Hasta donde yo se el break de delphi funciona igual que el de C, saliendo solo de un bucle, para salir de mas de un bucle tendrias que usar algo como Exit que se "corresponde" con el return de C

[[seoane]]

Para conseguir lo que quieres te aconsejo que uses excepciones:

Código Delphi [-]
  try
    while True do  // Primer Bucle
      while True do  // Segundo Bucle
        while True do  // Tercer Bucle
        begin
          Sleep(10);  
          Abort; // Aqui salimos
        end;
  except
    On E: EAbort do
    begin
      // Aqui haz algo si quieres
    end else
      raise;
  end;
  // El codigo que pongamos a continucacion se ejecutara

[rgstuamigo]

Gracias seoane..... .,eso si me sirve.