Pos - Incompatible types: 'Char' and 'String'

Fynjy1
Дата: 03.06.2009 09:19:27
Добрый день у меня есть переменная bag: string;
есть функция:
repeat
    i := Pos(',', Bag);
    if i > 0 then Bag [i]:='Запятая';
  until i=0;
result:=Bag;

при компиляциии ругается Incompatible types: 'Char' and 'String'
Почему??? как это исправить??
Tosh
Дата: 03.06.2009 09:23:00
садись - два
if i > 0 then Bag [i]:='Запятая';
какому символу ты строку присваиваешь?
Fynjy1
Дата: 03.06.2009 09:37:16
Tosh
садись - два
if i > 0 then Bag [i]:='Запятая';
какому символу ты строку присваиваешь?


мне надо этот символ который нашелся как запятая заменить на слова запятая. а что не правильно? и как исправить это?
Tosh
Дата: 03.06.2009 09:38:25
так - бегом читать справку про строковые типы данных и подпрограммы работы со строками
zirra
Дата: 03.06.2009 09:41:29

On Wed, 03 Jun 2009 10:37:16 +0400, Fynjy1 <nospam@sql.ru> wrote:

> Автор: Fynjy1
> что не правильно?

Как это - ЧТО??? Картинка с другого сайта.
Тебе ж сэр Компилятор уже сказал: Incompatible types: 'Char' and
'String'
...

> и как исправить это?

Не делать ТАК...
Картинка с другого сайта.

Posted via ActualForum NNTP Server 1.4

Zh71
Дата: 03.06.2009 10:23:22
Не мучайся

Bag := AnsiReplaceText(Bag , ',', 'Запятая');

dba.ucoz.ru
Fynjy1
Дата: 03.06.2009 10:49:05
Zh71
Не мучайся

Bag := AnsiReplaceText(Bag , ',', 'Запятая');

dba.ucoz.ru


я так сдела
  repeat
    i := Pos(',', Bag);
    if i > 0 then
      begin
        Bag [i]:=' ';
        Insert(' Запятая',Bag,i);
      end;
  until i=0;
result:=Bag;
Fynjy1
Дата: 03.06.2009 10:49:33
Zh71
Не мучайся

Bag := AnsiReplaceText(Bag , ',', 'Запятая');

dba.ucoz.ru


спасибо, сейчас и так попробую