如何逐个读取memo里的字符?

Question

我要将memo里的内容格式化,必需对每个字符进行操作!!

Answer 1

var
  i,j: integer;
  s: string;
begin
  for i := 0 to memo1.Lines.Count  - 1 do
  begin
    s := memo1.Lines.Strings[i];
    for j := 1 to length(sSql) do
      c := char(s[j]);
      //
  end;

Answer 2

var
  i,j: integer;
  s: string;
begin
  for i := 0 to memo1.Lines.Count  - 1 do
  begin
    s := memo1.Lines.Strings[i];
    for j := 1 to length(s) do
      c := char(s[j]);
      //
  end;里面可能含有回车换行

Answer 3

 c := char(s[j]) 作用是????

Answer 4

c := s[j]; 这样就可以了，这就是第j个字符
不过如果有中文的话，楼主还是用widestring，widechar吧