ایجاد فاصله بین خطوط

[solook]

با سلام به دوستان.
بنده می خوام تا مقادیر داخل Edit ها را به Memo انتقال بدهم .برای این کار از این کد استفاده نمودم:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
memo1.Text:=edit1.Text+edit2.Text+edit3.Text+edit4 .Text;
end;خوب جواب داد اما تمام مقادیر را پشت سرهم نشان می دهد مثلا اینطور نشون میده:
Edit1Edit2Edit3Edit4
حال می خواستم بدونم چطوری میشه کد نوشت که هر کدام را در یک خط نشان بدهد

[iman_s52]

memo1.Text := edit1.Text + #13#10 + edit2.text

[nasr]

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
memo1.Text:=edit1.Text+ ' ' + edit2.Text+' '+edit3.Text+' '+edit4.Text;
end;

[solook]

بسیار عالی ..متشکر
حالا یه سؤال دیگه .چه کدی باید نوشت که نشانگر داخل Edit بصورت خودکار فارسی تایپ کند؟

[nasr]

یکیش فارسی میکنه یکیش انگلیسی


ActivateKeyboardLayout(0,1);

ActivateKeyboardLayout(1,0);

[MNosouhi]

یکیش فارسی میکنه یکیش انگلیسی
البته این مال زمانیه که فارسی نصب باشه .

[vcldeveloper]

خوب جواب داد اما تمام مقادیر را پشت سرهم نشان می دهد مثلا اینطور نشون میده:
Edit1Edit2Edit3Edit4
حال می خواستم بدونم چطوری میشه کد نوشت که هر کدام را در یک خط نشان بدهد


Memo1.Lines.Add(Edit1.Text);
Memo1.Lines.Add(Edit2.Text);

[Ahmad Chehreghani]

کد add برای memo جایی استفاده میشه که بخواهیم در جای خاصی خط اضافه کنیم
یعنی اگه مکان نما بین خط 4 و 5 باشد خط ما را وسط خط 4و5 اضافه می کنه.
پس بهترین راه حل برای اضافه کردن خط به آخر memo استفاده از Append هستش
memo1.lines.append

[Mahyaa]

کد add برای memo جایی استفاده میشه که بخواهیم در جای خاصی خط اضافه کنیم
یعنی اگه مکان نما بین خط 4 و 5 باشد خط ما را وسط خط 4و5 اضافه می کنه.
پس بهترین راه حل برای اضافه کردن خط به آخر memo استفاده از Append هستش
memo1.lines.append

اصلا درست نیست !!

اول اینکه Add و Append از متدهای کلاس TStrings هستند نه TMemo .
دوم اینکه هر دو متد یک خط به انتها اضافه میکنند و تفاوتشون در اینه که Add یک Integer رو به عنوان اندیس برمیگردونه و Append مقدار برگشتی نداره .

[Hamid_PaK]

مقادیر داخل Edit ها را به Memo انتقال بدهم

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
memo1.Text:=edit1.Text+edit2.Text+edit3.Text+edit4 .Text;
end;

یه راه ساده تر ...


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
memo1.Text := Format('%s / %s - %s + %s', [edit1.Text, edit2.Text, edit3.Text, edit4.Text]);
end;


یا حق ...