Strings in einer Liste durchlaufen

Aus RAD Studio
Wechseln zu: Navigation, Suche

Nach oben zu So erstellen Sie VCL-Formularanwendungen

In dieser VCL-Anwendung wird zunächst eine Liste mit Strings erstellt. Danach werden die Strings durchlaufen und alle Zeichen in Großbuchstaben umgewandelt. Folgende Schritte werden ausgeführt:

  1. Erstellen Sie ein VCL-Formular mit Schaltflächen und TListBox-Steuerelemente.
  2. Schreiben Sie den Quelltext, um eine Stringliste zu erstellen und Strings in die Liste einzufügen.
  3. Schreiben Sie den Quelltext mit dem die Stringliste zur Bearbeitung der Zeichen im String durchlaufen wird.
  4. Ausführen Sie die Anwendung.

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. Wählen Sie im Formular das Steuerelement Button1 aus.
  4. Geben Sie im Objektinspektor für die Eigenschaften Name und Caption den Wert Add ein.
  5. Wählen Sie im Formular das Steuerelement Button2 aus.
  6. Geben Sie im Objektinspektor für die Eigenschaften Name und Caption den Wert ToUpper ein.

So erstellen Sie eine Stringliste und fügen ihr 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) oder TForm1::AddClick (C++).
  3. Setzen Sie in Delphi den Cursor vor das reservierte Wort begin, und drücken Sie dann die Taste EINGABE. Über dem Codeblock wird eine neue Zeile eingefügt.
  4. Setzen Sie in Delphi den Cursor in die neue Zeile, und geben Sie die folgende Variablendeklaration ein:
var MyList: TStringList;

  1. Setzen 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;
TStringList *MyList = new TStringList(); 
try { 
  MyList->Add("Mice"); 
  MyList->Add("Goats"); 
  MyList->Add("Elephants"); 
  MyList->Add("Birds"); 
  ListBox1->Items->AddStrings( MyList ); 
} __finally { 
  MyList->Free(); 
}

So wandeln Sie alle Zeichen in Großbuchstaben um:

  1. Wählen Sie die Schaltfläche ToUpper 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.ToUpperClick (Delphi) oder TForm1::ToUpperClick (C++).
  3. Setzen Sie in Delphi den Cursor vor das reservierte Wort begin, und drücken Sie dann die Taste EINGABE. Über dem Codeblock wird eine neue Zeile eingefügt.
  4. Setzen Sie in Delphi den Cursor in die neue Zeile, und geben Sie die folgende Variablendeklaration ein:
var 
 Index: Integer;

  1. Setzen Sie den Cursor in den Codeblock, und geben Sie folgenden Quelltext ein:
for Index := 0 to ListBox1.Items.Count - 1 do 
    ListBox1.Items[Index] := UpperCase(ListBox1.Items[Index]);
for( int i = 0; i < ListBox1->Items->Count; i++ ) { 
  ListBox1->Items[i] = UpperCase( ListBox1->Items[i] ); }

So führen Sie die Anwendung aus:

  1. Speichern Sie die Projektdateien, und wählen Sie dann Start > Start , 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 ToUpper. Daraufhin werden alle Strings in Großschreibung angezeigt.

Siehe auch