ساخت کلید اصلی

نقل قول:

---

TtableRec = record
fields : packed array [0..2] of string;
end;
TSearcher = class
Table : array of TtableRec;
TBLSIZE : integer;
FIELD_NUMBER : integer;
function tblfind(info : TtableRec):boolean;
function recessive(info : TtableRec; ind : integer;
const field : integer = 0): boolean;
public
constructor Create(TABLE_MAX_SIZE : integer);
function find(name , family , age : string):boolean;
procedure insert(name , family , age : string);
end;

---

اینو کجا باید بنویسمش؟؟؟

نقل قول:

---

constructor TSearcher.Create(TABLE_MAX_SIZE: integer);

---

اینو باید کلید براش تعریف کرد یا فقط همین رو بنویسم کفایت میکنه

یا

نقل قول:

---

function TSearcher.find(name, family, age: string): boolean;

---

ویا

نقل قول:

---

procedure TSearcher.insert(name, family, age: string);

---

وهمچنین این یکی رو

نقل قول:

---

function TSearcher.recessive(info: TtableRec; ind: integer;
const field: integer): boolean;

---

نقل قول:

---

function TSearcher.tblfind(info: TtableRec): boolean;

---

اگه میشه یه توضیحی بدین اینا با دکمه یا چیز دیگری وصل میشه یا خودشون همینجوری کار میکنن
ورودیهامون چجوری باشه خوروجیمون چطوری
بازهم تشکرم

يه نمونه برنامه براتون آماده كردم. با دلفي 7 نوشتمش.

کد:

---

http://rapidshare.com/files/331752048/Searcher.rar.html

---

از چه كامپوننتي براي ارتباط با پايگاه داده استفاده مي كنيد. AdoConnection‌ يا از Table خود دلفي (BDE)؟

من از table خود دلفی باید استفاده بشه (bde)
بابت برنامه هم ممنون خیلی لطف کردین
من میرم امتحانش کنم دستت درد نکنه

سلام
romixery جان میگم من چون هنوز نتونستم کلاس ها رو خوب یاد بگیرم میشه راهنمائیم کنی چطوری میتونم از این کلاس برای table و datasorce استفاده کنم (یعنی این کلاس چجوری فراخانی میشه و جوابش رو چطوری دریافت کنم

سلام. با تشکر از romixery عزیز برای کدی که قرار دادند. شما برای رفع مشکلتون نیازی نیست دقیقا این کد رو با استفاده از کلاس پیاده سازی کنید. از توابع موجود، در برنامه خودتون استفاده کنید. مثلا تابع زیر رو خودتون در برنامه ایجاد کنید و استفاده کنید:

کد:

---

tblfind(info: TtableRec): boolean;
var
  ind : integer;
begin
  result := false;
  for ind := 0 to TBLSIZE do
  begin
    if (table[ind].fields[0] = info.fields[0]) then
      result := recessive(info , ind);
    if result then
      exit;
  end;
end;

---

من یه سوالی برام پش اومده
اینinfo و ind چکارند یعنی این دو متغییر وضیفشون چیه؟

فرهاد جان میترسم جداشون کنم توابع رو ؛ دیگه کار نده
من فقط میخام بدونم کجاها باید ورودی داشت و کجاها چه خوروجی میده البته اگه بشه بگین که برای استفاده با table دستورات چه تغییراتی میکنه چون خودم کمی باهاش کار کردم دیدم انگار خیلی از دستورات عوض میشه میخام بدونم همینطور هست یا نه
بازهم از همتون متشکرم

info يه ركورده كه نام، فاميل و سال فردي رو كه ميخواي توي جدولت، جستجوش كني، توش قرار داده شده. اگه به تابع find توجه كنيد، ميفهميد كه چي شده.
ind يه متغير هست كه از ركورد اول تا آخرين ركورد جدولت ميره، و دونه دونه اونها رو دستيابي مي كنه. براي مثال اگه ind=5 و [5]Table[ind]=Table يعني، ركورد ششم جدول «توجه كن كه جدول از 0 شروع ميشه. پس خانه 0، اولين خونه هست و ...»
بيشتر از اين توضيح مي خواد؟

فقط کاشکی میگفتی چطور table1 توش تعریف میشه

راسی یه سوال دیگه میگم شما برا چک کردن از علامت = استفاده میکنید اگه برا sort کردن بخوام از این توابع به کمک > یا < استفاده کنیم میشه یا نه

نقل قول:

---

سلام
romixery جان میگم من چون هنوز نتونستم کلاس ها رو خوب یاد بگیرم میشه راهنمائیم کنی چطوری میتونم از این کلاس برای table و datasorce استفاده کنم (یعنی این کلاس چجوری فراخانی میشه و جوابش رو چطوری دریافت کنم

---

کسی میتونه جوابمو بده لطفا .....لطفا
من خواهش میکنم در این مورد کمکم کنید باورکنید ثواب داره