আমি কীভাবে ডেলফির একটি স্ট্রিংয়ে একটি নতুন লাইন চরিত্রটি অন্তর্ভুক্ত করব?


97

আমি একটি স্ট্রিং তৈরি করতে চাই যা একটি লেবেল ক্যাপশন সম্পত্তি হিসাবে বরাদ্দ করতে একাধিক লাইন ছড়িয়ে দেয়। এটি কীভাবে ডেলফিতে করা হয়?

উত্তর:


174

সিস্টেম.পাসে (যা স্বয়ংক্রিয়ভাবে ব্যবহৃত হয়) নিম্নলিখিত সংজ্ঞা দেওয়া হয়:

const
  sLineBreak = {$IFDEF LINUX} AnsiChar(#10) {$ENDIF} 
               {$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF};

এটি ডেলফি ২০০৯-এর (আনসিচর এবং আনসিস্ট্রিংয়ের ব্যবহার লক্ষ্য করুন)। (লাইন মোড়ক আমার দ্বারা যোগ করা হয়েছে।)

সুতরাং আপনি যদি নিজের টিএবেল মোড়ানো করতে চান তবে নিশ্চিত করুন যে অটোসাইজটি সত্য হয়ে গেছে এবং নীচের কোডটি ব্যবহার করুন:

label1.Caption := 'Line one'+sLineBreak+'Line two';

SLineBreak প্রবর্তিত হওয়ার পর থেকে ডেলফির সমস্ত সংস্করণে কাজ করে যা আমি বিশ্বাস করি যে ডেলফি 6।




8

অথবা আপনি ^ M + ^ J শর্টকাটও ব্যবহার করতে পারেন। পছন্দসই বিষয়। "CTRL-CHAR" কোডগুলি অনুবাদক দ্বারা অনুবাদ করেছেন।

MyString := 'Hello,' + ^M + ^J + 'world!';

আপনি + এম এবং ^ জে এর মধ্যে দূরে নিতে পারেন, তবে তারপরে আপনি সংকলক দ্বারা একটি সতর্কতা পাবেন (তবে এটি এখনও সূক্ষ্ম সংকলন করবে)।


7

পাশে, একটি কৌশল যা কার্যকর হতে পারে:
আপনি যদি আপনার একাধিক স্ট্রিং টিএসআরটিংগুলিতে ধরে রাখেন তবে আপনাকে কেবল নীচের উদাহরণের মতো টিএসআরটিংসের পাঠ্য বৈশিষ্ট্যটি ব্যবহার করতে হবে।

Label1.Caption := Memo1.Lines.Text;

এবং আপনি আপনার মাল্টি-লাইন লেবেল পাবেন ...


3
var
  stlst: TStringList;
begin
  Label1.Caption := 'Hello,'+sLineBreak+'world!';

  Label2.Caption := 'Hello,'#13#10'world!';

  Label3.Caption := 'Hello,' + chr(13) + chr(10) + 'world!';

  stlst := TStringList.Create;
  stlst.Add('Hello,');
  stlst.Add('world!');
  Label4.Caption := stlst.Text;

  Label5.WordWrap := True; //Multi-line Caption
  Label5.Caption := 'Hello,'^M^J'world!';

  Label6.Caption := AdjustLineBreaks('Hello,'#10'world!');
  {http://delphi.about.com/library/rtl/blrtlAdjustLineBreaks.htm}
end;



0

হাতে দেওয়ার জন্য আমার কাছে ডেলফির একটি অনুলিপি নেই, তবে আমি সত্যই নিশ্চিত যে আপনি যদি ওয়ার্ড র‌্যাপের সম্পত্তিটিকে সত্যে সেট করে থাকেন এবং অটোসাইজ সম্পত্তিটি মিথ্যাতে সেট করে থাকেন তবে আপনি যে লেবেলটি আকারে রেখেছেন তাতে কোনও পাঠ্য মোড়ানো উচিত। আপনি যদি কোনও নির্দিষ্ট জায়গায় ব্রেক লাইন করতে চান তবে উপরের সেটিংসটি সেট করে যদি কোনও পাঠ্য সম্পাদক থেকে পেস্ট করেন তবে এটি কাজ করতে পারে

আশাকরি এটা সাহায্য করবে.


-2

কখনও কখনও আমি আমার কোড স্পেসটি বিশৃঙ্খল করতে চাই না, বিশেষত একটি স্ট্যাটিক লেবেলের জন্য। কেবলমাত্র এটি ফর্মের সাথে সংজ্ঞায়িত করতে, ফর্মের লেবেল পাঠ্য প্রবেশ করুন, তারপরে একই ফর্মের যে কোনও জায়গায় ডান ক্লিক করুন। "পাঠ্য হিসাবে দেখুন" চয়ন করুন। আপনি এখন নকশা করা সমস্ত বস্তু দেখতে পাবেন তবে কেবল পাঠ্য হিসাবে। নীচে স্ক্রোল করুন বা আপনার পাঠ্যের জন্য অনুসন্ধান করুন। আপনি এটি সন্ধান করলে ক্যাপশনটি সম্পাদনা করুন, তাই দেখে মনে হচ্ছে এটির মতো:

ক্যাপশন = 'লাইন 1' # 13'লাইন 2 '# 13'লাইন 3'

# 13 এর অর্থ অর্ডিনাল 13, বা গাড়ীর ফেরতের জন্য এসকিআই। সিআর (13) একই ধারণা, সিএইচআর () সংখ্যাটি একটি সাধারণ আকারে পরিবর্তন করে।

নোট করুন যে দেলফির এই বিশেষ দিকটিতে কোনও আধা-কোলন নেই এবং ":" "এর পরিবর্তে" = "ব্যবহৃত হয়। প্রতিটি লাইনের পাঠ্য একক উদ্ধৃতিতে আবদ্ধ।

আপনার কাজ শেষ হয়ে গেলে, আবার একবার ডান ক্লিক করুন এবং "ফর্ম হিসাবে দেখুন" নির্বাচন করুন। আপনি এখন যেকোন বিন্যাস করতে পারেন যেমন গা bold়, ডান ন্যায়সঙ্গত, ইত্যাদি form

আমি একাধিক পরিবর্তনের জন্য "পাঠ্য হিসাবে দেখুন" ব্যবহার করি যেখানে আমি কেবল স্ক্রোল করতে এবং প্রতিস্থাপন ইত্যাদি করতে চাই Quick

ডেভ


গৃহীত উত্তরটি বিন্দুতে সরাসরি, যেমন প্রশ্ন। এই উত্তর, বিপরীতে, জিজ্ঞাসিত চেয়ে আরও যোগ; আরও খারাপ: খুব পরিষ্কার ভাবে নয়।
রানিয়েরিবট

-2
 private
   { Private declarations }
   {declare a variable like this}
   NewLine : string; // ok
  // in next event handler assign a value to that variable (NewLine)
  // like the code down
procedure TMainForm.FormCreate(Sender: TObject);
begin`enter code here`
  NewLine := #10;
 {Next Code To show NewLine In action}
  //ShowMessage('Hello to programming with Delphi' + NewLine + 'Print New Lin now !!!!');
end;

দয়া করে আপনার কোডটি ফর্ম্যাট করুন এবং এটি কীভাবে সমস্যার সমাধান করে তার কিছু বিবরণ যুক্ত করুন।
ব্লাস্টফর্নেস
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.