Arsip: Tedit Array


by saysansay in Form more 18 years ago 4277
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

AI Forward

๐Ÿš€ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

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