Strings löschen

Nach oben zu So erstellen Sie Windows-VCL-Anwendungen

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

1. Ein VCL-Formular mit Schaltflächen und einem Listenfeld erstellen.
2. Quelltext zum Hinzufügen von Strings zu einer Liste schreiben.
3. Quelltext zum Löschen eines Strings in der Liste schreiben.
4. Die Anwendung ausführen.

So erstellen Sie ein VCL-Formular mit Schaltflächen (TButton) und einem Listenfeld (TListBox):

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 zwei TButton- und eine TListBox-Komponente in das Formular.
3. Markieren Sie im Formular das Steuerelement Button1.
4. Geben Sie im Objektinspektor für die Eigenschaften Name und Caption den Wert Add ein.
5. Markieren Sie im Formular das Steuerelement Button2.
6. Geben Sie im Objektinspektor für die Eigenschaften Name und Caption den Wert Delete ein.

So fügen Sie einer Liste Strings hinzu:

1. Wählen Sie die Schaltfläche Add im Formular 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.AddClick (Delphi) bzw. TForm1::AddClick (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 Variablendeklaration ein:

var
  MyList: TStringList;

Geben Sie in C++ folgende Variablendeklaration ein:

TStringList *MyList;

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

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;

MyList = new TStringList();
try {
  MyList->Add( "Mice" );
  MyList->Add( "Goats" );
  MyList->Add( "Elephants" );
  MyList->Add( "Birds" );
  ListBox1–>Items->AddStrings( MyList );
} __finally {
  MyList->Free();
}

So löschen Sie einen String in der Liste:

1. Wählen Sie die Schaltfläche Delete im Formular 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.DeleteClick (Delphi) bzw. TForm1::DeleteClick (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 Variablendeklaration ein:

var
  BIndex: Integer;

Geben Sie in C++ folgende Variablendeklaration ein:

int BIndex;

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

with ListBox1.Items do
    begin
      BIndex := IndexOf('Elephants');
      Delete (BIndex);
    end;

For C++

BIndex = ListBox1–>Items->IndexOf( "Elephants" );
ListBox1–>Items->Delete( BIndex );

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 Add. Die Strings "Mice", "Goats", "Elephants" und "Birds" werden in der aufgeführten Reihenfolge angezeigt.
3. Klicken Sie auf die Schaltfläche Delete. Der String "Elephants" wird aus der Liste entfernt.

Siehe auch

• Überblick zu VCL
• VCL-Formularanwendung erstellen