שלום

להלן קוד פשוט בדלפי, שאמור לבדוק את מספר הרשומת במסד נתונים מסוים. אלא שהוא לא עובד (וגם לא מציג שגיאה)

קוד:

 procedure TMain.Button1Click(Sender: TObject);
var i:integer;
begin
i:=table1.RecordCount;
if i > 0 then
Label1.Caption :='1'
else
Label1.Caption :='2'
end; 

אני ממש לא יודע מה לעשות. אשמח לעזרה.

מה זאת אומרת לא עובד? הוא מחזיר 2?

תחבר את הטבלה ל-dbGrid עם DataSource, תעשה לה OPEN ותבדוק אם בכלל יש לה רשומות.

אני ניסיתי עם Delphi 7 והכל עובד.

חיברתי הטבלה ל-Alias, בחרתי לאיזה טבלה פיזית היא מתחברת וכתבתי את הקוד כמוך, רק הוספתי כשורה ראשונה את table1.Open;

מאיר.

I pretend to work. They pretend to pay me.