Kompletní průvodce výstupem pole v programovacím jazyce Delphi

var arrayInt: array of Integer; i: Integer; begin / / vyplňte pole hodnotami 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.

Výsledek plnění programu:

Definice pole v Delphi a jeho vlastnosti

Jednorozměrné pole je uspořádaná sekvence prvků, ke kterým je index přístup. Počet prvků v poli se určuje při jeho incializaci. K prvku se přistupuje pomocí příkazu čtvercové závorky [ ].

K určení jednorozměrného pole se v Delphi používá následující syntaxe:

• var arr: array[počáteční index..index konce] of Typdan;
• var arr: array[počáteční index..index konce] of Typdata = (prvek 1, prvek 2, . Element n);

Kde počáteční index a konec indexu - celá čísla, která udávají rozsah hodnot indexu. Typdana - typ dat prvků, které budou obsaženy v poli.

• var arr: array[1..10] of Integer;
• var arr: array[1..5] of String = ('apple', 'banana', 'orange', 'pear', 'grape');

Druhá forma definice pole okamžitě inicializuje jeho prvky.

Určité jednorozměrné pole lze použít k ukládání všech typů dat, včetně primitivních typů (celá čísla, plovoucí čísla, symboly) a vlastních typů (objekty, řádky atd.).

Nejprve je třeba vytvořit pole, například:

var numbers: array[0..4] of Integer;

Poté můžete pole vyplnit hodnotami, například:

numbers[0] := 4; numbers[1] := 8; numbers[2] := 15; numbers[3] := 16; numbers[4] := 23;

A nakonec lze hodnoty pole odvodit pomocí cyklu for:

for i := 0 to Length(numbers) - 1 do Writeln(numbers[i]);

Použití smyčky for Tak umožňuje pohodlné a rychlé zobrazení pole na obrazovce v jazyce Delphi.

1. Oznamte a inicializujte pole.
2. Použijte cyklus k přerušení všech prvků pole.
3. Uvnitř cyklu vyvolejte postup WriteLn tím, že do něj přenesete hodnotu aktuálního prvku pole.

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.

Výsledek práce programu:

Použití funkce Join ke sloučení prvků pole

Syntaxe funkce Join je následující:

• Join (oddělovač: string; pole: array of string): string;

Prvním argumentem funkce Join je oddělovač, pomocí kterého se spojí prvky pole. Druhým argumentem je samotné pole, které je třeba odvodit. Výsledkem funkce je řetězec obsahující prvky pole, které jsou spojeny oddělovačem.

Příklad použití funkce Join:

• var
• arr: array[0..2] of string = ('apple', 'banana', 'orange');
• result: string;
• 
  
• begin
• result := Join(', ', arr);
• ShowMessage(result);
• end;

V tomto příkladu pole arr obsahuje tři prvky: 'apple', 'banana'a ' orange'. Po vyvolání funkce Join s oddělovačem',', budou hodnoty prvků pole sloučeny do řádku 'apple, banana, orange' a zobrazeny na obrazovce pomocí funkce ShowMessage.

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.

Při spuštění tohoto programu se na obrazovce zobrazí následující výsledek:

Chcete-li začít s komponentou TStringGrid, musíte ji umístit na formulář aplikace. Poté můžete začít vyplňovat tabulku údaji z pole. V tomto případě je pole dvourozměrná matice.

K vyplnění tabulky pomocí dat z pole je třeba použít cykly. Vnější cyklus prochází řádky tabulky a vnitřní cyklus sloupce. Každá iterace cyklů zaznamenává prvek pole do příslušné buňky tabulky.

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;

V tomto příkladu je pole reprezentováno proměnnou " pole "a komponenta TStringGrid je"TStringGrid1". Proměnné i a j se používají k přerušení řádků a sloupců.

Chcete-li vytvořit typizované pole, musíte oznámit nový typ dat pomocí klíčového slova "type". Poté je možné vytvořit proměnnou tohoto typu a inicializovat ji pomocí pole hodnot.

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;

V tomto příkladu jsme vytvořili typizované pole s názvem TStringArray, které obsahuje řádky. Poté jsme vytvořili proměnnou myArray tohoto typu a nastavili její délku na 3. Poté jsme toto pole vyplnili hodnotami a každý prvek pole jsme vyvedli pomocí cyklu for.

Použití typizovaných polí činí kód jednodušším a čitelnějším, protože můžeme okamžitě vidět, jaké typy dat jsou obsaženy v poli, a použít příslušné operace a funkce.