VPF::Нет доступа к массиву - Форум программистов

Firex

Дата 5.9.2011, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 20.10.2010

Репутация: нет
Всего: нет

Для начала код:

Код


function TForm1.CharChange(s:string):string;
const
Table1='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
Table2:array[1..52] of string=('а','б','ц','д','е','ф','г','х','и','дж','к','л','м','н','о','п','кю','р','с','т','у','в','в','кс','й','з','А','Б','Ц','Д','Е','Ф','Г','Х','И','Дж','К','Л','М','Н','О','П','Кю','Р','С','Т','У','В','В','Кс','Й','З');
var
strinch:string;
i:integer;
begin
strinch:='';
for i:=0 to Length(s) do begin
if Pos(s[i],Table1)>0 then strinch:=strinch+Table2[Pos(s[i],Table1)] else strinch:=strinch+s[i];
end;
Result:=strinch;
end;

Проблема такая, в переменную Result ничего не поступает. Переменная strinch так же пуста. Результат от Pos(s[i],Table1) как и требуется, всегда указывает на символ. А вот Table2[Pos(s[i],Table1] не могу получить, хоть убей не пойму что за беда. Почему нет доступа к этому массиву?

З.ы. функция меняет английские буквы на их русское написание(что-то вроде транслита).

Если вот так: strinch:=Table2[Pos(s[i],Table1)], то по одному символу поступает... впорос, почему не хочет конкатенировать строки?

Это сообщение отредактировал(а) Firex - 5.9.2011, 18:03

bems

Дата 5.9.2011, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

для начала: индексация символов в строке в дельфи с единицы

--------------------

Обижено школьников: 8

Firex

Дата 5.9.2011, 19:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 20.10.2010

Репутация: нет
Всего: нет

Спасибо огромное, глупейший недочёт, заработало!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »