[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

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

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

[ALexandr555]

v1s2222, сделал как ты говоришь считает их, но как мне записать в mrecord позицию

[v1s2222]

Код:

...
  for i:=0 to s.Count-1 do
    for k:=1 to Length(s.Strings[i]) do begin
      m_[Q].X := i;
      m_[Q].Y := k;

Где Q - это индекс массива.

[ALexandr555]

Код:

for i:=0 to s.Count-1 do
    for k:=1 to Length(s.Strings[i]) do
      if(s.Strings[i][k] = '#') then
       begin
        m_[N].X := i;
        m_[N].Y := k;
        inc(N);
        end;

значт так как я понял

[ALexandr555]

что то он ругается на это при закрытии

[ALexandr555]

нельзя ли лучше проще найти позицию к примеру 5 символа # сразу

[v1s2222]

Можно. Хоть так:

Код:

uses StrUtils;

...
X:=0;
for i:=1 to 5 do // на 5 позицию
  X := X+1+PosEx('#', S);

Теперь X - это номер 5 сивола "#".
Но я говорю, что выше описанный мной метод будет эффективнее и не будет разных ошибок... вот и все.

[ALexandr555]

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
I,k: integer;
s: TStringList;
m_: array of m;
countN: integer;

begin
 setlength(m_, 1);
  N := 0;
  s := TStringList.Create;
  s.LoadFromFile('spam.txt');

for i:=0 to s.Count-1 do
    for k:=1 to Length(s.Strings[i]) do
      if(s.Strings[i][k] = '#') then
       begin
        inc(N);
        ListBox1.Items.Add(inttostr(I));
        end;

end;

procedure TForm1.Button4Click(Sender: TObject);
var
ns,i: integer;
s: TStringList;
begin
memo1.clear;
s := TStringList.Create;
s.LoadFromFile('spam.txt');
Randomize;
NS:=random(N);
for i:=(strToint(ListBox1.Items.Strings[NS])+1) to (strToint(ListBox1.Items.Strings[NS+1])-1) do
memo1.Lines.Add(s.Strings[i]);
end;

сделал уже так сначало загружаю в лист бокс номера строк где символ # затем по нему ищю

[ALexandr555]

NS:=1+random(N);
забыл написать вроде так верней будет

[ALexandr555]

Код:

begin
 setlength(m_, 1);
  N := 0;
  s := TStringList.Create;
  s.LoadFromFile('spam.txt');
ListBox1.Items.Add(' ');                                                                                                                                                  for i:=0 to s.Count-1 do
    for k:=1 to Length(s.Strings[i]) do
      if(s.Strings[i][k] = '#') then
       begin
        inc(N);
        ListBox1.Items.Add(inttostr(I));
        end;

вот тут добавить чтобы строки с единицы велись