リストの文字列を反復処理する
この 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］ボタンをクリックします。 文字列の文字が大文字で表示されます。