Как в мемо заменить все буквы "а"?

[jeki0]

У меня возникла необходимость сделать так.
Вообщем есть мемо и в мемо есть текст там любые предложения и оно не постоянное. При нажатии на кнопку мне надо чтобы все буквы "а" в мемо заменились на число допустим "5". Вообщем подскажите мне или если вам не трудно дайте готовый код.

[Sibedir]

var
  i: Integer;
  s: String;
begin
  s := Memo1.Text;
  while True do begin
    i := Pos ('а', s);
    if i = 0 then
      Break
    else
      s[i] := '5';
  end;
  Memo1.Text := s;
end;

[jeki0]

Спасибо! Пойду пробывать!

[Stilet]

Будьте проще,господа:

With Memo1.Lines do Text:=StringReplace(Text,'a','5',[rfreplaceall]);

[phomm]

Могу добавить, что можно ещё проще ) в мемо весь тескт доступен по tmemo.text;
сам на днях проверял, и, хотя это свойство унаследовано аж от Tcontrol, но справка говорит что для мемов и эдитов текст - он тот, который вписан (для большинства остальных контролов - либо caption либо name)

[Serge_Bliznykov]

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

Могу добавить, что можно ещё проще ) в мемо весь тескт доступен по tmemo.text;

Да куда уж проще! Это Вы зря не посмотрели решение от Stilet постом выше Вашего. Там как раз и используется .Text

[phomm]

Там используется Memo.lines.text , коий есть в объекте tstrings, а lines - из него.

вот я и сказал , что можно проще - не через memo.lines.text (что в коде выше), а через memo.text

Надеюсь донёс мысль теперь однозначнее, возможно, до этого плохо выразил...

[Serge_Bliznykov]

вот я и сказал , что можно проще - не через memo.lines.text (что в коде выше), а через memo.text
Надеюсь донёс мысль теперь однозначнее, возможно, до этого плохо выразил...

теперь понятно. Вы правы, я в прошлый раз не обратил внимание на эту разницу...

Ну, раз Вы считаете, что With Memo1 do проще, чем With Memo1.Lines do
значит, так оно и есть!