Запара с шифровкой=(

[Wu-Kid]

Здравствуйте! Ребята профессионалы, помогите чем сможете пожалуйста! При выполнении своей дипломной у меня возникла проблемка, а именно с шифровкой. Проблема заключается в том, что не хочет шифровать буковку "А" в моем тексте для шифровки. Т.е. весь текст до буквы "а" шифрует, а дальше обрывается... Так же смущает что шифрованный текст пишет капсом, но то не такая проблема. Программу я вложил ниже, заранее спасибо!

[Armorer]

Какие у вас предположения почему не работает?

В коде фарш, прочитайте, оформите нормально.

[Wu-Kid]

Я конечно понимаю что там может быть не все так как в лучших программах программистов, но я не думаю что бы из-за порядка написания функций возникла вот такая вот проблема с буквой "а". Спасибо за материальчик, буду рыться глубже.

[Armorer]

но я не думаю что бы из-за порядка написания функций возникла вот такая вот проблема с буквой "а".

Оформлять код необходимо чтобы его было удобно читать. Если код будет такой как сейчас, то вероятность того что кто-то захочет его разбирать и икать ошибку низкая.

[Wu-Kid]

Понятно.Спасибо, исправлюсь.

[Человек_Борща]

Armorer, а Ctrl+D гордость нажать не позволяет?
ТС,
Теперь должно нормально работать.

procedure TForm1.Button1Click(Sender: TObject);
var
  obr: string;
  gr: integer;
begin
  if memo1.Text = '' then
  begin
    Timer1.Enabled := True;
    showmessage('Введите текст для шифровки');
    abort;
  end;
  if edit1.Text = '' then
  begin
    showmessage('Введите текст ключа');
    abort;
  end;
  memo1.Text := StringReplace(Memo1.Text, 'ё', 'е', [rfReplaceAll]);
  memo1.Text := StringReplace(Memo1.Text, 'Ё', 'Е', [rfReplaceAll]);
  memo2.Text := Viz_Crypt(memo1.Text, edit1.Text);
  obr := memo2.text;
  gr := 1;
  while gr < length(obr) do
  begin
    gr := gr + 7;
    insert(' ', obr, gr);
  end;
  memo2.Text := ansiuppercase(obr);
  Timer1.Enabled := False;
  ShowMessage('Код выполнялся (мс): ' + IntToStr(i));
end;

Лень разбираться что и как работает.
Скиньте поверочный результат, т.е.
Текст для шифрования, код шифрования, и каким должен быть правильный результат

И время работы кода измеряет по другому:

var
  tStart, tEnd: DWORD;

begin
  tStart := GetTickCount;
  {
  <Код, время работы которого измеряется>
  }
  tEnd := GetTickCount - tStart;
end;

Таймер чуть ли не на секунду опаздывает.

[Wu-Kid]

Простите, но что дает нажатие Ctrl+D я так и не понял... А на счет проблемы, то она так и осталась=( Спасибо большое за отклик, будем переписывать код по строчке пока не выявлю причину проблемы. Ещё раз спасибо за отзывчивость!

[BDA]

что дает нажатие Ctrl+D я так и не понял

В Delphi, начиная с 2010 (может быть и раньше, не знаю точно), приводит к автоматическому форматированию кода.

[Armorer]

Сообщение от Человек_Борща

Armorer, а Ctrl+D гордость нажать не позволяет?

Автоматическое форматирование, к сожалению, не заменяет ручного, например, оно не расставит переводы строк, чтобы логически отделить части метода, не исправит регистр у стандартных функций (ansiuppercase на AnsiUpperCase), а при некоторых конструкциях вообще форматирует неправильно (D2010, не связанно с настройками). Это не говоря о том что исходник можно не в delphi просматривать. Поэтому полезнее объяснить зачем форматировать код, чем молча нажимать ctrl+d.