Обработка символов и строк

@bo-al · Регистрация: 02.02.2010

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

Помогите пожалуйста!!!(((
Составить код программы для обработки текстовых данных.
Ввести текст в поле компонента Memo1 выполнить необходимые преобразования и вывести результат в компонент Label1.

Условия задания
Дана символьная строка. Заменить каждый символ, встречающийся после первого вхождения символа *, на символ $, если нет символа *, то сообщить об этом.

Все преобразования оформить в событии Click компонента Button1.
Заранее огромное спасибо!!!

@Mawrat · 04.02.2010, 23:41

На форму надо положить TButton и TMemo.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  CharSign = '*';
  CharRpl  = '$';
var
  StrTmp : String;
  i : Integer;
  IsFound : Boolean;
begin
  Label1.Caption := '';
  StrTmp := Memo1.Text;
 
  IsFound := False;
  for i := 1 to Length(StrTmp) do begin
    if IsFound then begin
      StrTmp[i] := CharRpl;
    end else if StrTmp[i] = CharSign then begin
      IsFound := True;
    end;
  end;
 
  if not IsFound then begin
    ShowMessage('Символ "*" в строке не обнаружен.');
  end else begin
    Label1.Caption := StrTmp;
  end;
end;

@bo-al 5 / 5 / 0 Регистрация: 02.02.2010 Сообщений: 13
		1
	Обработка символов и строк 04.02.2010, 20:16. Показов 821. Ответов 1 Метки нет (Все метки) Помогите пожалуйста!!!((( Составить код программы для обработки текстовых данных. Ввести текст в поле компонента Memo1 выполнить необходимые преобразования и вывести результат в компонент Label1. Условия задания Дана символьная строка. Заменить каждый символ, встречающийся после первого вхождения символа , на символ $, если нет символа , то сообщить об этом. Все преобразования оформить в событии Click компонента Button1. Заранее огромное спасибо!!! 0

	04.02.2010, 23:41

Обработка символов и строк

Решение