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

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

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;

  1. コード ブロック内にカーソルを置き、以下のコードを入力します。
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 アクションをダブルクリックします。 コード エディタ が、TForm1.ToUpperClick(Delphi)、または、TForm1::ToUpperClick(C++)のイベント ハンドラ ブロックにカーソルがある状態で表示されます。
  3. Delphi の場合は、カーソルを予約語 begin の前に置き、Return キーを押します。 これで、コード ブロックの前に新しい行が作成されます。
  4. Delphi の場合は、作成された新しい行にカーソルを置き、以下の変数宣言を入力します。
var
 Index: Integer;

  1. コード ブロック内にカーソルを置き、以下のコードを入力します。
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. [追加...]ボタンをクリックします。 'Mice'、'Goats'、'Elephants'、'Birds' の順で文字列がリストに表示されます。
  3. [ToUpper]ボタンをクリックします。 文字列の文字が大文字で表示されます。

関連項目