как правильно записать строку?

[Vladimir-belikov]

функция раскодирования строки
в строке:
s[i] := Char(23 xor Ord(c[i]));
вылезает ошибка Incompatible types: 'AnsiChar' and 'Char'
Как записать правильно?

[Jaguar83]

а как объявлены переменные s и с ?
Какой компилятор используете?

[Vladimir-belikov]

s: String[255];
c: array[0..255] of Byte absolute s;

[veniside]

s[i] := AnsiChar(23 xor c[i]);

1) Ord() не нужен, т.к. у вас и так массив байт
2) AnsiChar вместо Char, очевидно же

[Serge_Bliznykov]

Vladimir-belikov
категорически не рекомендую использовать написанный Вами код!

посмотрите на такой пример:

function StringCoder(const s : AnsiString) : AnsiString;
var k, i : integer;
  key, sResult  : AnsiString;
begin
  key := KeyPass; // это строчка с ключём шифра - длина любая. Чем больше и случайнее - тем лучше!
  sResult := s;
  k := 1;
  for i := 1 to Length(s) do
    begin
      sResult[i] := AnsiChar((ord(sResult[i]) XOR ord(key[k])));
      inc(k);
      if (k>length(key)) then k := 1;
    end;
  StringCoder := sResult
end;

p.s. если Вы принципиально хотите закодировать строку XOR'ом с одним байтом
тогда можно так записать (но рекомендую всё же код, представленный мною выше!):

var S : AnsiString;
....
  for i := 1 to Length(s) do
      S[i] := AnsiChar((ord(S[i]) XOR 23);