各位前輩及版主大大：
不知道如何要使用String 類別，類似Memo1.Lines[x][y]，因為我想去統計文章內的字數，不知道是否能類似meno物件的操作方式，
但是以String 類別達成！

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

統計數字，中文字或英文字都算一個？那麼:
NumberWord := Length(aString);
不就可以嗎？

感謝您的回應！
但是我需要統計，整片文章的特定字元，所以需要一個字元字元，處理！

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

不是很懂你的意思？
以下有個範例，看看哪種是你要的？

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject); // Unicode的算法
var
aWide:WideString;
begin
aWide := WideString(Self.Label1.Caption);
ShowMessage(IntToStr(Length(aWide)));
end;

procedure TForm1.Button1Click(Sender: TObject); // 英文single byte，中文double byte的算法。
begin
ShowMessage(IntToStr(Length(Self.Label1.Caption)));
end;

end.