17-12-2008, 12:18 PM
إقتباس :والأمر الآخر لم افهم ماذا تقصد بلكل شرط يوجد محقق او غير محقق . ادا كنت تريد دمج هدا الكود فى حالت تحقق الشرط .
كود :
label1.Caption:= inttostr(listbox1.Items.Count);
edit1.SetFocus;يجب ان يكون الكود على هدا الشكل :
كود :
if savedialog1.Execute then
Begin
listbox1.Items.SaveToFile(savedialog1.FileName);
label1.Caption:= inttostr(listbox1.Items.Count);
edit1.SetFocus;
end;فى غير دالك فكودك صحيح .
