В паскальABC работает, а в делфи 7 выходит ошибка. Как исправить?

Question

[недопрогер]

function IsVowel(var ch:char):boolean;
const len = 10;
var
  arr: array[1..10] of char = ('А', 'У', 'О', 'Ы', 'И', 'Е', 'Ё', 'Я', 'Ю', 'Э');
	i: integer;
begin
	IsVowel := false;
	for i := 1 to len do
		if arr[i] = ch THEN
			IsVowel := true
end;

[Error] Project2.dpr(16): Cannot initialize local variables

Comments

[SagePtr]

function IsVowel(var ch:char):boolean;
begin
  result := ch in ['А', 'У', 'О', ...., 'Э'];
end;

И не мучайся

Answer 1

[Stockholm Syndrome]

локальные переменные нельзя сразу инициализировать (можно, начиная с Delphi 10.3 Rio (инлайн переменные))
так как элементы массива не изменяются, то можно сделать константу

const arr: array[1..10] of string = ('А', 'У', 'О', 'Ы', 'И', 'Е', 'Ё', 'Я', 'Ю', 'Э');

P.S. а вообще да, лучше сделать, как SagePtr посоветовал

Comments

[недопрогер]

тогда получается вот так
[Error] Project2.dpr(19): Identifier expected but 'CONST' found
[Error] Project2.dpr(20): '=' expected but ';' found
[Error] Project2.dpr(23): For loop control variable must be simple local variable
[Error] Project2.dpr(23): Left side cannot be assigned to

[Stockholm Syndrome]

temirlan_official, скиньте ваш код в этом случае

[недопрогер]

Stockholm Syndrome, function IsVowel(var ch:char):boolean;

const len = 10;
//const integer len = 10;
var

//arr: array[1..10] of string = ('À', 'Ó', 'Î', 'Û', 'È', 'Å', '¨', 'ß', 'Þ', 'Ý');
//arr: array[1..10] of char = ('À', 'Ó', 'Î', 'Û', 'È', 'Å', '¨', 'ß', 'Þ', 'Ý');
const arr: array[1..10] of string = ('À', 'Ó', 'Î', 'Û', 'È', 'Å', '¨', 'ß', 'Þ', 'Ý');
i: integer;
begin
IsVowel := false;
for i := 1 to len do
if arr[i] = ch THEN
IsVowel := true
end;

[Stockholm Syndrome]

temirlan_official, у вас синтаксическая ошибка, const идёт сразу после var, а в разделе var нет ни одного объявления
попробуйте так

const 
  len = 10;
  arr: array[1..10] of string = ('À', 'Ó', 'Î', 'Û', 'È', 'Å', '¨', 'ß', 'Þ', 'Ý');
var
  i: integer;
begin
  // ...
end;

[недопрогер]

@StockholmSyndrome, вот это выходит

[недопрогер]

Stockholm Syndrome, и еще так становится

[Stockholm Syndrome]

temirlan_official, это вообще кусок другого кода, не связанный с этим вопросом, у вас функция IsVowel-то работает?
если да, то можно закрывать вопрос и отмечать ответ решением, и далее уже задавать новый вопрос, связанный с другим куском кода

[недопрогер]

Stockholm Syndrome, я не знаю. программа не работает и панель, в которую выписывались ошибки, исчезла.

[Stockholm Syndrome]

temirlan_official, вы сами этот код писали или взяли откуда-то? если сами, то вы должны уметь отлаживать программу, например, с помощью breakpoint'ов

[недопрогер]

Stockholm Syndrome, я писал её часть. но не в делфи7. проверил функцию. работает.

[Stockholm Syndrome]

temirlan_official, тогда стоит отметить ответ решением, чтобы закрыть вопрос

Answer 2

[Константин Цветков]

function IsVowel(var ch:char):boolean;
begin
  Result := Pos( ch, 'АУОЫИЕЁЯЮЭ') > 0
end;