delete для строки "внутри" класса-потомка TObjectList: как осуществить?

[Ship_1]

Здравствуйте!
Возникла вот такая проблемка.
Делаю процедуру внутри класса на основе TObjectList. Работаю со строками. Нужно удалить часть строки. А классическое delete(str,index,count) воспринимается процедурой как delete для этого TObjectList. Как же сделать delete у строки в этих условиях?

[Alex11223]

System.Delete наверно.

[Ship_1]

Да? Т.е. при обращении к функции юнита, если эта функция внутри кода перекрывается, можно к ней обращаться через название юнита? Интересно. Что-то я, видимо, забыл про такую возможность. Спасибо!

[northener]

Сообщение от Ship_1

А классическое delete(str,index,count) воспринимается процедурой как delete для этого TObjectList

Классическое delete неправильно воспринимается только в неграмотном коде.
Уж сколько раз твердили миру что оператор with нужно использовать только тогда, когда понимаешь правила.

[Filka]

При чём тут оператор with?

type
  TMyObjList = class(TObjectList)
  public
    procedure MyProc;
  end;

{ TMyList }

procedure TMyList.MyProc;
var
  S: string;
begin
  S := 'QWERTY';
  //Delete(S, 6, 1);      // Тут ошибка
  System.Delete(S, 6, 1); // Тут ошибки нет
  ShowMessage(S);
end;

Ship_1, если сделать что-то типа такого?

type
  TMyObjList = class(TObject)
  private
    FObjectList: TObjectList;
  public
    constructor Create;
    destructor Destroy; override;
    function Add(AObject: TObject): Integer;
    procedure Delete(Index: Integer);
    // и т. д.
  end;

{ TMyObjList }

function TMyObjList.Add(AObject: TObject): Integer;
begin
  FObjectList.Add(AObject);
end;

constructor TMyObjList.Create;
begin
  FObjectList := TObjectList.Create(True);
end;

procedure TMyObjList.Delete(Index: Integer);
begin
  FObjectList.Delete(Index);
end;

destructor TMyObjList.Destroy;
begin
  FObjectList.Free;
  inherited;
end;

То есть вместо создания потомка, сделать обёртку.

[Ship_1]

Filka, мысль интересная. Когда начнёт получаться более-менее осознанно с классами, подумаю про обёртки. Спасибо!