[Delphi]例外処理　try except

※全てのDelphi(楽天市場で探す ・ amazonで探す)で動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル　※説明に必要な部分しか記述していません

フォーム上に TMemo を設置し、下記を実行すると

procedure TForm1.Button1Click(Sender: TObject);

var
    i: Integer;
    w_tm: TTime;

begin

    Memo1.Clear;
    i :=0;

  try
    i := i +1;
    w_tm := StrToTime('14:55:58');
    Memo1.Lines.Add(TimeToStr(w_tm));

    i := i +1;
    w_tm := StrToTime('14:55:59');
 
    Memo1.Lines.Add(TimeToStr(w_tm));

    i := i +1;
    w_tm := StrToTime('14:55:60');
    Memo1.Lines.Add(TimeToStr(w_tm));

    i := i +1;
    w_tm := StrToTime('14:56:00');
    Memo1.Lines.Add(TimeToStr(w_tm));

  except
    //例外発生時に実行されます
    Memo1.Lines.Add(IntToStr(i) + ' 行目でエラーがありました');

  end;



end;

このようになります。