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