Arsip: Tedit Array


by saysansay in Form more 19 years ago 4429
Malam Minggu Nga ada pertanyaan yg menarik ya uda diriku Bikin artikel aja dech..mudah2an Ada manfaatnya...Klu nga salah ini Latihanku Yg masalah array Waktu Menggunakan For To Do Waakakakakak mana tau ada yg dapet tugas yg sma dengan diriku ...
Baik Di Mualai dari awal.... Bikin deklarasi Constanta 
const
GridTop=25;
GridLeft=15;
VSpace=20;
HSpace=100;
Gap=25;
Syntax Highlighted with https://pascal-id.org/syntax

Selanjutnya
Deklarasi array di variabale Global 
Var
.....
NOpertama, NoKedua, NoKetiga:array [0..3] of TEdit;
Syntax Highlighted with https://pascal-id.org/syntax

Dan sekarang mari Kita Bermain Dengan array
Create Tedit Sesuai Arraynya 
procedure TForm1.FormCreate(Sender: TObject);
var
b1:byte;
begin
for b1:=0 to 3 do begin
NOPertama[b1]:=TEdit.Create(Self);
NoKedua[b1]:=TEdit.Create(Self);
NoKetiga[b1]:=TEdit.Create(Self);
NOPertama[b1].parent:=Self;
NoKedua[b1].parent:=Self;
NoKetiga[b1].parent:=Self;
NOPertama[b1].top:=GridTop;
NoKedua[b1].top:=GridTop+Gap+VSpace;
NoKetiga[b1].top:=GridTop+2(VSpace+Gap);
Nopertama[b1].left:=GridLeft+b1 (HSpace+Gap);
NoKedua[b1].left:=GridLeft+b1(HSpace+Gap);
NoKetiga[b1].left:=GridLeft+b1 (HSpace+Gap);
NOPertama[b1].width:=HSpace;
NoKedua[b1].width:=HSpace;
NoKetiga[b1].width:=HSpace;
NOPertama[b1].height:=VSpace;
NoKedua[b1].height:=VSpace;
NoKetiga[b1].height:=VSpace;
NOPertama[b1].show;
NoKedua[b1].show;
NoKetiga[b1].show;
NOPertama[b1].enabled:=True;
NoKedua[b1].enabled:=True;
NoKetiga[b1].enabled:=true;
NOPertama[b1].text:='DelphiExpert';
NoKedua[b1].text:='Delogic';
NoKetiga[b1].text:='LuriDarmawan';
end;
end;
end.
Syntax Highlighted with https://pascal-id.org/syntax

Uda dech..Selsai
Dan tampilannya akan Muncul Seperti Ini


Hip...Hip...Hura...hura...Berhasil dan malam mingguku menyedihkan
Wakakakakakkaka

Random Articles

Last Articles

Recent Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com