Strings hinzufügen und sortieren

Aus RAD Studio
Wechseln zu: Navigation, Suche

Nach oben zu So erstellen Sie VCL-Formularanwendungen


Das Erstellen dieser VCL-Anwendung umfasst die folgenden grundlegenden Schritte:

  1. Erstellen eines VCL-Formulars mit einer Schaltfläche, einer Beschriftung und einem Listenfeld.
  2. Schreiben des Quelltextes für das Hinzufügen und Sortieren von Strings.
  3. Ausführen der Anwendung.

So erstellen Sie ein VCL-Formular mit einer Schaltfläche, einer Beschriftung und einem Listenfeld:

  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 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:

  1. Wählen Sie im Formular das Steuerelement Button1 aus.
  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.
  3. 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.
  4. Fügen Sie die folgenden Variablendeklarationen hinzu:

Delphi:

var
  MyList: TStringList;
  Index: Integer;

C++:

TStringList *MyList;
int Index;
  1. 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:

  1. 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.
  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.

Siehe auch