Подскажите, как из строки, состоящей из слов, удалить все символы а,с (из стандартного можно использовать только length, ord, char)
в голову ничего дельного по поводу этой задаче мне не приходит...
i := 1;
while (i <= Length(s)) do
if s[i] in ['a', 'c'] then Delete(s, i, 1)
else
inc(i);
procedure _delete(var s: string; start, len: Integer);
var
i: Integer;
begin
if start <= 0 then exit;
if start + len > Length(s) then
len := Length(s) - start + 1;
for i := start to Length(s) - 1 do s[i] := s[i + len];
dec(s[0], len);
end;