0 / 0 / 0
Регистрация: 02.08.2013
Сообщений: 3
1

Объединить две операции в одну и задать повтор

02.08.2013, 15:27. Показов 1132. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Сам я вообще начинающий програмист, но с горем пополам написал такой код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
memo1.Lines.Text:= IdHttp1.Get ('http://la2.cosmostv.by/autpost/index.php?act=show_raid_boss_pvp');
end;
 
 
 
procedure TForm1.Button2Click(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.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
End;
end;
end.
Необходимо убрать надобность кнопок, и сделать так что бы выполнение этих операции повторялось по кругу до того как искомая фраза из Edit1 не будет найдена.
Заранее спасибо!

Добавлено через 11 минут
Заранее прошу прощения за неграмотность изъяснения)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.08.2013, 15:27
Ответы с готовыми решениями:

Повтор операции
Как сделать повтор операции ? Допустим вывод в label. Берем число повторений из spinedit. ...

Объединить две таблицы в одну
Как объединить по столбцу из каждой таблицы в два столбца одной таблицы?

Объединить две программы в одну
В комментарии я кину обе программы. Знаю, просьба выглядит глупо, но это реально сложно. В первой...

Объединить две проги в одну
вот еще один интересный вопрос имеется два кода по графике вопрос: как сделать из них одну, чтобы...

3
0 / 0 / 0
Регистрация: 02.08.2013
Сообщений: 3
05.08.2013, 14:02  [ТС] 2
никто не поможет?(
0
-8 / 2 / 4
Регистрация: 12.04.2013
Сообщений: 71
05.08.2013, 15:37 3
Эта команда в любом случае будет вызываться по кнопке, либо по какому нибудь событию....
Delphi
1
memo1.Text:= IdHttp1.Get ('http://la2.cosmostv.by/autpost/index.php?act=show_raid_boss_pvp');
А это пойдет в событиях IdHTTP...
Delphi
1
2
3
4
5
6
7
8
TForm1.IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  If Pos(Edit1.Text, Memo1.Text)<>0 then
  Begin
    Memo1.SelStart:=Pos(Edit1.Text,Memo1.Lines.Text)-1;
    Memo1.SelLength:=Length(Edit1.Text);
  End;
end;
Как то так, может где ошибся, не проверял, но общий смысл такой ....
0
0 / 0 / 0
Регистрация: 02.08.2013
Сообщений: 3
06.08.2013, 01:03  [ТС] 4
В том то и дело, что нашел как запустить
Delphi
1
memo1.Text:= IdHttp1.Get ('http://la2.cosmostv.by/autpost/index.php?act=show_raid_boss_pvp');
по открыию формы
а вот как сделать так что бы за ним следовал поиск строки, не знаю
пробовал событие OnWorkEnd - не сработало
0
06.08.2013, 01:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.08.2013, 01:03
Помогаю со студенческими работами здесь

Объединить две подсети в одну
Здравствуйте! Подскажите, пожалуйста, как можно объединить две подсети в одну, например:...

Объединить две функции в одну
Здравствуйте! Я только учусь и у меня не очень пока получается. Помогите, пожалуйста, объединить...

Объединить две программы в одну
соедините пожалуйста программы через (case) (ну чтоб типа выберите программу 1 или 2 ) 1...

Объединить две проги в одну
помогите объединить 2е проги в одну, чтоб решала 2умя разныыми методами, по примеру ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru