найти и удалить всю cтроку, в которой нет заданной подстроки...

[mr_xxx]

привет уважаемые программисты
спасибо что всегда помогаете

у меня вот какой вопрос

допустим у меня есть текст :

1 ) Hello my name is Sasha
2) Hello my name is Sasha aaa111
3) Hello BBB111 my name is Sasha
4) i live in the world
5) i live in ccc333 the world

мне нужна найти и удалить строки где нет aaa111 или BBB111 или ccc333
в моем примере после выполнения команды должен остаться вот так
2) Hello my name is Sasha aaa111
3) Hello BBB111 my name is Sasha
5) i live in ccc333 the world

если есть в строке aaa111 или BBB111 или ccc333 то оставляем эту строку а если нет удаляем
очень прошу поподробней
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО

[type_Oleg]

Есть функция Pos.

var stroka:string;
begin
 if Pos('aaa111',stroka)>0 then  //  если stroka содержит "aaa111" ..

[Stilet]

допустим у меня есть текст :

Где есть? Как он в программу попадает?

[mr_xxx]

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

Есть функция Pos.

var stroka:string;
begin
 if Pos('aaa111',stroka)>0 then  //  если stroka содержит "aaa111" ..

спасибо а как же потом удалить именно эту строку ? и ещо у меня не только ааа111 ест ещо BBB111 ссс333 если из этих троих ест хоть один нужна удалить эту строку
пожалуйста поподробней

[ZuBy]

Текст где храниться? Закиньте его в TStringList, получиться так

var 
  stroka:string;
  i: integer;
begin
  for i:=0 to List.Count-1 do
  begin
  stroka := list.strings[i];
  if (Pos('aaa111',stroka)=0) or (Pos('BBB111 ',stroka)=0) or (Pos('ссс333 ',stroka)=0) then 
  list.delete(i);  // удаляем строку
  end;
end;

[mr_xxx]

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

Текст где храниться? Закиньте его в TStringList, получиться так

var 
  stroka:string;
  i: integer;
begin
  for i:=0 to List.Count-1 do
  begin
  stroka := list.strings[i];
  if (Pos('aaa111',stroka)=0) or (Pos('BBB111 ',stroka)=0) or (Pos('ссс333 ',stroka)=0) then 
  list.delete(i);  // удаляем строку
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var F:TStringList;
 stroka:string;
  i: integer;

begin
   F:=TStringList.Create;
 F.LoadFromFile('C:\Users\Probook\Desktop\111.txt');

   for i:=0 to strtoint (edit2.text)do
  begin
  stroka := F.strings[i];
  if not (Pos('A.  ',stroka)=1) or (Pos('B.  ',stroka)=1) or (Pos('C.  ',stroka)=1)or (Pos('D.  ',stroka)=1)or (Pos('E.  ',stroka)=1) or (Pos('F.  ',stroka)=1)or (Pos('G.  ',stroka)=1) or (Pos('?',stroka)=1)then
  F.delete(i);
  end;






 F.SaveToFile('C:\Users\Probook\Desktop\111-2.txt');
 F.Free;
end;

[mr_xxx]

вот допустим текст

Что является предметом курса <<Теории автоматического управления>>?

	
	


A.  Дисциплина, изучающая процессы автоматического управления объектами разной физической природы
Дисциплина, изучающая процессы автоматического управления объектами разной физической природы 

B.  Дисциплина, изучающая процессы автоматизированной системы управления
Дисциплина, изучающая процессы автоматизированной системы управления 

C.  Дисциплина, изучающая процессы автоматизизации различных объектов
Дисциплина, изучающая процессы автоматизизации различных объектов 

D.  Дисциплина, изучающая процессы автоматизированных систем управления аппаратами
Дисциплина, изучающая процессы автоматизированных систем управления аппаратами 

E.  Дисциплина, изучающая процессы автоматизированных систем управления объектами
Дисциплина, изучающая процессы автоматизированных систем управления объектами 
 

ANSWER: A  
 	
	 	
	 
 Что является объектом изучения курса <<Теории автоматического управления>>?  
Что является объектом изучения курса <<Теории автоматического управления>>?   
 	
	 	
	 
 

A.  Автоматизированные системы регулирования. 
Автоматизированные системы регулирования.  

B.  Автоматическая система управления.
Автоматическая система управления. 

C.  Автоматическая система управления.
Автоматическая система управления. 

D.  Частично автоматизированная система управления. 
Частично автоматизированная система управления.  

E.  Практическое построение систем автоматического управления
Практическое построение систем автоматического управления 
 

ANSWER: B  
 	
	 	
	 
 Что является основным техническим средством при управлении технологическими процессами?
Что является основным техническим средством при управлении технологическими процессами? 
 	
	 	
	 
 

A.  Набор контрольно - измерительных приборов. 
Набор контрольно - измерительных приборов.  

B.  Набор измерительных преобразователей различного назначения. 
Набор измерительных преобразователей различного назначения.  

C.  ЭВМ.
ЭВМ. 

D.  Набор чувствительных элементов (датчиков).
Набор чувствительных элементов (датчиков). 

E.  Регулятор.
Регулятор. 
 

ANSWER: C

нужна этой программой очистить не нужное
но после пропуска этого текста через прогу становится вот таким

	

A.  Дисциплина, изучающая процессы автоматического управления объектами разной физической природы

Дисциплина, изучающая процессы автоматизированной системы управления 
C.  Дисциплина, изучающая процессы автоматизизации различных объектов

Дисциплина, изучающая процессы автоматизированных систем управления аппаратами 
E.  Дисциплина, изучающая процессы автоматизированных систем управления объектами
 
ANSWER: A  
	 	
 Что является объектом изучения курса <<Теории автоматического управления>>?  
 	
	 

A.  Автоматизированные системы регулирования. 

Автоматическая система управления. 
C.  Автоматическая система управления.

Частично автоматизированная система управления.  
E.  Практическое построение систем автоматического управления
 
ANSWER: B  
	 	
 Что является основным техническим средством при управлении технологическими процессами?
 	
	 

A.  Набор контрольно - измерительных приборов. 

Набор измерительных преобразователей различного назначения.  
C.  ЭВМ.

Набор чувствительных элементов (датчиков). 
E.  Регулятор.
 
ANSWER: C

[Serge_Bliznykov]

во-первых, любые циклы, в которых изменяется количество записей, нужно крутить или в циклах repeay \ while, либо в обратном цикле for :

for i:=f.Count-1 downto 0 do
  begin
...

во-вторых, боюсь Вас разочаровать, но Вы вряд ли таким кодом получите то, что хотите. Ведь у Вас куча строк, в которых вообщее нет латинской буквы в начале. Они все остаются или все удаляются?!
Тут обработка чуть посложнее требуется, чем простое удаление строк, в которых нет заданной подстроки...

[mr_xxx]

всем спасибо
жаль что проблема остается открытой

[DpolenST]

попробуйте так

..............
   F:=TStringList.Create;
   F.LoadFromFile('C:\Users\Probook\Desktop\111.txt');

  for i:=F.Count-1 downto 1 do
  begin
   stroka := Trim(F.strings[i]);
   if(Length(stroka) AND Pos(stroka,F.strings[i-1])) then F.delete(i);
  end;
...............