سوالات و آموزش براي مبتدي ها

شما اگر خودتان کمی با این کار دست و پنجه نرم می کردید حتما به نتیجه می رسیدید

ولی خوب چه می شه کرد!

شما می تونید از کد زیر استفاده کنید :
شما این کامپوننت ها رو در روی فرم قرار دهید
1 ) یک عدد Edit1
2 ) یک عدد memo1
3 ) یک عدد Button1

حالا در رویداد Onclick مربوط به Button1 کد زیر رو بنویسید :

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2,s3:string;
begin
  s1:='<a href="';
  s2:='" title="picture"><img src="';
  s3:=' alt="click me" /></a>';
  memo1.Lines.Add(s1+edit1.Text+s2+edit1.Text+s3);
end;

---

راستی من دفعه قبل اون عکس رو ندیده بودم برای همین هم از یه مثال استفاده کردم ولی با توجه به عکسی که شما در پست 448 قرار دادید این کد می تونه کمکتون کنه به این صورت که اون Edit ها رو به صورت پشت سر هم روی فرم قرار داده باشید
edit1=image Link
edit2=title
edit3=alt
memo1= نمایش نتیجه

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Lines.Add('<a href="'+edit1.Text+'" title="'+edit2.text+'" ><img src="'+edit1.Text+'" alt="'+edit3.text+' " /></a>');
end;

---

آقا دمت گرم خیلی حال دادی:40:
فقط یه مشکل دیگه هم دارم.
اینو ببینید:

کد:

---

<a href='http://i43.tinypic.com/154ajdg.jpg' title='Picture'><img src='http://i43.tinypic.com/154ajdg_th.jpg' alt='Click Me' /></a>

---

اون قسمتی که آبی کردم خیلی مهمه. باید در لینک، قبل از .jpg یه _th اضافه کنه تا عکس کوچک(thumb) نمایش داده بشه(این الگوریتم در مورد همه ی لینک های tinypic.com صدق میکنه.)
میشه در این مورد راهنمایی بکنی؟
پیشاپیش ازت ممنونم:11:

ميتوني اون Text رو قبل از اينكه كامل بنويسي، با كمك از تابع StrCat و يا توابع مشابه اونو اصلاح كني.
براي اطلاعات بيشتر هم ميتوني توي هلپ دلفي نگاه كني.

نقل قول:

---

نوشته شده توسط مرد مباح [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ميتوني اون Text رو قبل از اينكه كامل بنويسي، با كمك از تابع StrCat و يا توابع مشابه اونو اصلاح كني.
براي اطلاعات بيشتر هم ميتوني توي هلپ دلفي نگاه كني.

---

من به help مراجعه کردم ولی تابع StrCat در C رو گفته بود.و هیچ توضیح اضافی هم نداده بود!:13:

با تحقیقاتی که کردم بالاخره فهمیدم که میتونم از تابع Insert استفاده کنم.
فقط الان یه مشکلی دارم.
چطور میتونم Edit1.text رو بریزم توی یه آرایه؟

تو رو خدا یکی جواب بده.

بدجوری احتیاج دارم!

يعني چي؟
ميخواي تمام حروفشو جدا كني؟ اگه اين جوري منظورته لازم نيست كاري كني.
String خودش يك آرايه از Char هست. و ميتوني با تايپ عدد جلوي اون به حرف شماره x كه مورد نظرته برسي.

نقل قول:

---

نوشته شده توسط مرد مباح [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

يعني چي؟
ميخواي تمام حروفشو جدا كني؟ اگه اين جوري منظورته لازم نيست كاري كني.
String خودش يك آرايه از char هست. و ميتوني با تايپ عدد جلوي اون به حرف شماره x كه مورد نظرته برسي.

---

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

نقل قول:

---

نوشته شده توسط alirezazzz [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

سلام
طول به انگلیسی می شود : Length
سازندگان کامپایلر آدمهایی هستند مثل من و شما، پس سعی می کنند برای توابع اسمهایی انتخاب کنند که مشخص کننده کار آنها باشند.
در این مورد هم تابعی داریم به همین نام.

declaration

کد:

---

function Length(const S: string): integer
function Length(const S: array): integer

---

description

Returns an integer containing the number of characters in a string or the number of elements in an array.
For an array, Length(S) always returns Ord(High(S))-Ord(Low(S))+1

example

کد:

---

var s : string;
    i : integer;

s:='DELPHI';
i := Length(s);
//i=6;

---