delphi - 如何在Delphi中计算每个单词的长度？

Question

我是10年级IT专业的学生，​​所以对Delphi来说我还比较陌生。我需要制作一个程序，以接收来自编辑框的句子作为输入。单词数和每个单词的长度。我可以在句子中找到第一个空格的位置，但不知道如何找到每个空格。

有人可以帮忙吗？

Answer 1

这取决于您使用的是哪个版本的Delphi。以下是两种可能的解决方案：


所有的Delphi版本：

var input : string;
    aword : string;
    r: Integer;
    allowedchars : set of 'A'..'z';
begin
  allowedchars:=['A'..'z'];
  ListBox1.Clear;
  input:='This is my test sentence. Feel free to count words, or let it count!';
  for r := 1 to Length(input) do begin
    if(input[r] in allowedchars)then begin
      aword:=aword+input[r];
    end else begin
      if(length(aword)>0)then
      ListBox1.Items.Add(Format('%s: %d',[aword,Length(aword)]));
      aword:='';
    end;
  end;
end;

较新的Delphi版本，从XE3开始

var input : string;
    words : TArray<string>;
    aword : string;
begin
  ListBox1.Clear;
  //1. Use the Split Helper Method, from XE3 and newer Delphis
  input:='This is my test sentence. Feel free to count words, or let it count!';
  words:=input.Split(['.',';',',','!','?',' '],TStringSplitOptions.ExcludeEmpty);
  ListBox1.Items.Add(Format('Words: %d',[Length(words)]));
  for aword in words do begin
    ListBox1.Items.Add(Format('%s: %d',[aword,aword.Length]));
  end;
end;