for i := 0 to memo1.lines.count
begin
if pos(memo1.lines[i],Edit1.text,length(memo1.lines[i])) then //как там точно пос записывается уже не помню ,но думаю идея понятна
begin
Edit2.text:= Memo1.lines[i];
break;
end;
end;
есть 3 таких строки. из них выводит первую и последнюю.
\\\\\\\\\\\\\\\\\\
а мне нужно выводить те строки, возраста которых попадают попадают в диапазон цифры в edit . Пример:
пишу в edit: 2
программа должна вывести все строки.
вот предложенный код: (немного его переделал)
Код:
for i := 0 to memo1.Lines.Count do
begin
z:=StrToInt(v);
b:=StrToInt(n);
if StrToIntDef(edit4.Text, 0) in [z..b] then
begin
if pos(v+'-'+n ,memo1.Lines[i]) > 0 then
begin
listbox1.Items.Add( memo1.Lines[i]);
//break;
end;
end;
P.s. в переменных v и n содержаться цифры возрастов.