Подсчет символов

[xRamzeSx]

Привет всем. Вопрос довольно простой и глупый, все же:

Есть 2 эдита, нужно посчитать количество символов введенных в 1-й и значение вывести во 2-й.

[Serge_Bliznykov]

О! а что есть "количество символов" по вашему?
Если любых символов (включая пробелы), то их количество == длине строки:

Edit2.Text := IntToStr( Length(Edit1.Text));

[xRamzeSx]

Спасибо. Тему можно закрыть)

[s-andriano]

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

Edit2.Text := IntToStr( Length(Edit1.Text));

Решение не удовлетворяет условию задачи, т.к. отсутствует собственно сам подсчет.

[Larboss]

Решение не удовлетворяет условию задачи, т.к. отсутствует собственно сам подсчет.

function Accum():integer; // Calculate count of symbols, version 1.00
Var i, count:integer;
begin
  count:=0;
  for i:=0 to length(edit1.text)-1 begin
  count:=count+1;
  end;
  result:=count;
end;

Вот теперь подсчитывает

[Аватар]

Решение не удовлетворяет условию задачи, т.к. отсутствует собственно сам подсчет

А чем Length не подсчет? В условии не оговорен способ подсчета

[s-andriano]

Сообщение от Аватар

А чем Length не подсчет? В условии не оговорен способ подсчета

Подсчет - когда пересчитывают.
Получение информации само по себе не является подсчетом, хотя подсчет может использоваться как способ получения информации.

Другими словами, не каждый человек - программист.

[eoln]

Буквоедство.