Добавить файл и из его выводить в memo любую строку.

[misher]

Допустим есть Текстовый документ.txt, как мне открыть его где-то в памяти и рандомно(не знаю как в delphi, а в паскале это random)выводить любой абзац в мемо. И все это по нажатии на кнопку?

[Пепел Феникса]

function GetRandomLine(SL:TStrings):string;
begin
 result:=SL[random(SL.Count)];
end;

применяем.

подготовка(форм крит например)

var SL:TStringList;//глобальная
SL:=TStringList.Create;
SL.LoadFromFile('файл');

берем строку с него

Memo1.Lines.Text:=GetRandomLine(SL);

ну и уничтожаем стринг лист(форм дестрой например)

SL.Free;

[misher]

Пепел Феникса, что-то я про TStringList забыл, спасибо.

[beegl]

подскажите, как добавить пустой абзац в Memo, после 7-й строчки?

и подскажите, как удалить не нужные строчки в Memo, а то, когда делаю так, то удаляется иногда нужные строчки

  Memo1.Text := Res.Text;
  Memo1.Lines.Delete(24);
  Memo1.Lines.Delete(23);
  Memo1.Lines.Delete(22);
  Memo1.Lines.Delete(21);
  Memo1.Lines.Delete(20);
  Memo1.Lines.Delete(19);
  Memo1.Lines.Delete(18);
  Memo1.Lines.Delete(17);
  Memo1.Lines.Delete(16);
  Memo1.Lines.Delete(14);
  Memo1.Lines.Delete(12);
  Memo1.Lines.Delete(11);
  Memo1.Lines.Delete(10);
  Memo1.Lines.Delete(9);
  Memo1.Lines.Delete(8);
  Memo1.Lines.Delete(7);
  Memo1.Lines.Delete(6);
  Memo1.Lines.Delete(5);
  Memo1.Lines.Delete(0);

результат такой:

Абонент: Безконтрактний абонент
Номер телефона: 0569989487
Состояние: Активен
Тарифный план: Гига-День 150
Сальдо: -18.20
Ночной трафик (Rev.A): 28975.4189 по 28.02.2014
пакетный трафик (Rev.A/Rev.B): 400.0000 по 06.02.2014
пакетный трафик (Rev.A/Rev.B): 392.1230 по 06.02.2014

а это не удаленные строчки:

Лицевой счет: 2508431
Абонент: Безконтрактний абонент
Номер телефона: 0569989487
Состояние: Активен
Тарифный план: Гига-День 150
Дополнительное соглашение: Нет
Дата подключения: 04.10.2012
Абонентский стаж (гг.мм): 1.4
Лояльный стаж (гг.мм): 1.4
Дата последней абонентской активности (мм.гггг): 03.02.2014
Контактный номер телефона: 0632232945 Изменить
E-Mail: beegl1985@rambler.ru
-: (грн.)
Сальдо: -18.20
Предоплаченые услуги на месяц: 0.00
Кредит до...: -30.00
Неактивированные бонусы (с 094): 0.00
Правило (USER_NAME): Трафик МБ (получено+передано)
IT: 6659
NO_MONEY: 4
.: Текущая сессия интернет без тарификации (по состоянию на 06.02.2014 16:56)
EVDO: Авторизован по правилу (логин)
IT (IT): Трафик МБ
0.000: IP
10.133.140.142: Предоплачено на пакете
Трафик (без учета текущей сессии): (МБ)
Ночной трафик (Rev.A): 28975.4189 по 28.02.2014
пакетный трафик (Rev.A/Rev.B): 400.0000 по 06.02.2014
пакетный трафик (Rev.A/Rev.B): 301.3154 по 06.02.2014

[doktor255]

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

и подскажите, как удалить не нужные строчки в Memo, а то, когда делаю так, то удаляется иногда нужные строчки

Помни, что если ты удаляешь к примеру пятую строку, то шестая становится пятой, и так далее. То есть последующие индексы после индекса удалённой строки сдвигаются на -1. Ну а код сам напишешь, если логику поймёшь.

[beegl]

doktor255, подскажите, как удалить не нужные строчки в Memo, а то, когда делаю так, то удаляется иногда нужные строчки

[northener]

а то, когда делаю так, то удаляется иногда нужные строчки

Вероятно в исходном тексте не все верно с символами перевода строки. Нормальным считается присутствие двух символов #13 (0D hex) и #10 (0A hex).

[doktor255]

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

doktor255, подскажите, как удалить не нужные строчки в Memo, а то, когда делаю так, то удаляется иногда нужные строчки

Из Memo строки удаляются методом Memo1.Lines.Delete(Index);
Понятия "ненужная строка" в делфи не сущестует.

[beegl]

doktor255, напишите пример, а то я почти не понимаю в программировании

[Stilet]

Ребята, Одна тема - один автор.
beegl, ты ли это? Я тебя не узнаю. Прошу запомнить это.