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;
Ошибка на четвертой снизу строке.
for i := 1 to TMemo1.Text do
Как вы себе представляете цикл "от одного до содержимого TMemo1" ?