[MegaMozg]

Задача: с ведёноготекста в edit1.text подсчитать кол-во букв и вывести их на второй едит...пример:
weter water volodya

и вывод:

w-2 e-3 и.т.д...

Заранее благодарен...

[NIch]

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

Задача: с ведёноготекста в edit1.text подсчитать кол-во букв и вывести их на второй едит...пример:
weter water volodya

и вывод:

w-2 e-3 и.т.д...

Заранее благодарен...

Ух как поработать, то хочется)))
Или в работу или задавай конкретный вопрос...

[TOJluK]

Создай массив нужного размера, в цикле пробегай по строке, там же используй структуру case и наращивай нужный элемнт массива на единицу, потом пробегайся по массиву и выводи результат. Может есть более адекватный способ, но это первое что пришло в голову.

[NIch]

Очередной студент, который хочет все и "нашару")))
Ему нужен не алгоритм, а исходник...ИМХО...

[MegaMozg]

procedure TForm1.Button1Click(Sender: TObject);
begin
N := 0;
K := 0;
strA := Edit1.Text;
//strB := Edit2.Text;
//While N < Length(Edit1.Text) Do
for n:=1 to 500 do
begin
//N := N + 1;
strM:=Copy(Edit1.Text,N,1);
If strM = 'w' Then
begin
K:=K+1;
edit2.text:= edit2.text+'w- '+IntToStr(K);
end;
//q
If strM = 'q' Then
begin
K:=K+1;
edit2.text:= edit2.text+('q- '+IntToStr(K));
end;
end;
end;

Как убратьиз цикла?