AVZ 5. Руководство пользователя
×
Меню
Индекс

16.41.4. procedure Delete

procedure Delete(var s: String; from, count: Integer);
 
Удаляет из строки S несколько символов начиная с позиции from, количество удаляемых символов задается параметром count.
 
var
  S : string;
begin
  S := 'У попа была кошка или собака';
  Delete(S, 12, 10);
  AddToLog(S);
end.