如何读取memo 中的一个个单词中的字母?

Question

如何读取memo 中的一个个单词中的字母?我要做个词法分析程序,因而需要进行对各个单词中的字母进行统计,请问高手代码应该如何写

Answer 1

把memo的内容放进一个字符串，然后一个字符一个字符的取出。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  tempstr: string;
  i: integer;
  Str: String;
  List: TStringList;
  Word: array of String;
begin
  List := TStringList.Create;
  Str := 'GARNETT KOBE IVERSON';
  i := pos(' ',Str);
  while i > 0 do
  begin
    Tempstr := copy(Str,1,i-1);
    list.Add(tempstr);
    delete(Str,1,i);
    i := pos(' ',Str);
  end;
  list.Add(Str);
  SetLenght(Word,List.Count-1);
  for j:=0 to List.Count-1 do
  being
  Word[j] := List.Strings[j].text
  end;
end;