عدد الأحرف في string ... كيف ؟

[Rover]

يمكنك أستخدام الحدث OnChange لذلك كمايلي:

PHP كود :

procedure TForm1.Edit1Change(Sender: TObject);
Var
Str:String;
begin
Str:= StringReplace(Edit1.text, ' ', '', [rfReplaceAll]);
Label1.Caption:= IntToStr(Length(Str));
end; 


بالتوفيق ..