Arsip: Tedit Array


by saysansay in Form more 14 years ago 2990
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
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com