Замена символа в строке другим символом

← →
lewka-serdceed (2008-06-20 18:56) [0]

Подскажите пожалйста уважаемые мастера программирования, что мне исправить в этом коде, чтобы не было ошибки 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;

← →
tesseract © (2008-06-20 19:08) [1]

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

← →
lewka-serdceed (2008-06-20 19:09) [2]

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

← →
Сергей М. © (2008-06-20 19:22) [3]

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

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

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

S[I] это Char

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

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

Замена символа в строке другим символом Найти похожие ветки