Strings erstellen
Nach oben zu So erstellen Sie VCL-Formularanwendungen
Die Erstellung dieser VCL-Anwendung umfasst die folgenden grundlegenden Schritte:
- Ein VCL-Formular mit einer Schaltfläche (TButton) und einem Kombinationsfeld (TComboBox) erstellen.
- Eine OnClick-Ereignisbehandlungsroutine für die TButton-Komponente schreiben, die Strings erstellt.
- Die Anwendung ausführen.
So erstellen Sie ein VCL-Formular mit einer Schaltfläche und einem Kombinationsfeld:
- 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.
- 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:
- Markieren Sie im Formular das Steuerelement Button1.
- 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++).
- 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.
- 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;
- 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:
- 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.
- 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".
- 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.