Удалить из строки заданный символ

@sanjaz · Регистрация: 25.06.2014

Студворк — интернет-сервис помощи студентам

Всем привет, выручайте

Написать и выполнить средствами delphi функцию, удаляющую из строки заданный символ, строку и символ передать в качестве параметров.

@Arcor · 27.06.2014, 00:20

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function ForForum(S: String; C: Char): String;
var i: Integer;
begin
  for i := Length(S) downto 1 do
    if S[i] = C then
      Delete(S, i, 1);
 
  Result := S;
end;
 
var S: String;
    C: Char;
 
begin
  S := 'g8zfgz8qwegiuqgf';
  C := 'g';
  Writeln(S);
 
  Writeln(ForForum(S, C));
  Readln;
end.

@sanjaz 0 / 0 / 0 Регистрация: 25.06.2014 Сообщений: 6
		1
	Удалить из строки заданный символ 26.06.2014, 23:48. Показов 1867. Ответов 1 Метки нет (Все метки) Всем привет, выручайте Написать и выполнить средствами delphi функцию, удаляющую из строки заданный символ, строку и символ передать в качестве параметров. 0

Опции темы

Удалить из строки заданный символ

Решение