Edit
Народ, подскажите пожалуйста как можно сделать так, чтобы при вводе
в Edit и нажатии кнопки
происходил подсчет пробелов и в месаге выводилось самое большое значение!
Заранее спасибо.
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Привет Саня,
Wednesday, December 24, 2003, 3:47:46 PM, Вы писали:
Смысл сводится к тому, чтобы при нажатии кнопки у тебя строка из edita
переписывается во временную строку, с которой ты и будешь работать
(так проше!!! не придется писать edit1.text каждый раз). Эта строка у
тебя будет проходить в цикле по каждому символу и сравниваться с
пробелом. Если символ ему равен, то срабатывает счетчик!!! А потом
выводишь количество в мессагу!!!
Вот простой код на нажатие кнопки:
procedure TForm1.Button1Click(Sender: TObject);
Var tempstr:string;
i,j:integer;
begin
j:=0;
tempstr:=edit1.text;
for i:=0 to length(tempstr) do
if tempstr[i]=' ' then j:=j+1;
ShowMessage('Всего '+inttostr(j)+' пробелов!!!')
end;