VPF::Вывести текст от символа - Форум программистов

Михалыч

Дата 13.8.2015, 23:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Как можно вывести текст от одного символа до другого.
Например в одном memo такой текст:

@
Первый
текст
@
Второй
текст
@
Третий текст
@
И так
далее
@
Как вывести в случайном порядке один из текстов который находиться между символами @ в другой memo ?

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Poseidon

Дата 14.8.2015, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.StrictDelimiter := True;
    SL.Delimiter := '@';
    SL.DelimitedText := Memo1.Lines.Text;
    SL.Delete(0);
    SL.Delete(SL.Count-1);

    Randomize;
    Memo2.Lines.Text := SL[Random(SL.Count)].Trim;
  finally
    SL.Free;
  end;
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »