استفاده از Shamsi.dll در دلفی ( بشتابید که مشکل حل سد )

من تعریفش رو دقیق یادم نیست. ولی ممکنه به جای True و False مقدیر 0 و 1 برگردونه.
و یا اینکه روی مفدار سال چک میکنه که احتمالا اینطوری هستش. یعنی 1388. نه تاریخ کامل.

به تعاریفش نگاه کنی درست میشه!

سلام


*من این را امتحان کردم :

کد:

---

if shamsi1.IsKabiseh('1388') =  'True' then
  label1.Caption := 'True'
else
  label1.Caption := 'False';
end;

---

خطا : ( شماره 1 )

کد:

---

[Error] Unit1.pas(91): Types of actual and formal var parameters must be identical

---

**این را امتحان کردم :

کد:

---

if shamsi1.IsKabiseh('1388') =  True then
  label1.Caption := 'True'
else
  label1.Caption := 'False';
end;

---

باز هم همون خطا را داد ( شماره 1 )

*** این :

کد:

---

if shamsi1.IsKabiseh('1388/01/01') =  'True' then
  label1.Caption := 'True'
else
  label1.Caption := 'False';
end;

---

همون خطا

**** این :

کد:

---

if shamsi1.IsKabiseh('1388/01/01') =  True then
  label1.Caption := 'True'
else
  label1.Caption := 'False';
end;

---

باز هم همون خطا

***** این:

کد:

---

if shamsi1.IsKabiseh('1388') =  '1' then
  label1.Caption := 'True'
else
  label1.Caption := 'False';
end;

---

همون خطا

****** این :

کد:

---

if shamsi1.IsKabiseh('1388') =  1 then
  label1.Caption := 'True'
else
  label1.Caption := 'False';
end;

---

دوباره همون خطا

******* این

کد:

---

if shamsi1.IsKabiseh('1388/01/01') =  '1' then
  label1.Caption := 'True'
else
  label1.Caption := 'False';
end;

---

و...


همه نوعی رو امتحان کردم ولی نشد.


در ضمن من از Shamsi.dll در ویژوال بیسیک استفاده کردم. در آن جا به راحتی کار کرد. در ویژوال بیسیک از تاریخ کامل و True یا False استفاده کردم. اما در دلفی نشد.




اصلا در دلفی می شود از IsKabiseh استفاده کرد.




خواهش می کنم کمکم کنید. خیلی لازمش دارم:19: