Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Вывести текст от символа

Автор: Михалыч 13.8.2015, 23:39

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

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

Автор: Poseidon 14.8.2015, 08:50

Код


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;