6. lecke - dimenziós tömbök - a delphi
6. lecke - dimenziós tömbök
Képzeljünk el egy vonatot, hogy van egy bizonyos számú kocsira. Minden autó egy számot, és az egyes számozott autó tárolhat információt. Kacsa tömb így néz ki, de nem a vonat :) tömb van írva ott, ahol mi írjuk a szokásos változók.
Syntax: Most nyílt Delphi és dobja a forma az alkatrész gomb. Címke és Memo. Memo komponens a 6. helyen a Szokásos lap.
Memo komponens tulajdonság úgynevezett Lines. Ez hasonló a Caption tulajdonságot a Label komponenst. Keressen egy ingatlan az Object Inspector, és kattintson a gombra három pont:
A Labelle: Most, annak érdekében, hogy mind a 3 értékek a Memo. akkor kell használni egy ciklusban. Mivel a ciklus végrehajtása csak egy sort, akkor kihagyja a kulcsszavakat kezdetét és végét.
Memo1.Lines.Add string (mas [i]); során az első fordulóban ciklus hozzáad egy emlékeztető első eleme, mivel a i változó értéke 1. A második fordulóban a i változó egyenlő 2 és a vonal Memo1.Lines.Add (MAS [i]); egy második elem a tömbben. Hasonlóképpen, a harmadik.
Általános nézet a program: A loop kimenet a tömb kerül sor oly módon: Van egy hosszú ideje, hogy másolni és módosítani a cikkszám, ha lesz száz, de van még több mint ezer! A ciklus is segít megbirkózni ezzel a teljes költségét a két vonal.
Ez arra a következtetésre jutott a leckét, de azt megelőzően, kérjük, tartsa a programot, mert szükség van a következő leckét.
A feladat a konszolidáció: feltölt egy tömböt 100 egészek a for ciklus, kimenet a feljegyzés a 20, 50, 70 A tömb egy hurok és feltételeit is.
Nos, ez minden! Sok szerencsét!
Találkozunk a következő leckét!
egység egység1; felületet használja a Windows, az Üzenetek, SysUtils, Változatok, osztályok, grafika, vezérlők, Forms, párbeszédablakok, StdCtrls; írja TForm1 = osztály (TForm) btn1: TButton; mmo1: TMemo; lbl1: TLabel; eljárás btn1Click (Sender: TObject); magán
Hozzáadott (a): adex348 [tag]
Gyalogolt félreértette a funkció egy for ciklus, fut a kód belsejében a hurok egy kezdeti értéket, amit kértél, és hozzáadunk 1 minden alkalommal újra kezdődik, amíg el nem éri a végső értéket (ami szintén kell kérni). a hozzárendelési ciklust kell kinéznie: i: = 1-től 100 do kezdeni mas [i]: = i; ha (MAS [i] = 20) vagy (mas [i] = 50) vagy (mas [i] = 70), majd Memo1.Lines.add (InttoStr (MAS [i]); mást folytatódik; end;
Hozzáadott (a): Shik007 [tag]
Ahhoz, hogy a másik gombot a program a kódot, hogy törölje a tartalmát a Memo komponens befejezése után a munka során. Úgy néz ki, mint ez: eljárás TForm1.Button2Click (Sender: TObject); kezdődik memo1.Lines.Clear; végén;