exceptetion handling para jawara delphi and omzz starboardd yang jago abiezz.. mo tanya nih... skr lagi pengen coba buat exception handling buat edit yang dinamis kacao banget... begini lohh kontrolnya tuh pake combobox omzz... teruss kan ngeluarin edit yang dinamis.. nahh sayah mo buat gimana caranya kita ga bisa input selain angka di edit-edit dinamis yang dikeluarin tuh.. nambah lagi yah omz... kalo ada yang kosong editnya kita keluarin showmessages ajahh .. misal kata-katanya ; Ada edit yang kosong tuh... nih coding sayah nih... var Form1: TForm1; edit:array of Tedit; Edits: array of TEdit; Labels:array of Tlabel; Labele:array of Tlabel; procedure TForm1.ComboBox1Click(Sender: TObject); var i,n,j:integer; begin n:=strtoint(ComboBox1.Text); for i:=1 to n do for j:=1 to n do begin //terubah Edits[j]:=TEdit.Create(Form1); Edits[j].Parent:=Form1; Edits[j].Left:=form1.Width-(10-j)58; Edits[j].Top:=Form1.Height-(13-i) 24-100; Edits[j].Width:=49; edits[j].BorderStyle:=bsnone; edits[j].Hint:='A'+inttostr(i)+inttostr(j); edits[j].ShowHint:=true; edits[j].Color:=clskyblue; //Edits[j].TabOrder:=ji+n; //Edits[j][j i+n].Name:='edit'+inttostr(i)+inttostr(j); Edits[j].Text:='G'+inttostr(i)+inttostr(j); end; end; mohon bantuannya..

Caranya: tambahkan 2 procedure di class TForm nya hingga menjadi

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure ComboBox1Click(Sender: TObject);
    procedure SaatEditKeyPress(Sender: TObject; var Key: Char);
    procedure SaatEditChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

kemudian di bagian implementasinya tuliskan

procedure TForm1.SaatEditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (((key >=#48)and (key <=#57))or (key = chr(VK_BACK))) then
     key :=#0;
end;

procedure TForm1.SaatEditChange(Sender: TObject);
begin
if (Sender as TEdit).Text = '' then
  MessageDlg('Edit kosong', mtWarning, [mbok], 0);
end;

sekarang terapkan pada array Edit dinamis kamu, tambahkan baris sintaks ini

Edits[j].Width:=49;
edits[j].BorderStyle:=bsnone;
edits[j].Hint:='A'+inttostr(i)+inttostr(j);
edits[j].ShowHint:=true;
edits[j].Color:=clskyblue;
Edits[j].Text:='G'+inttostr(i)+inttostr(j);
edits[j].OnKeyPress:= SaatEditKeyPress; // <-- Event on keypress
edits[j].OnChange:= SaatEditChange; // <-- Event on Change

Selamat mencoba

Setuju dengan Ivan, hanya kalau boleh menyarankan untuk memeriksa kondisi TEdit yang kosong mungkin lebih baik menggunakan event OnExit. btw, kode OnKeyPress bisa disingkat menjadi if not(ord(key) in ) then key :=#0; regards zuyo

Yup Idem juga hehehe.. :mrgreen:

omzzz.. pernah liat logika invers matriks ga?? saya lagi build itu nihh buat tambah2 forum jurusan.. saya dah coba buat... waktu dalam bentuk console aplication tuhhh lancar2 ajah... hasilnya bener.. tapi waktu saya coba pake visualnya... wah22 hasilnya jauh bangetzzzz...\ ada saranzzz.... ntarr saya kasih liat scriptnya... smoga ga mengganggu....

hehehe, ternyata kasus yang kemarin untuk buat penyelesaian Matrik ya :mrgreen:, gimana yang kemarin sudah dicoba ? ditunggu ya scriptnya :D

wah22 lagi cari FD nih mas.. cecer di lab.. hiks mudah2 an ga ilang.. banyak info penting.. ntar sayah kirim tapi ada TPW ga?? kalo ga ntarr sayah kirim sekaliann via zipp sama koncolnya.. ditunggu yah omzz...

type TForm1 = class(TForm) ComboBox1: TComboBox; procedure ComboBox1Click(Sender: TObject); procedure SaatEditKeyPress(Sender: TObject; var Key: Char); procedure SaatEditChange(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; edit:array of Tedit; Edits: array of TEdit; Labels:array of Tlabel; Labele:array of Tlabel; implementation {$R .dfm} procedure TForm1.SaatEditKeyPress(Sender: TObject; var Key: Char); begin if not (((key >=#48)and (key <=#57))or (key = chr(VK_BACK))) then key :=#0; end; procedure TForm1.SaatEditChange(Sender: TObject); begin if (Sender as TEdit).Text = '' then MessageDlg('Edit kosong', mtWarning, [mbok], 0); end; procedure TForm1.ComboBox1Click(Sender: TObject); var i,n,j:integer; begin n:=strtoint(ComboBox1.Text); for i:=1 to n do for j:=1 to n do begin //terubah Edits[i][j]:=TEdit.Create(Form1); Edits[i][j].Parent:=Form1; Edits[i][j].Left:=form1.Width-(10-j) 58; Edits[i][j].Top:=Form1.Height-(13-i)24-100; Edits[i][j].Width:=49; edits[i][j].BorderStyle:=bsnone; edits[i][j].Hint:='A'+inttostr(i)+inttostr(j); edits[i][j].ShowHint:=true; edits[i][j].Color:=clskyblue; //Edits[j][i].TabOrder:=j i+n; //Edits[j][j*i+n].Name:='edit'+inttostr(i)+inttostr(j); Edits[i][j].Text:='G'+inttostr(i)+inttostr(j); edits[j].OnKeyPress:= SaatEditKeyPress; // <-- Event on keypress edits[j].OnChange:= SaatEditChange; // <-- Event on Change end; end; end. om ada errorr di [Error] Unit1.pas(65): Record, object or class type required napah yah??

ternyata sayah ga masukkan [i]nya... tq..

ommmmm zuyo boleh minta imelnya ga?? ada yang mo ditanyain nihh.... plzzz yah....