Parar a execução do programa e voltar para o inicio dele!
Boa tarde,
To com uma duvida, parece ser besta... mas como não manjo de Delphi, a duvida esta dando dor de cabeça hehehehe
To aqui com meu livro e no exercício de matriz dinâmica eu queria fazer uma validação, qual impeça o usuário de inserir 0 e 1.
Caso o usuário inserise um desses dois valores exibi se uma mensagem de erro e o programa seria parado e reiniciado.
Eu comecei, só a parte do parar que eu não faço idéia de como fazer!
procedure TForm1.AceitarClick(Sender: TObject);
var
RETORNO: String;
LINHA, COLUNA: Integer;
I, J, X: Byte;begin
NR_LINHA := StrToInt(PegaLinha.Text);
NR_COLUNA := StrToInt(PegaColuna.Text);
// Verifica tamanho da matriz
if ((NR_LINHA <= 0) or (NR_COLUNA <= 0)) then
begin
ShowMessage('Não é possivel atribuir essa medida para a matriz!');
Break; //PENSEI QUE O BREAK PARASE A EXECUÇÃO
end
else if ((NR_LINHA >= 1) and (NR_COLUNA <= 1)) then
begin
ShowMessage('Não é possivel atribuir essa medida para a matriz!');
Break; //PENSEI QUE O BREAK PARASE A EXECUÇÃO
end;
Como podem ver eu tentei usar o Break, mas a tentativa foi horrenda hehehehe
Abraços
Discussão (3)
Carregando comentários...