ファイルの名前を変更する

提供: RAD Studio
移動先: 案内検索

VCL フォーム アプリケーションの作成方法 への移動


この VCL アプリケーションの作成は以下の手順で行われます。

  1. 名前変更するファイルが格納されるプロジェクト ディレクトリを作成します。
  2. ボタン コントロールとラベル コントロールを持つ VCL フォームを作成します。
  3. ファイルの名前変更するコードを記述します。
  4. アプリケーションを実行します。

プロジェクト ディレクトリとコピーするテキスト ファイルをセットアップするには:

  1. プロジェクト ファイルが格納されるディレクトリを作成します。
  2. テキスト ファイルを、プロジェクト ディレクトリに作成またはコピーして、それを MyFile として保存します。

ボタンおよびラベルの付いた VCL フォームを作成するには:

  1. [ファイル|新規作成|その他...|Delphi プロジェクト(または %C++Builder% プロジェクト)] を選択し、[VCL フォーム アプリケーション]アイコンをダブルクリックします。 VCL フォーム デザイナ が表示されます。
  2. ツール パレットの[Standard]ページから、TButton コンポーネントをフォーム上に配置します。
  3. ツール パレットの[Standard]ページから、TLabel コンポーネントをフォーム上に配置します。

ファイル プロシージャの名前変更を記述するには:

  1. フォーム上で Button1 を選択します。
  2. オブジェクト インスペクタ[イベント]タブで、OnClick アクションをダブルクリックします。 コード エディタ が、TForm1.Button1Click(Delphi)、または、TForm1::Button1Click(C++)のイベント ハンドラ ブロックにカーソルがある状態で表示されます。
  3. カーソルの位置に、次のコードを入力します:
if not RenameFile('MyFile.txt', 'YourFile.txt') then
Label1.Caption := 'Error renaming file!';
if( !RenameFile( "..\\MyFile.txt", "..\\YourFile.txt" )
  Label1->Caption = "Error renaming file";
// the file parameters assume the target output directory is in your project directory

メモ: RenameFile を使って、ドライブをまたいでファイル名を変更(ファイルを移動)することはできません。 まずファイルをコピーしてから、古いファイルを削除する必要があります。 ランタイム ライブラリにおいて、RenameFile は Windows API MoveFile 関数のラッパーとなっているため、MoveFile は、異なるドライブ間では動作しません。

アプリケーションを実行するには

  1. プロジェクト ファイルを保存します。[実行|実行]を選択して、アプリケーションをビルドおよび実行します。 フォームが表示されます。
  2. ボタンをクリックします。 Label にメッセージが表示されない場合、プロジェクト ディレクトリ内のファイル名をチェックしてください。MyFile.txt は、YourFile.txt に名前変更されていなければなりません。
  3. キャプション ラベルにエラー メッセージが表示されている場合は、イベント ハンドラ コードを再度チェックしてください。

関連項目