Strings erstellen

Nach oben zu So erstellen Sie VCL-Formularanwendungen

Die Erstellung dieser VCL-Anwendung umfasst die folgenden grundlegenden Schritte:

1. Ein VCL-Formular mit einer Schaltfläche (TButton) und einem Kombinationsfeld (TComboBox) erstellen.
2. Eine OnClick-Ereignisbehandlungsroutine für die TButton-Komponente schreiben, die Strings erstellt.
3. Die Anwendung ausführen.

So erstellen Sie ein VCL-Formular mit einer Schaltfläche und einem Kombinationsfeld:

1. Wählen Sie Datei > Neu > Weitere > Delphi-Projekte oder C++Builder-Projekte, und doppelklicken Sie auf das Symbol VCL-Formularanwendung. Der VCL-Formular-Designer wird angezeigt.
2. Ziehen Sie aus der Seite Standard der Tool-Palette eine TButton-, eine TLabel- und eine TComboBox-Komponente in das Formular.

So schreiben Sie die Prozedur für das Erstellen von Strings:

1. Markieren Sie im Formular das Steuerelement Button1.
2. Doppelklicken Sie im Objektinspektor auf der Registerkarte Ereignisse auf die Aktion OnClick. Der Quelltext-Editor wird angezeigt. Der Cursor befindet sich bereits im Block der Ereignisbehandlungsroutine TForm1.Button1Click (Delphi) bzw. TForm1::Button1Click (C++).
3. Bewegen Sie in Delphi den Cursor vor das reservierte Wort begin, und drücken Sie dann die EINGABETASTE. Über dem Codeblock wird eine neue Zeile eingefügt.
4. Bewegen Sie in Delphi den Cursor in die neue Zeile, und geben Sie die folgende Variablendeklarationen ein:

var
  StringList: TStrings;

Geben Sie in C++ folgende Variablendeklarationen ein:

TStrings *StringList;

5. Bewegen Sie den Cursor in den Codeblock, und geben Sie folgenden Quelltext ein:

StringList := TStringList.Create;
  try
    with StringList do begin
      Add('Animals');
      Add('Cats');
      Add('Flowers');
    end;

    with ComboBox1 do begin
      Width := 210;
      Items.Assign(StringList);
      ItemIndex := 0;
    end;

    Label1.Caption := 'Flowers has an index of ' +
      IntToStr( StringList->IndexOf( 'Flowers' ) );
  finally
    StringList.free;
  end;

For C++

StringList = new TStringList();
try {
  StringList->Add( "Animals" );
  StringList->Add( "Cats" );
  StringList->Add( "Flowers" );
  ComboBox1–>Width = 210;
  ComboBox1–>Items->Assign( StringList );
  ComboBox1–>ItemIndex = 0;
  Label1–>Caption = "Flowers has an index of " +
    IntToStr( StringList->IndexOf( "Flowers" ) );
} __finally {
	  StringList->Free();
}

So führen Sie die Anwendung aus:

1. Speichern Sie die Projektdateien, und wählen Sie dann Start > Ausführen, um die Anwendung zu compilieren und auszuführen. Das Formular wird mit den Steuerelementen angezeigt.
2. Klicken Sie auf die Schaltfläche. Die Strings "Animals", "Cars" und "Flowers" werden alphabetisch sortiert in einer Liste im Listenfeld angezeigt. Als Beschriftung wird der folgende Meldungsstring angezeigt: "Flowers has an index value of 2".
3. Klicken Sie im Kombinationsfeld auf den Pfeil, um die Dropdown-Liste zu erweitern. Die Strings, die in der Ereignisbehandlungsroutine für TButton hinzugefügt wurden, werden angezeigt.

Siehe auch

• Überblick zu VCL
• VCL-Formularanwendung erstellen