Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
qwer1234
13 / 13 / 4
Регистрация: 30.10.2012
Сообщений: 463
1

Не могу понять где ошибка(

27.05.2013, 00:43. Просмотров 345. Ответов 6
Метки нет (Все метки)

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    FindDialog1: TFindDialog;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
     procedure FindDialog1Find(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  p: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
p:=1;
  FindDialog1.Execute;
 
end;
 
 procedure FindDialog1Find(Sender: TObject);
var
  SelPos: Integer;
begin
  SelPos := Pos(FindDialog1.FindText, Copy(Memo1.Lines.Text,p,Length(Memo1.Lines.Text)-p+1));
  if SelPos > 0 then
  begin
    Memo1.SelStart := SelPos + p - 2;
    Memo1.SelLength := Length(FindDialog1.FindText);
    Memo1.SetFocus;
    p:=p + SelPos;
  end
    else
      ShowMessage('Г’ГҐГЄГ±ГІ "' + FindDialog1.FindText + '" Г*ГҐ Г*Г*éäåГ*!');
 end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2013, 00:43
Ответы с готовыми решениями:

Не могу понять где ошибка(
Нужно сделать тест, сначала нужно выбрать ответы а потом по нажатии кнопки...

Не могу понять, где ошибка
Сап, КиберФо. Дельфин бастует, отказывается выполнять прогу. Точнее сказать,...

не могу понять где ошибка
Определить,сколько раз входит заданное сочетание символов в заданную строку,и...

Не могу понять где ошибка!
Написать приложение, позволяющее создавать целочисленный файл, выводить его в...

Не могу понять где ошибка
Дана матрица A(N, M). Найти ее наибольший элемент и но-мера строки и столбца,...

6
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
27.05.2013, 01:02 2
В 54-ой строке.
0
qwer1234
13 / 13 / 4
Регистрация: 30.10.2012
Сообщений: 463
27.05.2013, 09:41  [ТС] 3
angstrom, не смешно!!!!
0
LiquidSnake
55 / 55 / 8
Регистрация: 06.02.2013
Сообщений: 317
27.05.2013, 09:46 4
скажите хотяб какая ошибка?
0
droider
Universal
Эксперт Pascal/Delphi
4400 / 2447 / 764
Регистрация: 04.10.2012
Сообщений: 8,902
27.05.2013, 09:46 5
qwer1234, если не смешно, то покажите сообщение об ошибке
1
Storm Screamer
100 / 106 / 14
Регистрация: 21.04.2013
Сообщений: 1,261
27.05.2013, 09:48 6
Ошибка какого вида возникает: при компиляции или код делает не то, что задумывалось?

PS. Я не телепат.
0
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
27.05.2013, 12:09 7
Цитата Сообщение от qwer1234 Посмотреть сообщение
angstrom, не смешно!!!!
И здесь не КВН.
0
27.05.2013, 12:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2013, 12:09

Написал код, но не могу понять где ошибка :[
type TForm3 = class(TForm) Edit1: TEdit; Label1: TLabel; ...

Рисование Canvas, не могу понять, где ошибка в коде
Всем привет, помогите разобраться, не понимаю, где у меня противоречия в...

Не могу понять, где я ошиблась
Вот задача: Определить равна ли сумма двух первых цифр заданного...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru