[Delphi]例外処理 try except




トップページへ

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

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


 


 

フォーム上に 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;

このようになります。

 

【PR】 Delphi (amazon) *見つからない場合があります

【PR】 Delphi (楽天市場) *見つからない場合があります




ほかの Delphi の記事

[Delphi]ファイルの読込み AssignFile, Readln

[Delphi]入力ダイアログボックス InputBox

[Delphi]動的配列 array of

[Delphi]型変換 IntToStr, CurrToStr

[Delphi]処理の分岐 case文