请教，我想从memo中一个字符一个字符的读取文字，该怎忙实现啊？

Question

如题,谢谢帮忙.

Answer 1

for I := 1 to Length(Memo1.Text) do
  Showmessage(Memo1.Text[I]);

Answer 2

回贴用时14秒!  ^_^
如果Memo中有汉字,并且不希望读换行符,就这样:procedure TForm1.Button1Click(Sender: TObject);
var
  I : integer;
  S : widestring;
begin
  S := WideString(StringReplace(Memo1.Text,#13#10,'',[rfReplaceAll]));
  for I := 1 to Length(S) do
     Showmessage(S[I]);
end;

Answer 3

在问2个问题,先不给分哈.解决下面2个再打分 哈哈
1.我想memo中某一行逐字读取,而不只是从第一行起
2.字符数组怎么转换成字符串.

Answer 4

1var
  I : integer;
  L : integer;//行数
  S : WideString;
begin
  L := 2; //第二行
  S := WideString(StringReplace(Memo1.Lines[L-1],#13#10,'',[rfReplaceAll]));
  for I := 1 to Length(S) do
    ShowMessage(S[I]);
end;

Answer 5

2 多种方法,下面是一种var
  A : array[0..3] of char;
  S : string;
begin
  FillChar(A, 4, 'a');
  A[3] := #0;
  S := StrPas(@A[0]);
  showmessage(s);
end;

Answer 6

再给你一种字符数组转为 string 的方法:var
  A : array[0..3] of char;
  S : string;
begin
  FillChar(A, 4, 'a'); //这是赋初值,我试验用的
  SetLength(S, Length(A));
  Move(A[0], S[1], 4);
  showmessage(s);
end;StrPCopy之类的函数估计也行, 我没用. 你自己研究吧