37. Особенности создания простейшего web-браузера.

namespace lab_WebBrowser

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

webBrowser1.Navigate(comboBox1.Text);

button4.Enabled = true;

}

private void button2_Click(object sender, EventArgs e)

{

if (webBrowser1.CanGoBack) webBrowser1.GoBack();

}

private void button3_Click(object sender, EventArgs e)

{

if (webBrowser1.CanGoForward) webBrowser1.GoForward();

}

private void webBrowser1_DocumentCompleted(object sender,

WebBrowserDocumentCompletedEventArgs e)

{

if (comboBox1.Items.IndexOf(webBrowser1.Url.ToString())==-1)

comboBox1.Items.Add(webBrowser1.Url.ToString());

comboBox1.Text = webBrowser1.Url.ToString();

}

private void button4_Click(object sender, EventArgs e)

{

listBox1.Items.Add(webBrowser1.Url.ToString());

}

private void listBox1_DoubleClick(object sender, EventArgs e)

{

webBrowser1.Navigate(button4.Text = listBox1.SelectedItem.ToString());

}

4

}

}

В тексте определить количество гласных букв в самом длинном слове.

procedure TForm1.Button1Click(Sender: TObject);

const

//Множество разделителей слов.

D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];

//Множество гласных букв.

Da = [

//Русские гласные буквы.

'А', 'Я', 'О', 'Ё', 'Ы', 'И', 'Э', 'Е', 'У', 'Ю',

'а', 'я', 'о', 'ё', 'ы', 'и', 'э', 'е', 'у', 'ю',

//Гласные буквы латиницы.

'A', 'E', 'I', 'O', 'U', 'Y',

'a', 'e', 'i', 'o', 'u', 'y'

];

var

S : String;

i, Len, LenW, LenM, PosM, CntM : Integer;

begin

//Исходный текст.

S := Memo1.Text;

Len := Length(S);

LenW := 0; //Длина очередного слова.

LenM := 0; //Длина самого длинного слова.

PosM := 0; //Позиция конца первого из самых длинных слов.

for i := 1 to Len do begin

//Пропускаем разделители.

if S[i] in D then Continue;

//Учитываем очередной символ в длине слова.

Inc(LenW);

//Отслеживаем конец слова.

if (i = Len) or (S[i + 1] in D) then begin

//Если текущее слово длиннее текущего самого длинного, то текущее слово

//становится текущим самым длинным.

if LenW > LenM then begin

LenM := LenW;

PosM := i;

end;

LenW := 0;

end;

end;

//Количество гласных букв в первом самом длинном слове.

CntM := 0;

//Перебор букв в первом самом длинном слове и подсчёт количества гласных букв.

for i := PosM downto PosM - LenM + 1 do

if S[i] in Da then Inc(CntM);

//Ответ.

if PosM > 0 then

ShowMessage('Первое из самых длинных слов: "'

+ Copy(S, PosM - LenM + 1, LenM) + '", количество гласных: ' + IntToStr(CntM))

else

ShowMessage('В тексте нет слов.');

end;

42