Получение номера взятой строки из memo, содержимое которой вставлено рандомно в memo

@MaxMaestro · Регистрация: 07.02.2014

Author24 — интернет-сервис помощи студентам

Вообщем есть текстовый файл, из которого берутся все строки, вставляются в memo, а из memo уже в переменную, берущую рандомную строку и вставляющую эту строку в Edit. Выглядит это вот так:

Delphi

procedure TForm1.BitBtn1Click(Sender: TObject);
var
RandomStr: string;
begin
Randomize;
Memo1.Lines.LoadFromFile('English.txt');
RandomStr:=Memo1.Lines[random(Memo1.Lines.count)];
Edit1.Text:=RandomStr;

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

@FIL · 11.02.2015, 22:33

Delphi

var
RandomStr: string;
i: Integer;
begin
Randomize;
Memo1.Lines.LoadFromFile('English.txt');
i := random(Memo1.Lines.count);
RandomStr:=Memo1.Lines[i];
Edit1.Text:=RandomStr;
ShowMessage('Íîìåð ñòðîêè: ' + IntToStr(i));

@MaxMaestro · 12.02.2015, 20:09 **[ТС]**

Спасибо огромное)

Добавлено через 21 час 6 минут
А как теперь взять по номеру строки содержимое этой строки и вставить к примеру в Edit.Text?

@FIL · 12.02.2015, 20:14

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

А как теперь взять по номеру строки содержимое этой строки и вставить к примеру в Edit.Text?

Приведенный код именно это и делает.

@~~milz~~ · 12.02.2015, 20:20

Хм. так уже всё написано.
строки 7-9
i - это полученный номер строки.
строка 7 RandomStr:=Memo1.Lines[i]; взял
строка 8 Edit1.Text:=RandomStr; - вставил

а можно стразу Edit1.Text:= Memo1.Lines[i];

@MaxMaestro · 12.02.2015, 20:44 **[ТС]**

Да, чот я протупил, все оказалось проще чем я пытался сделать) спасибо

@MaxMaestro 0 / 0 / 1 Регистрация: 07.02.2014 Сообщений: 7
	12.02.2015, 20:09 [ТС]	3
	Спасибо огромное) Добавлено через 21 час 6 минут А как теперь взять по номеру строки содержимое этой строки и вставить к примеру в Edit.Text? 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	12.02.2015, 20:14	4
	Сообщение от MaxMaestro А как теперь взять по номеру строки содержимое этой строки и вставить к примеру в Edit.Text? Приведенный код именно это и делает. 0

@~~milz~~ Заблокирован
	12.02.2015, 20:20	5
	Хм. так уже всё написано. строки 7-9 i - это полученный номер строки. строка 7 RandomStr:=Memo1.Lines[i]; взял строка 8 Edit1.Text:=RandomStr; - вставил а можно стразу Edit1.Text:= Memo1.Lines[i]; 1

@MaxMaestro 0 / 0 / 1 Регистрация: 07.02.2014 Сообщений: 7
	12.02.2015, 20:44 [ТС]	6
	Да, чот я протупил, все оказалось проще чем я пытался сделать) спасибо 0

Получение номера взятой строки из memo, содержимое которой вставлено рандомно в memo

Решение