Программа считающая количество символов в строке.

[gor_ais]

Вот код программы, которая должна считать количество символов в строке. НО почему количество символов умножается на 2(т.е. если в поле Edit пишем слово "привет", то он показывает не 6, а 12 символов)?

procedure TForm1.Button1Click(Sender: TObject);
 begin
 Edit2.Text:=IntToStr(Length(Edit1.Text));
 end;

[Stilet]

Наверное потому что строка в юникоде. А там два байта на символ.

[Serge_Bliznykov]

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

Наверное потому что строка в юникоде. А там два байта на символ.

не, вряд ли.
Вот если бы автор вопроса сделал SizeOf(Edit1.Text), тогда да, размер одного символа в байтах имел бы значение.
А в данном случае Length(s) всегда возвращает длину строки в КОЛИЧЕСТВЕ СИМВОЛОВ, поэтому не зависит от одно- или много-байтной кодировки одного символа...

Включив телепатор, я подозреваю, что учитываются пробелы (скорее всего в конце Edit1.Text)

попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
 begin
 Edit2.Text:=IntToStr(Length(Trim(Edit1.Text)));
 end;

p.s. а ещё, никто не мешает Вам вывести в Edit2.text исходную строку, и ручками подсчитать в ней символы :

procedure TForm1.Button1Click(Sender: TObject);
 begin
   Edit2.Text:= 'Длина строки = '+IntToStr(Length(Edit1.Text))+' строка:'+Edit1.Text+'<<<<';
 end;

[northener]

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

Вот если бы автор вопроса сделал SizeOf(Edit1.Text), тогда да, размер одного символа в байтах имел бы значение.

Сильно сказано.

[Stilet]

если бы автор вопроса сделал SizeOf(Edit1.Text)

Да ну... Получил бы скорее всего 4, как размер указателя на свойство... Врядли SizeOf так сумел бы. А вот я за Length замечал казусы в строке с юникодом.