var arrayInt: array of Integer; i: Integer; begin // Füllen Sie das Array mit den Werten SetLength(arrayInt, 5); arrayInt[0] := 1; arrayInt[1] := 2; arrayInt[2] := 3; arrayInt[3] := 4; arrayInt[4] := 5; for i := 0 to Length(arrayInt) - 1 do Writeln(arrayInt[i]); end;
vararr: array[1..5] of Integer; // объявляем и инициализируем массивi: Integer;beginarr[1] := 10; // заполняем массивarr[2] := 20;arr[3] := 30;arr[4] := 40;arr[5] := 50;WriteLn(arr[i]);end.Ergebnis der Programmausführung:
Definieren eines Arrays in Delphi und seine Merkmale
Ein eindimensionales Array ist eine geordnete Sequenz von Elementen, auf die über einen Index zugegriffen wird. Die Anzahl der Elemente in einem Array wird bestimmt, wenn es inzialisiert wird. Der Zugriff auf das Element erfolgt über den Operator eckige Klammern [ ].
Die folgende Syntax wird verwendet, um ein eindimensionales Array in Delphi zu definieren:
- var arr: array[Startindex..endindex] of Datentyp;
- var arr: array[Startindex..endindex] of Datentyp = (Element 1, Element 2, . element n);
Wo anfangsindex und endindex - Ganzzahlen, die den Bereich der Indexwerte angeben. Datentyp - der Datentyp der Elemente, die im Array enthalten sein sollen.
- var arr: array[1..10] of Integer;
- var arr: array[1..5] of String = ('apple', 'banana', 'orange', 'pear', 'grape');
Die zweite Form der Array-Definition initialisiert sofort seine Elemente.
Ein bestimmtes eindimensionales Array kann zum Speichern beliebiger Datentypen verwendet werden, einschließlich primitiver Typen (Ganzzahlen, gleitende Zahlen, Symbole) und benutzerdefinierter Typen (Objekte, Strings usw.).
Um dies zu tun, müssen Sie zuerst ein Array erstellen, zum Beispiel:
var numbers: array[0..4] of Integer;
Sie können das Array dann mit Werten füllen, z. B.:
numbers[0] := 4; numbers[1] := 8; numbers[2] := 15; numbers[3] := 16; numbers[4] := 23;
Schließlich können Sie die Werte eines Arrays mit einer for-Schleife ausgeben:
for i := 0 to Length(numbers) - 1 do Writeln(numbers[i]);
Daher ermöglicht die Verwendung einer for-Schleife die bequeme und schnelle Ausgabe eines Arrays in Delphi.
- Deklarieren und initialisieren Sie das Array.
- Verwenden Sie eine Schleife, um alle Elemente des Arrays zu durchlaufen.
- Rufen Sie innerhalb einer Schleife die Prozedur WriteLn auf, indem Sie den Wert des aktuellen Arrayelements an sie übergeben.
vararr: array[1..5] of Integer;i: Integer;beginarr[1] := 10;arr[2] := 20;arr[3] := 30;arr[4] := 40;arr[5] := 50;for i := 1 to 5 dobeginWriteLn(arr[i]);end;end.
Ergebnis des Programms:
Verwenden der Join-Funktion zum Kombinieren von Array-Elementen
Die Syntax der Join-Funktion lautet wie folgt:
- Join(Trennzeichen: string; array: array of string): string;
Das erste Argument der Join-Funktion ist das Trennzeichen, mit dem die Elemente des Arrays zusammengeführt werden. Das zweite Argument ist das Array selbst, das ausgegeben werden muss. Das Ergebnis der Funktion ist eine Zeichenfolge, die die durch Trennzeichen verbundenen Arrayelemente enthält.
Beispiel für die Verwendung der Join-Funktion:
- var
- arr: array[0..2] of string = ('apple', 'banana', 'orange');
- result: string;
- begin
- result := Join(', ', arr);
- ShowMessage(result);
- end;
In diesem Beispiel enthält das arr-Array drei Elemente: 'apple', 'banana' und 'orange'. Nach dem Aufruf der Join-Funktion mit dem Trennzeichen ', ' werden die Werte der Array-Elemente in der Zeichenfolge 'Apple, banana, orange' zusammengefasst und mit der ShowMessage-Funktion angezeigt.
program OutputArray;usesSystem.SysUtils;varmyArray: array[0..4] of Integer;i: Integer;output: string;beginmyArray[0] := 10;myArray[1] := 20;myArray[2] := 30;myArray[3] := 40;myArray[4] := 50;output := '';for i := 0 to High(myArray) dobeginoutput := output + Format('%d ', [myArray[i]]);end;WriteLn(output);end.Wenn Sie dieses Programm starten, wird das folgende Ergebnis auf dem Bildschirm angezeigt:
Um mit der TStringGrid-Komponente zu beginnen, müssen Sie sie auf dem Anwendungsformular platzieren. Danach können Sie beginnen, die Tabelle mit den Daten aus dem Array zu füllen. In diesem Fall ist das Array eine zweidimensionale Matrix.
Sie müssen Schleifen verwenden, um die Tabelle mit Daten aus dem Array zu füllen. Die äußere Schleife durchläuft die Zeilen der Tabelle und die innere Schleife durchläuft die Spalten. Bei jeder Iteration der Schleifen wird ein Array-Element in die entsprechende Tabellenzelle geschrieben.
vari, j: Integer;begin// Очищаем таблицуTStringGrid1.Clear;// Задаем количество строк и столбцовTStringGrid1.RowCount := Length(Массив);TStringGrid1.ColCount := Length(Массив[0]);// Заполняем таблицу данными из массиваfor i := 0 to Length(Массив) - 1 dofor j := 0 to Length(Массив[i]) - 1 doTStringGrid1.Cells[j, i] := IntToStr(Массив[i][j]);end;
In diesem Beispiel wird das Array durch die Variable "Array" und die TStringGrid-Komponente durch "TStringGrid1" dargestellt. Die Variablen i und j werden verwendet, um Zeilen bzw. Spalten zu durchlaufen.
Um ein typisiertes Array zu erstellen, müssen Sie einen neuen Datentyp mit dem Schlüsselwort "type" deklarieren. Sie können dann eine Variable dieses Typs erstellen und sie mit einem Array von Werten initialisieren.
typeTStringArray = array of string;varmyArray: TStringArray;i: Integer;beginSetLength(myArray, 3);myArray[0] := 'Значение 1';myArray[1] := 'Значение 2';myArray[2] := 'Значение 3';for i := 0 to Length(myArray) - 1 doWriteln(myArray[i]);end;In diesem Beispiel haben wir ein typisiertes Array namens TStringArray erstellt, das Strings enthält. Dann haben wir eine Variable myArray dieses Typs erstellt und ihre Länge auf 3 gesetzt. Dann haben wir dieses Array mit Werten gefüllt und jedes Element des Arrays mit einer for-Schleife ausgegeben.
Die Verwendung von typisierten Arrays macht den Code einfacher und lesbarer, da wir sofort sehen können, welche Datentypen in einem Array enthalten sind, und die entsprechenden Operationen und Funktionen anwenden.
