количество символов

[StartMis]

У меня есть переменная допустим a:='Delphi'; каким образом можно посчитать количество символов переменной a.
Вопрос второй.
Как снять выделение с выбранного пункта в компоненте TreeView программно.

[Soviet_man]

Length(a) возвращает количество символов

[Roof]

Как снять выделение с выбранного пункта в компоненте TreeView программно.

Вот так

if Treeview1.Selected.Index=2  then   Treeview1.Selected.Selected:= false;

или так

if    Treeview1.Selected.Text= '5' then   Treeview1.Selected.Selected:= false;

[nooonname]

Сообщение от Soviet_man

Length(a) возвращает количество символов

а это не работает. Вот как у меня:

stroka:string;

процедура

var
a:integer;
begin
a:length(stroka);
Label1.Caption:=inttostr(a);
end;
end.

И почему не работает? Он показывает только 0 а символы не считает

from artemavd: код-то тегом я за тебя буду оформлять чтоли?

[artemavd]

procedure TForm1.btn1Click(Sender: TObject);
begin
 Form1.edt1.Text:=IntToStr(Length(Form1.lbl1.Caption));
end;