[serega6531]

У меня есть строка и массив:

Код:

Word:string;
symbols:array['a'..'z'] of string;

Строка - один символ. Как найти, какое место эта строка занимает в массиве. Т.е должно получиться:
Введите символ:
d
Символ 'd' занимает 4 место в массиве.

[Alegun]

Код:

function rs(ds:char): integer;
var
 с: char;
 i: integer;
begin
 i:= 1;
 for c:= 'a' to 'z' do
  if c = ds then Result:= i 
  else inc(i);
  end;

[serega6531]

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

Код:

function rs(ds:char): integer;
var
 с: char;
 i: integer;
begin
 i:= 1;
 for c:= 'a' to 'z' do
  if c = ds then Result:= i 
  else inc(i);
  end;

Спасибо, хотя не совсем то что нужно.

[YVitaliy]

Возможно тебе нужна ф-ция типа Ord('символ') - возвращает позицию символа в ASCII table.

Код:

  pos:=ord('символ')-ord('a');

если

symbols:array['a'..'z'] of string

- массив от 'a'до 'z'. Тогда word будет типа

Код:

Word:Char;

Иначе перебором, как Alegun, но чуть-чуть по-другому:

Код:

function rs(ds:string): integer;
var
 с: char;
 i: integer;
begin
 i:= 1;
 for c:= 'a' to 'z' do
  if symbols[c] = ds then 
   begin
    result:=i;
    break;
  end else inc(i);
  end;

[NumLock]

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

Символ 'd' занимает 4 место в массиве.

Код:

function CharPos(c: Char): Integer;
begin
  Result:=Ord(c)-96;
end;

[serega6531]

А как сделать перевод из одного массива в другой?
Т.е один массив - ['a'..'z'], второй - ['A'..'Z'], вводим n, выдаётся N.
Мне не надо переводить в верхний регистр, я просто для примера.

[NumLock]

массив не нужен.

Код:

function UpperCase(const S: string): string;

[serega6531]

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

массив не нужен.

Код:

function UpperCase(const S: string): string;

Прочитай жирный шрифт выше.

[YVitaliy]

Я так понял, это "новый" способ шифрования строк в разработке?
В этом случае второй массив ['A'..'Z'] не подойдет.

[serega6531]

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

Я так понял, это "новый" способ шифрования строк в разработке?
В этом случае второй массив ['A'..'Z'] не подойдет.

Не совсем. И всё же какое решение?

[NumLock]

найти индекс символа в первом массиве и подставить его во второй так трудно?

[serega6531]

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

найти индекс символа в первом массиве и подставить его во второй так трудно?

Как именно его найти?

[poli-smen]

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

Как именно его найти?

В цикле естественно:

Код:

var
  i: Char;
begin
  for i := Low(symbols) to High(symbols) do
  begin
    if symbols[i] = Word[1] then ShowMessage(symbols2[i]); // Ура! Нашли!
.....