16-12-2008, 02:56 PM
السلام عليكم من جديد...
اخي الكريم.... والله اكاد اجن...
لماذا يقول لي خطأ في ال else علماّ انني انا لو بدلتها مع end لا يحصل الخطا ؟
اخي الكريم.... والله اكاد اجن...
لماذا يقول لي خطأ في ال else علماّ انني انا لو بدلتها مع end لا يحصل الخطا ؟
كود :
procedure TForm1.BitBtn1Click(Sender: TObject);
var
s: string;
begin
s:= edit1.Text;
statusbar1.Panels.Items[2].Text := s;
if s = '' then
//do nothing!
else
if s <> listbox1.Items.Text then begin
listbox1.Items.Add(s);
label1.Caption:= inttostr(listbox1.Items.Count);
edit1.Text:= '';
edit1.SetFocus
else -------------------------------- هنا الخطأ ----------------------
showmessage(listbox1.Items.Text);
end;