文字列を削除する
この VCL アプリケーションの作成は以下の手順で行われます。
- 複数のボタン コントロールと ListBox コントロールを 1 つ持つ VCL フォームを作成します。
- リストに文字列を追加するコードを記述します。
- リストから文字列を削除するコードを記述します。
- アプリケーションを実行します。
TButton コントロールおよび ListBox コントロールを持つ VCL フォームを作成するには:
- [ファイル|新規作成|その他...|Delphi プロジェクト(または %C++Builder% プロジェクト)] を選択し、[VCL フォーム アプリケーション]アイコンをダブルクリックします。 VCL フォーム デザイナ が表示されます。
- [ツール パレット]の[Standard]ページから、[TButton]コンポーネントを 2 つ、[TListBox]コンポーネントを 1 つフォームに配置します。
- フォーム上で Button1 を選択します。
- [オブジェクト インスペクタ]で、[Name]プロパティおよび[Caption]プロパティに「Add」と入力します。
- フォームで[Button2]をクリックします。
- [オブジェクト インスペクタ]で、[Name]プロパティおよび[Caption]プロパティに「Delete 」と入力します。
文字列をリストに追加するには:
- フォームで[Add]ボタンをクリックします。
- オブジェクト インスペクタの[イベント]タブで、OnClick アクションをダブルクリックします。 コード エディタ が、TForm1.AddClick(Delphi)、または、TForm1::AddClick(C++)のイベント ハンドラ ブロックにカーソルがある状態で表示されます。
- Delphi の場合は、カーソルを予約語 begin の前に置き、Return キーを押します。 これで、コード ブロックの前に新しい行が作成されます。
- Delphi の場合は、作成された新しい行にカーソルを置き、以下の変数宣言を入力します。
var MyList: TStringList;
C++ の場合、次の変数宣言を入力します:
TStringList *MyList;
- コード ブロック内にカーソルを置き、以下のコードを入力します。
MyList := TStringList.Create; try with MyList do begin Add('Mice'); Add('Goats'); Add('Elephants'); Add('Birds'); ListBox1.Items.AddStrings(MyList); end; finally MyList.Free; end;
MyList = new TStringList(); try { MyList->Add( "Mice" ); MyList->Add( "Goats" ); MyList->Add( "Elephants" ); MyList->Add( "Birds" ); ListBox1->Items->AddStrings( MyList ); } __finally { MyList->Free(); }
リストから文字列を削除するには
- フォームで[Delete]ボタンをクリックします。
- オブジェクト インスペクタの[イベント]タブで、OnClick アクションをダブルクリックします。 コード エディタ が、TForm1.DeleteClick(Delphi)、または、TForm1::DeleteClick(C++)のイベント ハンドラ ブロックにカーソルがある状態で表示されます。
- Delphi の場合は、カーソルを予約語 begin の前に置き、ENTER キーを押します。 これで、コード ブロックの前に新しい行が作成されます。
- Delphi の場合は、作成された新しい行にカーソルを置き、以下の変数宣言を入力します。
var BIndex: Integer;
C++ の場合、次の変数宣言を入力します:
int BIndex;
- Delphi の場合は、カーソルをコード ブロック内に置き、次のコードを入力します。
with ListBox1.Items do begin BIndex := IndexOf('Elephants'); Delete (BIndex); end;
C++ の場合は以下のとおりです。
BIndex = ListBox1->Items->IndexOf( "Elephants" ); ListBox1->Items->Delete( BIndex );
アプリケーションを実行するには
- プロジェクト ファイルを保存します。[実行|実行]を選択して、アプリケーションをビルドおよび実行します。 フォームに、コントロールが表示されます。
- [追加...]ボタンをクリックします。 'Mice'、'Goats'、'Elephants'、'Birds' の順で文字列がリストに表示されます。
- [削除...]ボタンをクリックします。 文字列 'Elephants' が、リストから削除されました。