Memo выбор информации из txt

[reihtmonbern]

Здравствуйте дорогие товарищи у меня к вам в очередной раз вопрос?
Суть задачи такова в memo загружается txt фаил
#
OpenDialog1.Execute;
Memo1.Lines.FromFile(OpenDialogFile Name);
#
по содержанию txt это опись имущества: болт № 2343 поврежден а вилка № 2345 кривая. гайка № 234 поржавела и т.д. и т.п. То есть нужно в тексте произвести поиск символа '№' + добавить к нему 4 неизвестных произвольных символа и в конечном итоге получившееся значения вывести в несколько эдитов edit1.text=№ 2343 edit2.text=№ 2345 deit3.text=№ 234 ... deit10=№ xxxx
для поиска в memo пытаюсь изменить этот код но пока что безрезультатно !
#
procedure TForm1.Button1Click(Sender: TObject);
var // Объявляем переменные
Find:string; // Искомая строка
i:integer; // Счетчик для цикла
begin
find:=Edit1.Text; // Записываем в find текст из Edit
For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Line s.Text)-1;
Memo1.SelLength:=Length(FIND);
End;
end;
#
Помогите пожалуйста новичку

[g101k]

procedure TForm1.Button1Click(Sender: TObject);
var // Объявляем переменные
  i, pt: integer; // Счетчик для цикла
begin
  for i := 0 to Memo1.Lines.Count - 1 do // Запускаем цикл поиска строки
  begin
    pt := Pos(Edit1.Text, Memo1.Lines.Text);
    if pt <> 0
    then
    begin
      Memo1.SetFocus;
      Memo1.SelStart:= pt - 1;
      Memo1.SelLength := Length(Find);
    end;
  end;
end;

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

[reihtmonbern]

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

procedure TForm1.Button1Click(Sender: TObject);
var // Объявляем переменные
  i, pt: integer; // Счетчик для цикла
begin
  for i := 0 to Memo1.Lines.Count - 1 do // Запускаем цикл поиска строки
  begin
    pt := Pos(Edit1.Text, Memo1.Lines.Text);
    if pt <> 0
    then
    begin
      Memo1.SetFocus;
      Memo1.SelStart:= pt - 1;
      Memo1.SelLength := Length(Find);
    end;
  end;
end;

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

спасибо за помощь но этот код не делает того что надо он просто выделает в тексте № а символы не выводит в эдит и не добовлает 4 -ре произвольных

[kta87]

Вам нашли значки номера, ну не поленитесь длбавить к этому нужные вам условия по присваиванию символов и выводу..!

[3D Hunter]

procedure TForm1.Button1Click(Sender: TObject);
var
  i, pt: integer;
  find: string;
begin
  find := Edit1.Text;
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    pt := Pos(find, Memo1.Lines[i]);
    if pt <> 0
    then
    begin
      Memo1.SetFocus;
      Memo1.SelStart:= pt-1;
      Memo1.SelLength := Length(Find);
      Break;
    end;
  end;
end;

Ненужно строчить где попало бессмысленные и очевидные комментарии, только путаницу создают, ИМХО.