1
var Bukavkes: array [32..255] of integer;

procedure ShowResults(Memo: TMemo);
 var i: integer;
begin
 for i := Low(Bukavkes) to High(Bukavkes) do
 if Chr(i) in ['A'..'z', 'À'..'ÿ', '0'..'9', ' '] then
 Memo.Lines.Add(Chr(i) + ': ' + IntToStr(Bukavkes[i]));
end;

procedure TForm1.FormCreate(Sender: TObject);
 var i: integer;
begin
 for i := Low(Bukavkes) to High(Bukavkes) do Bukavkes[i] := 0;
end;

procedure TForm1.btn1Click(Sender: TObject);
 var i: integer;
begin
 for i := 1 to TMemo1.Text do
 if Ord(TMemo1.Text[i]) >= 32 then inc(Bukavkes[Ord(TMemo1.Text[i])]);
 ShowResults(TMemo2);
end;

Ошибка на четвертой снизу строке.

5
  • 3
    > for i := 1 to TMemo1.Text do Как вы себе представляете цикл "от одного до содержимого TMemo1" ?
    – Nofate
    28 мая 2014 в 12:59
  • интересно, чем ТС умудрился так слить свою карму, учитывая, что задал он лишь три вопроса?
    – DreamChild
    28 мая 2014 в 13:01
  • @DreamChild, тревоги сразу много сливают.
    – Nofate
    28 мая 2014 в 13:05
  • я знаю, но я специально сейчас посмотрел - его никто не "тревожил" вроде
    – DreamChild
    28 мая 2014 в 13:07
  • @DreamChild, там удаленные вопросы в массе. 28 мая 2014 в 13:11

1 ответ 1

5

Не TMemo1, а Memo1... Надо так:

procedure TForm1.btn1Click(Sender: TObject);
  var i: integer;
begin
  for i := 1 to Length(Memo1.Text) do
    if Ord(Memo1.Text[i]) >= 32 then inc(Bukavkes[Ord(Memo1.Text[i])]);
  ShowResults(Memo2);
end;
3
  • Спасибо! Корректнее работает если Length(Memo1.Text) не -1 а +1 28 мая 2014 в 15:23
  • 1
    @Yura Ivanov for i := 1 to Length(Memo1.Text) do Символы в строке от 1 нумеруются же! 29 мая 2014 в 6:20
  • 1
    @kot-da-vinci, зарапортовался. да. спасибо, поправил. 29 мая 2014 в 9:08

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.