[masterhex]

Здравствуйте, курсовая, суть такова:
Две текстовые области, ввод текста в первую область, вывод со второй.
В выводе заменяются определенные символы на другие символы заданные заранее.
Заранее извиняюсь если такая тема уже создавалась, я ее искал не нашел.
Буду очень благодарен за помощь или за ссылку на ранее созданную подобную тему.
Я джва года жду такую программу.

[NumLock]

Код:

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

[lmikle]

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

Код:

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

Ага, только на больших объемах текста эта штука работает очень медленно. Надо конкретно смотреть задачу. Если надо менять символы, то лучше пройти по строке, как по массиву. Если слова, то надо делать небольшой парсер.

Для символов. Пусть надо менять a на b и c на d:

Код:

function MyCharReplace(S : String) : String;
var
  I : Integer;
begn
  Result := S;
  For I := 1 To Length(S) Do
    Case S[i] Od
      'a' : S[i] := 'b';
      'c' : S[i] := 'd';
    End;
end;

Данный код работает только для замены одних символов на другие, если надо менять слова или менять на слова, то код будет другой.

[masterhex]

А если надо массово? т.е. массивный текст, и в нем поменять ВСЕ символы, например "к" на "в", "с" на "б"?

[masterhex]

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

Ага, только на больших объемах текста эта штука работает очень медленно. Надо конкретно смотреть задачу. Если надо менять символы, то лучше пройти по строке, как по массиву. Если слова, то надо делать небольшой парсер.

Для символов. Пусть надо менять a на b и c на d:

Код:

function MyCharReplace(S : String) : String;
var
  I : Integer;
begn
  Result := S;
  For I := 1 To Length(S) Do
    Case S[i] Od
      'a' : S[i] := 'b';
      'c' : S[i] := 'd';
    End;
end;

Данный код работает только для замены одних символов на другие, если надо менять слова или менять на слова, то код будет другой.

ох вон оно как... Вы меня опередили, спасибо! щас попробую

[masterhex]

Странно но ничего не меняет.
Стоп. А вот вы сказали что к словам не будет применено?
т.е. при замене "о" на "а"
слово "слово" не превратится в "слава" ??

[masterhex]

Код:

function MyCharReplace(S : String) : String;
var
  I : Integer;
begin
  Result := S;
  For I := 1 To Length(S) Do
    Case S[i] of
      'a' : S[i] := 'b';
      'c' : S[i] := 'd';

    End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
S1:=Memo1.Text;
S2:= MyCharReplace(S1);
Memo2.text:= S2;
end;

Вот, и не работает, и уточните пожалуйста все таки, будет ли он к примеру "слово" менять на "слава" если вставить
'o' : S[i] := 'a'; ?

[PhoeniX]

lmikle, чё-то ты фейланулся с функцией
Присвоение в функции исходной строке идёт, а не результирующей.

[masterhex]

Помогите пожалуйста

[Aristarh Dark]

Ну блин, вообще развели тему, программисты-[цензура].
В приложении пример проекта, ввод в левый мемо, вывод в правый. Буквы abcde заменяются на ABCDE соответственно.

[masterhex]

Вот это здорово, у меня слов нет! Спасибо большое!