Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.07.20;
Скачать: CL | DM;

Вниз

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

 
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-типами параметров и результата.


 
Anatoly Podgoretsky ©   (2008-06-20 20:49) [4]

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

S[I] это Char

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

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



Страницы: 1 вся ветка

Текущий архив: 2008.07.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
2-1213989349
Makaveli
2008-06-20 23:15
2008.07.20
освобождение памяти


15-1212473791
Tornado
2008-06-03 10:16
2008.07.20
Разрешить доступ


2-1213892206
lewka-serdceed
2008-06-19 20:16
2008.07.20
Поиск символа в StringGrid


2-1213809311
vegarulez
2008-06-18 21:15
2008.07.20
Как создать exception?


2-1213697117
Муслик
2008-06-17 14:05
2008.07.20
Копирование текста