Из теста длины в 200 символов выбрать слова длиной в 5 символов, причем эти слова не должны содержать букву "А"

Категория: Delphi/Pascal
2011-08-28 20:27:44
code: #delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2.  var
  3.  i: integer;
  4.  temp, SourceString, ResultString: string;
  5.  begin
  6.  temp := '';
  7.  ResultString := '';
  8.  SourceString := Memo1.Text;
  9.  for i := 1 to length(SourceString) do
  10.  begin
  11.  if SourceString[i] = ' ' then
  12.  begin
  13.  if length(temp) = 5 and pos(temp, 'A') = 0 then
  14.  ResultString := ResultString + temp + ', ';
  15.  temp := '';
  16.  continue;
  17.  end;
  18.  temp := temp + SourceString[i];
  19.  end;
  20.  ResultString := copy(ResultString, 1, length(ResultString) - 2);
  21.  end;
Поделиться:

Похожие статьи:

теги: студенты, работа со строками, строки