delphi如何文本等字符长度分段？

Question

转化为WideString，然后根据长度计算，这样应该可以吧

Answer 1

先在表單(TForm)上放上 TListBox 與 TButton...然後編輯下面的代碼 :
procedure TForm1.Button1Click(Sender: TObject);
const
  str: String = 'abcdefghijklmnopqrstuvwxyz';
var
  I: Integer;
begin
  I := 0;
  ListBox1.Items.BeginUpdate;
  try
    ListBox1.Items.Clear;
    while I < High(str) do
    begin
      ListBox1.Items.Add(str.Substring(I, 4));
      Inc(I, 4);
    end;
  finally
    ListBox1.Items.EndUpdate;
  end;
end; 

Answer 2

剩餘字符不足的部份我已考量過! 對於編程的態度我是嚴謹的!
然而你研究過 Substring 函式原代碼了嗎? 其長度的判斷已內含無須多此一舉...編程這門領域不能憑估計得實作驗證過! 

Answer 3

剩餘字符不足的部份我已考量過! 對於編程的態度我是嚴謹的!
然而你研究過 Substring 函式原代碼了嗎? 其長度的判斷已內含無須多此一舉...編程這門領域不能憑估計得實作驗證過! 
我一直用Delphi7，这个应该是XE的截取函数，没用过！但是用过C#的，这种写是不行的，会报错！

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
const
  str: String = 'abcdefghijklmnopqrstuvwxyz';
var
  I: Integer;
  s:string;
begin
  I := 0;
  ListBox1.Items.BeginUpdate;
  try
    ListBox1.Items.Clear;
    s:='1234';
    while length(s)=4 do
    begin
      s:=copy(str,I-3, 4);
      if s='' then
        break;
      ListBox1.Items.Add(s);
      Inc(I, 4);
    end;
  finally
    ListBox1.Items.EndUpdate;
  end;
end;

Answer 5

剩餘字符不足的部份我已考量過! 對於編程的態度我是嚴謹的!
然而你研究過 Substring 函式原代碼了嗎? 其長度的判斷已內含無須多此一舉...編程這門領域不能憑估計得實作驗證過! 
我一直用Delphi7，这个应该是XE的截取函数，没用过！但是用过C#的，这种写是不行的，会报错！
啥是因該是? 若自己不清楚或不確定就別不懂裝懂...此截取函式 Substring 在 Delphi7 也有...且 Delphi 與 C# 為不同編程語言...各有不同主張與定義...怎能拿來相提並論呢?

Answer 6

剩餘字符不足的部份我已考量過! 對於編程的態度我是嚴謹的!
然而你研究過 Substring 函式原代碼了嗎? 其長度的判斷已內含無須多此一舉...編程這門領域不能憑估計得實作驗證過! 
我一直用Delphi7，这个应该是XE的截取函数，没用过！但是用过C#的，这种写是不行的，会报错！
啥是因該是? 若自己不清楚或不確定就別不懂裝懂...此截取函式 Substring 在 Delphi7 也有...且 Delphi 與 C# 為不同編程語言...各有不同主張與定義...怎能拿來相提並論呢?
唉！我不懂装懂了！您老人家是高手，楼主要是能改分都给这位严谨的高手吧！我无所谓，只是顺嘴一说！这事还得罪人！真是无妄之灾！

Answer 7

剩餘字符不足的部份我已考量過! 對於編程的態度我是嚴謹的!
然而你研究過 Substring 函式原代碼了嗎? 其長度的判斷已內含無須多此一舉...編程這門領域不能憑估計得實作驗證過! 
我一直用Delphi7，这个应该是XE的截取函数，没用过！但是用过C#的，这种写是不行的，会报错！
啥是因該是? 若自己不清楚或不確定就別不懂裝懂...此截取函式 Substring 在 Delphi7 也有...且 Delphi 與 C# 為不同編程語言...各有不同主張與定義...怎能拿來相提並論呢?
唉！我不懂装懂了！您老人家是高手，楼主要是能改分都给这位严谨的高手吧！我无所谓，只是顺嘴一说！这事还得罪人！真是无妄之灾！
學海無涯.學無止境...何來高手? 此技術論壇分數又不能換銀彈...你真認為我會在意? 究因論果...在未經證實而亂下定論...除了容易犯口舌得罪人...還會給人看笑話而瞧不起...怎是無妄之災呢? 我不會和你計較...只希望你能記取經驗!