Strings hinzufügen und sortieren
Nach oben zu So erstellen Sie VCL-Formularanwendungen
Das Erstellen dieser VCL-Anwendung umfasst die folgenden grundlegenden Schritte:
- Erstellen eines VCL-Formulars mit einer Schaltfläche, einer Beschriftung und einem Listenfeld.
- Schreiben des Quelltextes für das Hinzufügen und Sortieren von Strings.
- Ausführen der Anwendung.
So erstellen Sie ein VCL-Formular mit einer Schaltfläche, einer Beschriftung und einem Listenfeld:
- 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 Kategorie Standard der Tool-Palette eine TButton-, eine TLabel- und eine TListBox-Komponente auf das Formular.
So schreiben Sie die Prozedur zum Kopieren von Streams:
- Wählen Sie im Formular das Steuerelement Button1 aus.
- 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.
- Setzen 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.
- Fügen Sie die folgenden Variablendeklarationen hinzu:
Delphi:
var
MyList: TStringList;
Index: Integer;
C++:
TStringList *MyList;
int Index;
- Setzen Sie den Cursor in den Codeblock, und geben Sie folgenden Quelltext ein:
Delphi:
MyList := TStringList.Create;
try
MyList.Add('Animals');
MyList.Add('Flowers');
MyList.Add('Cars');
MyList.Sort;
if MyList.Find('Flowers', Index) then
begin
ListBox1.Items.AddStrings(MyList);
Label1.Caption := 'Flowers has an index value of ' + IntToStr(Index);
end;
finally
MyList.Free;
end;
C++:
MyList = new TStringList();
try {
MyList->Add( "Animals" );
MyList->Add( "Flowers" );
MyList->Add( "Cars" );
MyList->Sort();
if( MyList->Find( "Flowers", Index ) {
ListBox1->Items->AddStrings( MyList );
Label1->Caption = "Flowers has an index of " +
IntToStr( Index );
}
} __finally {
MyList->Free();
}
Hinweis: Find kann nur für sortierte Listen angewendet werden. Verwenden Sie für unsortierte Listen IndexOf.
So führen Sie die Anwendung aus:
- Speichern Sie die Projektdateien, und wählen Sie dann Start > Start, um die Anwendung zu erzeugen 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.