Выбрать из текста только те слова, которые состоят из чисел

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

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

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