VPF::Что то не то с циклом - Форум программистов

JokeR.StR

Дата 11.3.2008, 14:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Код

const
a:array[1..33]of string =
('А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я');
b:array[1..33]of string =
('а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я');
c:array[1..33]of string =
('A','6','B','r','g','E','E','}|{','3','u','i','|<','JI','/\/\','H','0','TT','P','C','T','y','o|o','X','LL','4','III','LLL','b','b|','b','3','|-0','9|');
d:array[1..33]of string =
('a','6','B','r','g','e','e','>|<','3','u','i','K','/\','M','H','o','II','p','c','T','y','<|>','x','LL','4','III','LLL','b','b|','b','3','|-0','9|');



procedure TForm1.LabeledEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  i1,i2:integer;
  s1,s2:string;
begin
if key = 13 then begin
s2:='';
s1:=labelededit1.Text;
  for i1:=1 to length(s1) do begin
    for i2:=1 to 33 do begin
    if s1[i1]=a[i2] then s2:=s2+c[i2] else
    if s1[i1]=b[i2] then s2:=s2+d[i2] else
    s2:=s2+s1[i1];
    end;
  end;
labelededit2.Text:=s2;
end;
end;

А тперь попробуйте этот цикл, а если без строчки s2:=s2+s1[i1]; то работает но переводит только буквы а пробелы и символы переводить не будет! Помогите кто может! ((

Rodman

Дата 11.3.2008, 15:07 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

а при чем тут пробелы? их у тебя в "множествах" нету... следовательно они и учитываться не будут!

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

CRM с функцией АвтоОбзвона

Лотереи мира

JokeR.StR

Дата 11.3.2008, 15:11 (ссылка)

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

Загрузка ...

Новичок

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

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

ну вот именно если есть пробелы то они не будут вставленны в строку...... помоги!

Rodman

Дата 11.3.2008, 15:22 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

давай для начала сформулируй начальную задачу, а не то что у тебя не получается получить!

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

CRM с функцией АвтоОбзвона

Лотереи мира

VICTAR

Дата 11.3.2008, 16:40 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


procedure TForm1.LabeledEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  a: array['а'..'я'] of string =
  ('a', '6', 'B', 'r', 'g', 'e', '>|<', '3', 'u', 'i', 'K', '/\', 'M', 'H',
    'o', 'II', 'p', 'c', 'T', 'y', '<|>', 'x', 'LL', '4', 'III', 'LLL', 'b',
    'b|', 'b', '3', '|-0', '9|');
  b: array['А'..'Я'] of string =
  ('A', '6', 'B', 'r', 'g', 'E', '}|{', '3', 'u', 'i', '|<', 'JI', '/\/\',
    'H', '0', 'TT', 'P', 'C', 'T', 'y', 'o|o', 'X', 'LL', '4', 'III', 'LLL',
    'b', 'b|', 'b', '3', '|-0', '9|');

var
  i1: integer;
  s1, s2: string;
begin
  if key = 13 then
  begin
    s2 := '';
    s1 := labelededit1.Text;
    for i1 := 1 to length(s1) do
      case s1[i1] of
        'а'..'я': s2 := s2 + a[s1[i1]];
        'А'..'Я': s2 := s2 + b[s1[i1]];
      else
        s2 := s2 + s1[i1];
      end;
    labelededit2.Text := s2;
  end;
end;

Добавлено через 1 минуту и 9 секунд
ЗЫ пришлось пожертвовать буквой "ё"

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