17-12-2008, 10:44 AM
السلام عليكم ورحمة الله...
نعم اخي اكرمك الله...
الحل هذا صحيح ومشي الحال....
بس اخي سؤالين...
ماذا حدث هنا ؟
والأمر الآخر لم افهم ماذا تقصد ب
الكود الذي استخدمته انا هو...
و
بارك الله فيكم
نعم اخي اكرمك الله...
الحل هذا صحيح ومشي الحال....
بس اخي سؤالين...
PHP كود :
for x := 0 to listbox1.Items.Count - 1 do
begin
if Listbox1.Items.Strings[x] = sName then
begin
ماذا حدث هنا ؟
والأمر الآخر لم افهم ماذا تقصد ب
إقتباس :عندك اخطاء اخرى بما يخص حفظ و فتح الملفات..
الكود الذي استخدمته انا هو...
PHP كود :
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
if opendialog1.Execute then
listbox1.Items.LoadFromFile(opendialog1.FileName);
label1.Caption:= inttostr(listbox1.Items.Count);
edit1.SetFocus;
end;
و
PHP كود :
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
if savedialog1.Execute then
listbox1.Items.SaveToFile(savedialog1.FileName);
label1.Caption:= inttostr(listbox1.Items.Count);
edit1.SetFocus;
end;
بارك الله فيكم

