Строки в Delphi.

[Wise]

Задача: Дана строка, в которой содержится текст, включающий в себя как русские, так и английские слова. Подсчитать каких букв больше: русских или английских?
Подскажите пож., как именно определить и подсчитать кол-во английских/русских букв. Ну а в идеале помогите написать программу. Буду очень признателен, если поможете...

[Карась]

Просто тупо применить CASE.
Русские буквы в одну переменную, англ. в другую. Потом сравнить кол-во символов.

[Wise]

Спасибо. А можешь кинуть код, плиз.

[mihali4]

Коды английских букв <=127, а коды русских >127...
Вот и вся петрушка...

[Wise]

Эх.. Признаю своё полное нубство в Дельфи. Но у меня совершенно не получается.. Может кто-нибудь кинет исходник?

[mihali4]

Код буквы - Ord(буква)
Символ в тексте - Text[i]
Перебираем от первой до последней (это Length(текст)) и если ORD больше 127 - плюс 1 к русским, меньше (но больше 48, это код нуля) - плюс к английским...

[Sibedir]

...

const
  EngChar = ['A'..'Z', 'a'..'z'];
  RusChar = ['А'..'Я', 'а'..'я'];

...

procedure TForm1.Button1Click(Sender: TObject);
var
  i, e, r: Integer;
begin
  e := 0;
  r := 0;
  // Не забывайте, что, в отличии от других массивов, нумерация в строках начинается с 1
  for i := 1 to Length (Edit1.Text) do begin
    if Edit1.Text [i] in EngChar then Inc (e);
    if Edit1.Text [i] in RusChar then Inc (r);
  end;

  Label1.Caption := 'Английских символов - ' + IntToStr (e);
  Label2.Caption := 'Русских символов - ' + IntToStr (r);
end;

...

[Павлик]

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

...

const
  EngChar = ['A'..'Z', 'a'..'z'];
  RusChar = ['А'..'Я', 'а'..'я'];

...

procedure TForm1.Button1Click(Sender: TObject);
var
  i, e, r: Integer;
begin
  e := 0;
  r := 0;
  // Не забывайте, что, в отличии от других массивов, нумерация в строках начинается с 1
  for i := 1 to Length (Edit1.Text) do begin
    if Edit1.Text [i] in EngChar then Inc (e);
    if Edit1.Text [i] in RusChar then Inc (r);
  end;

  Label1.Caption := 'Английских символов - ' + IntToStr (e);
  Label2.Caption := 'Русских символов - ' + IntToStr (r);
end;

...

Уважаемый а как же "ё" и "Ё"?

[Sibedir]

Ё-маё!!!

const
  EngChar = ['A'..'Z', 'a'..'z'];
  RusChar = ['Ё', 'ё', 'А'..'Я', 'а'..'я'];

[Wise]

Премного благодарен.