リストの文字列を反復処理する

VCL コンポーネントを使用したアプリケーションの開発 への移動

この VCL アプリケーションは、はじめに文字列のリストを作成します。 次に、これらの文字列を反復処理して、すべての文字列の文字を大文字に変換します。 次に手順を示します。

1. 複数のボタン コントロールと TListBox コントロールを 1 つ持つ VCL フォームを作成します。
2. 文字列リストを作成し、それに文字列を追加するコードを記述します。
3. この文字列リストを反復処理し、文字列の各文字を処理するコードを記述します。
4. アプリケーションを実行します。

TButton コントロールおよび TListBox コントロールを持つ VCL フォームを作成するには：

1. ［ファイル｜新規作成｜その他...］で［Delphi プロジェクト］または［C++Builder プロジェクト］を選択し、［VCL フォーム アプリケーション］アイコンをダブルクリックします。VCL フォーム デザイナが表示されます。
2. ［ツール パレット］の［Standard］ページから、［TButton］コンポーネントを 2 つ、［TListBox］コンポーネントを 1 つフォームに配置します。
3. フォームで［Button1］をクリックします。
4. ［オブジェクト インスペクタ］で、［Name］プロパティおよび［Caption］プロパティに「Add」と入力します。
5. フォームで［Button2］をクリックします。
6. ［オブジェクト インスペクタ］で、［Name］プロパティおよび［Caption］プロパティに「ToUpper」と入力します。

文字列リストを作成して文字列を追加するには：

1. フォームで［Add］ボタンをクリックします。
2. ［オブジェクト インスペクタ］で、［イベント］タブの［OnClick］アクションをダブルクリックします。コード エディタが表示され、Delphi の場合は TForm1.AddClick イベント ハンドラ ブロックに、C++ の場合は TForm1::AddClick イベント ハンドラ ブロックにカーソルが移動されます。
3. Delphi の場合は、予約語 begin の前にカーソルを置いてから、Enter キーを押します。すると、コード ブロックの上に新しい行が作成されます。
4. Delphi の場合は、作成された新しい行にカーソルを置き、次の変数宣言を入力します。

var
  MyList: TStringList;

5. コード ブロック内にカーソルを置き、次のコードを入力します。

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();
}

すべての文字を大文字に変更するには：

1. フォームで［ToUpper］ボタンをクリックします。
2. ［オブジェクト インスペクタ］で、［イベント］タブの［OnClick］アクションをダブルクリックします。コード エディタが表示され、Delphi の場合は TForm1.ToUpperClick イベント ハンドラ ブロックに、C++ の場合は TForm1::ToUpperClick イベント ハンドラ ブロックにカーソルが移動されます。
3. Delphi の場合は、予約語 begin の前にカーソルを置いてから、Enter キーを押します。すると、コード ブロックの上に新しい行が作成されます。
4. Delphi の場合は、作成された新しい行にカーソルを置き、次の変数宣言を入力します。

var
 Index: Integer;

5. コード ブロック内にカーソルを置き、次のコードを入力します。

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] );
}

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

1. プロジェクト ファイルを保存してから、［実行｜実行］をクリックして、アプリケーションをビルドして実行します。上述のコントロールを持つフォームが表示されます。
2. ［Add］ボタンをクリックします。'Mice'、'Goats'、'Elephants'、'Birds' の順で文字列がリストに表示されます。
3. ［ToUpper］ボタンをクリックします。文字列の文字が大文字で表示されます。

関連項目

• VCL の概要
• VCL フォームアプリケーションを構築する