Написать собственную реализацию процедуры Delete

@DimaTwanted · Регистрация: 22.12.2016

Написать собственную реализацию процедуры Delete, которая будет работать так же (удалять из строки Source, начиная с позиции StartChar Count символов).

Delphi

procedure MyDelete(var Source: string; StartChar: Integer; Count: Integer)
var
...
bagin
...
end;

При написании своей процедуры работать со строкой как с массивом символов (с доступом по индексу, на пример, S[3]). Также можно использовать стандартные функции: Length (S) и SetLength(S, N).

@YuryK · 22.12.2016, 16:50

на днях Copy собственнореализовывали, поищи, там только надо будет сначала символы переместить так, чтобы "хвост" затер "вырезанное", а потом дину строки изменить SetLength

@YuryK 1039 / 855 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	22.12.2016, 16:50	2
	на днях Copy собственнореализовывали, поищи, там только надо будет сначала символы переместить так, чтобы "хвост" затер "вырезанное", а потом дину строки изменить SetLength 0

Опции темы