[ALexandr555]

Мне нужно рандомно выдать из файла текст между разделителем '#' к примеру в файле такая запись:

#
текст1
#
текст2
текст2
#
текст3
#

и мне нужно рандомно выдать между '#' текст.
Загружаю весь файл в переменную и дальше думаю надо вести поиск по '#' в файле подсчитать их число и копировать, подскажите точней

[Bargest]

узнаешь число этих # = N, потом берешь random(N-1)+1, ищешь K-ю решетку (нумеруются теперь с 1) и копируешь весь текст до K+1й

[ALexandr555]

как узнать число? и искать определенную 2 к примеру

[v1s2222]

Загрузил в строку, и циклом проверяешь символы.

Код:

var
  s: TStringList;
  i: integer;
  N: Inetger;
begin
  N := 0;
  s := TStringList.Create;
  s.LoadFromFile(...);
{
  for i:=0 to s.Count-1 do
    for k:=1 to Length(s.Strings[i]) do
      if(s.Strings[i][k] = '#') then
        inc(N);
} 
// или
  for i:=1 to Length(s.Text) do
    if(s.Text[i] = '#') then
      inc(N);
///

Но я считаю надо искать не только кол-во, но и положение "#". Чтоб потом было легче копировать.
Как-то так:

Код:

type m=record
  x, y: integer;

var
  m_: array of m;
  countN: integer;
begin
  setlength(m_, 1);
... // и дальше все тоже самое,только с учетом, пр нахождении знака "#" надо не только увеличивать их кол-во, но и записывать его местоположение в тексте.

[deltas]

Все как-то сложно, я обычно делаю так - загружаю файл в листбокс а потом :

Код:

procedure TForm1.Button1Click(Sender: TObject);
var a:String; s:integer;
begin
 S:=Random(ListBox1.Items.Count-1);
 A:=Listbox1.Items.Strings[s];
 if a='#' then A:=Listbox1.Items.Strings[s+1];
 Label1.Caption:=A;
end;

[v1s2222]

Сообщение от deltas

Все как-то сложно, я обычно делаю так - загружаю файл в листбокс а потом...

Ты не учел, что после знака "#" может идти несколько строк и всех их надо ввести, а не одну.