文字列を削除する
この 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' が、リストから削除されました。