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;
|
|
Selanjutnya
Deklarasi array di variabale Global
Var
.....
NOpertama, NoKedua, NoKetiga:array [0..3] of TEdit;
|
|
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.
|
|
Uda dech..Selsai
Dan tampilannya akan Muncul Seperti Ini
Hip...Hip...Hura...hura...Berhasil dan malam mingguku menyedihkan
Wakakakakakkaka
