VPF::Совместимость Delphi 7 и 2010 - Форум программистов

Pcrepair

Дата 22.2.2012, 21:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 16.1.2011

Репутация: нет
Всего: нет

Добрый день!
есть простой код

Код


procedure TForm1.Delete(T: TStringList; LeftLimit: String; RightLimit: String);
var
  s: AnsiString;
  index1, index2, len, i: integer;
begin
  len := Length(RightLimit);
  index1 := AnsiPos(LeftLimit, s);
  while (index1 <> 0) do
  begin
    index2 := index1;
    i := 1;
    while (i <> Length(RightLimit) + 1) do
    begin
      Inc(index2);
      if s[index2] = RightLimit[i] then
        Inc(i)
      else
        i := 1;
    end;
    Delete(s, index1, index2 - index1 + 1);
    index1 := AnsiPos(LeftLimit, s);
  end;
end;

Который удаляет символы в файле
Проблема:
Borland Delphi Enterprise Version 7.0 (Build 4.453) - компиляция в норме
Embarcadero RAD Studio 2010 Version 14.0.3513.24210 - выдает ошибку:
if s[index2] = RightLimit then //в этом месте
отладчик пишет:
E2015 Operator not applicable to this operand type
Вопросы:
1. как такое можеть быть, ведь код простейший
2. что делать с RAD Studio 2010. чтоб все заработало
Поиск ничего дельного не дал
Всем спасибо

--------------------

Сборник рабочего кода Процедур и Функций DelPhi http://validcoderepo.narod.ru/

Rennigth

Дата 23.2.2012, 02:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

Pcrepair, D2010 у меня нет, но насколько я знаю, string в ней это уже не AnsiString, а UnicodeString(как-то так). А ты пытаешься к AnsiString присвоить, в этом наверное и проблема. Типы к одному сведи.

--------------------

(* Honesta mors turpi vita potior *)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »