سؤال سريع

اسف

ماهي الitemindex

:( اعذرني لم افهم السؤال

دالة Itemindex تعود بقيمة integer تساوي لترتيب العنصر الذي اخترته في list يعني اقصد مثلا اذا نفرت على العنصر الأول اذهب للسطر الأول في الجدول الحاوي لهذا العنصر يعني أذهب للسطر الاول في الجدول مثلا للقيام بعملية ما مع حق password

أمل أن أكون وضحت المعنى

وشكرا

:D :( :( :( ما فهمت اعذرني مخي سميك

:(

:s :s :s :s

مابحسن جاوبك اذا ماني فهمان

رح استنى معك الجواب مع الشرح

غريب :blink: :blink: <_< <_<

دائما الواحد ببقى صغير باهاي الغة مهما تعلم

واكيد ماحدا بيقول غلى حالوانو بيعرفا تماما :D

اعتذر ;)

ربما دلك هذا الكود على شئ معين

procedure TForm1.ListBox1Click(Sender: TObject);
var
  InputString: string;
begin
showmessage(intToStr(ListBox1.ItemIndex));
 InputString:= InputBox('Input Your Password', 'input true Passwrod to continue','');
 if InputString<>'' then
 begin
 Table1.Edit;
 Table1.Fields[ListBox1.ItemIndex].AsString:= InputString;
 Table1.Post;
 end;

end;

ربما كنت تقصد الحصول على هذا السطر بالذات

 Table1.Fields[ListBox1.ItemIndex].AsString:= InputString;

يعني امكانية الحصول او الوصول الى حقل معين بالرقم

هادا كود كتابة للجدول انا لازمني كود للقراءة من الجدول بس الكود المكتوب كان ملهما جدا لي فكتبت الكود التالي

procedure TForm1.DBListBox1Click(Sender: TObject);

var p:integer;

s:string;

begin

s:=DBListBox1 .Items.Strings [DBListBox1 .ItemIndex];

p:=pos(' - ',s);

delete(s,p,length(s));

//showmessage (s) ;

ADOTable1 .edit;

if ADOTable1 .Locate('id',s,[])then begin

if ADOTable1 .FieldByName ('Password').AsString ='' then

showmessage('Ok')

else

showmessage('Enter Password');

end;

ADOTable1 .Close;

end;

procedure TForm1.DBListBox1Click(Sender: TObject);
var p:integer;
s:string;
begin
s:=DBListBox1 .Items.Strings [DBListBox1 .ItemIndex];
p:=pos(' - ',s);
delete(s,p,length(s));
//showmessage (s);
ADOTable1 .edit;
if ADOTable1 .Locate('id',s,[])then begin
if ADOTable1 .FieldByName ('Password').AsString ='' then
showmessage('Ok')
else
showmessage('Enter Password');
end;
ADOTable1 .Close;
end;

رغم اني لم افهم قصدك تماما لكن مو مشكلة احيي نشاطك

في المرة القادمة عند فتحك موضوع وتريد كتابة كود معين

اتبع ما يلي

1. اضغط Enter داخل محرر النصوص الذي كتبت المشاركة داخله

2. فوق محرر النص ستجد زرا مكتوبا عليه code اضغط عليه ستظهر في محرر النصوص الكلمة code داخل قوسين مربعين

3. اضغط Enter

4. فوق محرر النص ستجد زرا مكتوبا عليه code اضغط عليه ستظهر في محرر النصوص الكلمة

5. اكتب الكود الذي تريده بينهما او الصقه بينهما

انا اعتذر من جميع الاعضاء عن هذه المشاركة المخالفة (باب النجار مخلوع )