Programozás Delphi Lazarus
Memo1 alkatrész kell állítani align = alClient.
Hozzunk létre egy eseményt az űrlapot, és töltse fel a onCreate a ListBox1 fájlt egy listát a kulcsszavak:
eljárás TForm1.FormCreate (Sender: TObject);
kezdődik
Memo1.clear;
ListBox1.Items.LoadFromFile ( 'tag.txt');
végén;
Ha helyesen tette, amikor a projekt elindul, látni fogjuk a következő kép:
eljárás TForm1.ListBox1DblClick (Sender: TObject);
kezdődik
Memo1.Lines.Add (ListBox1.Items [ListBox1.ItemIndex]);
végén;
Itt Memo1.Lines.Add rekordot jelent -, hogy egy sor hozzáadása notebook Memo1.
ListBox1.Items - egy sort a listából száma [ListBox1.ItemIndex]. ItemIndex - a kiválasztott sor száma a listában. Mivel ListBox1.Items egy tömböt, a hit vonal végezzük tömb eleme a száma.
Fuss a projekt kivitelezése és próbálja levelet HTML oldal behelyezésével a címkéket a dupla kattintással ListBox1.
Csere gombot - Button2;
Törlés gomb - button3;
Paste gomb - 4-es gombot;
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
ha MessageDlg ( 'hozzáadása utáni?', mtInformation, [mbOk, mbCancel], 0) = mrOK
majd
nbsp kezdődik
ListBox1.Items.Add (edit1.text);
ListBox1.Items.SaveToFile ( 'tag.txt');
nbsp végén;
végén;
eljárás TForm1.Button2Click (Sender: TObject);
kezdődik
ha MessageDlg ( 'módosítása a rekord?', mtInformation, [mbOk, mbCancel], 0) = mrOK
majd
kezdődik
ListBox1.Items [ListBox1.ItemIndex]: = edit1.Text;
ListBox1.Items.SaveToFile ( 'tag.txt');
végén;
végén;
eljárás TForm1.Button3Click (Sender: TObject);
kezdődik
ha MessageDlg ( 'Tétel törlése?', mtInformation, [mbOk, mbCancel], 0) = mrOK
majd
kezdődik
ListBox1.Items.delete (ListBox1.ItemIndex);
ListBox1.Items.SaveToFile ( 'tag.txt');
végén;
végén;
eljárás TForm1.Button4Click (Sender: TObject);
kezdődik
ha MessageDlg ( 'beszúrása rekordot?', mtInformation, [mbOk, mbCancel], 0) = mrOK
majd
kezdődik
ListBox1.Items.Insert (ListBox1.ItemIndex, Edit1.text);
ListBox1.Items.SaveToFile ( 'tag.txt');
végén;
végén;
Táblázat sorok fül StringGrid további komponensek - egy táblázatot, amelyben a sejtek a húr adatok jeleníthetők meg. A sorok és oszlopok a táblában megadható tulajdonságok és rowcount ColCount volt.
FixedCols FixedRows és határozza meg a számát rögzített sejtek szánt megjelenítő fejezetek sorok és oszlopok. Hozzáférés a tartalmát a sejtek hajtjuk sejteket funkciót [AcOI, Arow: egész szám]: string, ahol AcOI és Arow - az oszlop száma és a sor számát, illetve.
Annak érdekében, hogy változások a méret a sejtek a folyamat programtulajdonság Options \ goRowSizing és Options \ goColSizing kell állítani igaz.
Hozzon létre egy táblázatot 6x6 sejtek fejléc, és a szokásos módon a Microsoft Excel.
Létrehozása fejléc sejtek helyezni a rendezvény létrehozása formájában OnCreate:
eljárás TForm1.FormCreate (Sender: TObject);
var n: egész szám;
kezdődik
n: = 1 és 6 do StringGrid1.Cells [0, n]: = IntToStr (n);
n: = 1 és 6 do StringGrid1.Cells [n, 0]: = CHR (n + 64);
Label1.Caption: = '';
végén;
FloatToStr (x: real) - átalakítja a számot szöveggé.
StrToFloat (s: string) - átalakítja a húr egy számot.
Egy véletlenszám-generátor létrehoz egy mátrixban, például 3 x 3 elem, és kiszámítja az összeget a diagonális mátrix. Eredmény fel a jobb alsó sarokban a mátrix (4.4).
Matrix betölti, ha rákattint az „Új” gombra (Button2). Hozzon létre egy onClick eseményt Button2 gomb:
eljárás TForm1.Button2Click (Sender: TObject);
var
x, y: integer;
z: a valós;
kezdődik
véletlenszerű;
x: = 1-től 3 do
kezdődik
Y: = 1-től 3 do
kezdődik
StringGrid1.Cells [x, y]: = FloatToStr (random (200) * 0,1);
végén;
végén;
z: = 0;
x: = 1-től 3 do z: = Z + StrToFloat (StringGrid1.Cells [x, x]);
StringGrid1.Cells [4,4]: = 'Sum =' + FloatToStr (Z);
végén;