14-07-2009, 09:03 AM
جزاك الله خيراً أخي , لكن الكود يجب أن يكون بالشكل التالي (حيث انك لم تعين قيمة المتغير Len المبدئية) :
كود :
var
i, Len: Integer;
begin
Len := 0 ;
for i := 0 to RichEdit1.GetTextLen do
if UpCase(RichEdit1.Text[i]) in ['A'..'Z'] then
Inc(Len);
ShowMessage(IntToStr(Len));