Удаление подстроки (Delphi).
Я ламер в программировании и по этому прошу Вас мне помоч моя задачки не отнимут у Вас много времени.:)
Определить функцию позволяющую удалить из строки произвольную подстроку.
Заранее спс!!!
Определить функцию позволяющую удалить из строки произвольную подстроку.
Заранее спс!!!
[COLOR="Red"]Для каждой задачи создавай отдельную тему,вторая задача удалена.Давай темам более информативные названия.[/COLOR]модератор.
Функция не проверена, но вроде бы правильно всё.
[highlight=delphi]
function DeleteSubStr(Str, SubStr: string): string;
LenSubStr, PosSubStr: integer; // длина подстроки, позиция подстроки в строке
begin
LenSubStr := length(SubString);
PosSubStr := pos(SubStr, Str);
if PosSubStr > 0 then delete(Str, PosSubStr, LenSubStr);
Result := Str;
end;
[/highlight]
[highlight=delphi]
function DeleteSubStr(Str, SubStr: string): string;
LenSubStr, PosSubStr: integer; // длина подстроки, позиция подстроки в строке
begin
LenSubStr := length(SubString);
PosSubStr := pos(SubStr, Str);
if PosSubStr > 0 then delete(Str, PosSubStr, LenSubStr);
Result := Str;
end;
[/highlight]