| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Замена символа в строке другим символом [D7, XP]

lewka-serdceed ©   (2008-06-20 18:56:00) 

Подскажите пожалйста уважаемые мастера программирования, что мне исправить в этом коде, чтобы не было ошибки Incompatible types 'Char' and 'String'.

procedure TForm1.Button1Click(Sender: TObject);
var
n,i:integer;
 a,s:PChar; // если тут изменить на String, все равно не работает
begin

n:=0;
 s:=PChar(edit1.Text);
  for i:=1 to Length(s) do
 begin
   if s[i]='я' then begin s[i]:='ya';

  label1.Caption:=label1.Caption+s[i];

end; end;

end;

---

Anatoly Podgoretsky   (2008-06-20 20:49:00) [1]

> lewka-serdceed  (20.06.2008 18:56:00)  [0]

S[I] это Char

'ya' это стринг

И ты не можешь а один байт (Char) поместить два байта/символа

---

Сергей М.   (2008-06-20 19:22:00) [2]

>  Замена символа .. что мне исправить в этом коде


Не надо ничего исправлять, эта задача реализуется штатной функцией StringReplace(), которая работает со string-типами параметров и результата.

---

lewka-serdceed   (2008-06-20 19:09:00) [3]

какой тип тогда взять? String не идет тоже.

---

tesseract   (2008-06-20 19:08:00) [4]

Всё. зачем тебе Pchar? Его индексация  с [0] кстати.

---

Наверх