Копирование нескольких строк из .txt ошибка

[FleXik]

У меня проблема с копированием строк из .txt файла, строки копируются нормально код ниже:

var
s:string;
j,m:integer;
sl:TStringList;
begin
m:=0;
sl:=TStringList.Create;
sl.LoadFromFile(Form1.sFilenameEdit1.FileName);
Randomize;
Form1.sMemo1.Clear;

    for j:=1 to 3 do
    begin
      m:=Random(sl.Count-1);
      s:=sl[m];
      sl.Delete(m);

      Form1.sMemo1.Lines.Add(s);
    end;

sl.Free;
end;

но если строку

Form1.sMemo1.Lines.Add(s);

поставить после end; то в Memo выдает только 1 строку вместо 3-х, вместо

Form1.sMemo1.Lines.Add(s);

у меня идет POST запрос перед end; в котором передается переменная s и вместо 3-х строк в ней передается 1 строка, бред какой-то уже полтора часа голову ломаю... если переношу запрос после end; то софт или зависает или выскакивают разные ошибки...

Задача: что бы в переменной s которая подставляется в запрос передавалось 3 рандомных строки из .txt файла и что бы они не повторялись в переменной.

Буду очень признателен за помощь, спасибо.

[Serge_Bliznykov]

но если строку

Form1.sMemo1.Lines.Add(s);

поставить после end; то в Memo выдает только 1 строку вместо 3-х,

Но верно. вы вынесли за цикл. В Memo добавится только одна, причём последняя из случайных строк.

строки в переменной s должны друг от друга отделяться чем-то?!
или слитно должны быть?!

Попробуйте:

var
s:string;
j,m:integer;
sl:TStringList;
begin
  m:=0;
  sl:=TStringList.Create;
  sl.LoadFromFile(Form1.sFilenameEdit1.FileName);
  Randomize;
  Form1.sMemo1.Clear;

  s := '';  // подготовим строчку к накоплению

  for j:=1 to 3 do
    begin
      m:=Random(sl.Count-1);
      s := s + sl[m]; // вот накопление в строку s
      sl.Delete(m);
    end;
    
    Form1.sMemo1.Lines.Add(s);

    вот тут можете делать ваш post переменной s

sl.Free;
end;

[FleXik]

Serge_Bliznykov, да на вас молиться надо, спасибо большущее!!! очень выручили, по поводу разделения тут разве что #13#10 еще раз спасибо

Serge_Bliznykov, эта строка

sl.Delete(m);

почему-то конфликтит... если ее убрать все ок...

[Serge_Bliznykov]

покажите одновлённы код процедуры.
Вы, надеюсь, не вынесли эту строчку ЗА ЦИКЛ ?!!

если ее убрать все ок...

ну, тогда учтите, что возможны повторы строк. Удаление в вашем случае нужно, чтобы повторно одна и та же строка случайно не выпала!


БЛИН!
я догадался в чём проблема.
У Вас в исходном файле НЕТ трёх строчек!!!!

исправьте код на такой:

  s := '';  // подготовим строчку к накоплению

  for j:=1 to 3 do
    begin
      if  sl.Count > 0 then begin
         m:=Random(sl.Count-1);
         s := s + sl[m]; // вот накопление в строку s
         sl.Delete(m);
      end;
    end;
    
    Form1.sMemo1.Lines.Add(s);

[FleXik]

Вы, надеюсь, не вынесли эту строчку ЗА ЦИКЛ ?!!

конечно же нет

ну, тогда учтите, что возможны повторы строк.

я знаю именно поэтому мне нужна эта строка

БЛИН!
я догадался в чём проблема.
У Вас в исходном файле НЕТ трёх строчек!!!!

procedure begin end; ? если не сарказм, то каких строчек?

[Serge_Bliznykov]

Вы грузите в лист текстовый файл:

sl.LoadFromFile(Form1.sFilenameEdit1.FileName);

а сколько в этом файле строчек?!
Если их больше трёх, то код отработает нормально.
А если меньше (нет ни одной, одна или две)
Мы запускаем цикл, выполняем его 3 раза (не обращая внимание на то, сколько строк считалось в sl), разумеется, при попытке удалить выбранную строку мы получим ошибку (такую, как у Вас на скриншоте), если в списке НЕТ строк (там попытка удаления элемента за пределами списка).
вот так.

код попробуйте выше указанный.

НУ или проверяйте количество строк после чтения файла и прнимайте меры (например, ругайтесь на пользователя и выходите из процедуры)

[FleXik]

а сколько в этом файле строчек?!

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

ппц какой-то если делаю с чистого проэкта все отлично работает без багов и лагов, как только добавлю функцию в свой проэкт сразу ошибки лезут оО хотя сам проэкт работает отлично

причем даже если строк в .txt добавляю все ровно та же ошибка выскакивает получается что оно будто не рандомно эти строки берет ибо строк в .txt 10 оно берет 3 раза по 3 строки и выдает ошибку (будто 2-х строк не хватает чтобы 4-ый раз выдать 3 строки)

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

ну да все верно оно берет как-то не рандомно типа если строк 10 оно выдаст 3 раза по 3 строки (3х3=9, следующий раз не выдает и выскакивает ошибка) если строк 13 оно выдаст 4 раза по 3 строки (4х3=12, следующий раз не выдает и выскакивает ошибка), если строк 16 оно выдаст 5 раз по 3 строки (5х3=15, следующий раз не выдает и выскакивает ошибка), почему так? и как решить эту траблу?

[Аватар]

  sl:=TStringList.Create;
  sl.Sorted:=True;
  sl.Duplicates:=dupIgnore;  //не загружаеть дубликаты 
  sl.CaseSensitive:=False;    //проверка регистронечувствительная
  sl.LoadFromFile(Form1.sFilenameEdit1.FileName);

После загрузки проверить, что бы sl.Count>=3, иначе сообщение, что нельзя выбрать 3 строки и Exit

ADD

Да, и:

m:=Random(sl.Count);

[FleXik]

короче всё, решил, оказалось что

sl.LoadFromFile(Form1.sFilenameEdit1.FileName);

строка стояла в самом начале перед другими циклами (у меня их несколько), как только переставил эту строку к этой функции сразу все заработало оО сейчас только еще разок на повторы проверю действительно ли удаляет (в новом проэкте с нуля все отлично удаляло), Serge_Bliznykov, Аватар, спасибо

------------------
повторы удаляет всё четко

[Serge_Bliznykov]

FleXik, обратите внимание на важное замечание от Аватар

Сообщение от Аватар

m:=Random(sl.Count);

в предложенном Вами коде была сделана неточность (последняя строка никогда не выпадала). А я, не подумав, скопировал...


да и ещё - пожалуйста. всегда рад помочь.