...Шифровалка...

[akazerg]

Прощу помощи от форумчан. а не от гугла Вообщем нужно что-то типо замены символов к примеру. Вводим текст в Memo1 нажимаем кнопку закодировать и начинает выполнятся функция замены символов что-то вроде?

PHP код:

<?php $str=str_replace("a","@", $str); ?>

только на delphi нужно. Заранее спасибо...

[Vova777]

не указанно, заменить символы на какую-то определенную кодировку или произвольно

...
str:= Memo1.Lines[i];
if str[j] = 'A' then str[j]:= 'B';
Memo1.Lines[i]:= str;
...

это нужно сделать в цикле.

[akazerg]

Ну мне что то типо того что я привел на php. Тоесть надо алфавит заменить на мои символы... Не просто чтобы они сами генерирывались! Свои символы я сам потом уже на delphi сделаю а пока давайте для примера будим кодировать всего 2 символа.

А @
Б &

[akazerg]

Спасибо я знаю что в цикле! Как же я не додумался до if ))) спасибо!

[Vova777]

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

А @
Б &

...
for i:= 0 to Memo1.Lines.Count do
  for j:= 0 to Length(Memo1.Lines[i]) do
    begin
      str:= Memo1.Lines[i];
      if str[j] = 'A' then str[j]:= '@';
      if str[j] = 'B' then str[j]:= '&';
      Memo1.Lines[i]:= str;
    end;
...

Вот начало, немного дописать и все.

[akazerg]

Эмм глупо наверно а j это что...

[akazerg]

А ссори все спасибо!

[Vova777]

i - это строка в Мемо
j - это символ в строке "i"