Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.06.2016, 01:04   #1
$-_-Mr_Lexe228-_-$
Новичок
Джуниор
 
Регистрация: 11.06.2016
Сообщений: 1
По умолчанию помогите найти ошибку (delphi)

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var a, b:string;
begin
Label1.Caption:=TimeToStr(time);
a:=TimeToStr(time);
b:=Edit1.Text;
if a=b then
(
Timer2.Enabled:=true
);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Beep;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer2.Enabled:=false;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
ShowMessage(Edit1.Text);
for end
(
Timer2.Enabled:=true
);
end;

end.

Последний раз редактировалось Alex11223; 11.06.2016 в 09:01.
$-_-Mr_Lexe228-_-$ вне форума Ответить с цитированием
Старый 11.06.2016, 08:59   #2
TaLadno
Форумчанин
 
Регистрация: 03.06.2015
Сообщений: 393
По умолчанию

Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var a, b:string;
begin
Label1.Caption:=TimeToStr(time);
a:=TimeToStr(time);
b:=Edit1.Text;
if a=b then
(
Timer2.Enabled:=true
);
end;
Код:
procedure TForm1.Timer3Timer(Sender: TObject);
begin
ShowMessage(Edit1.Text);
for end
(
Timer2.Enabled:=true
);
end;

Ты где все это взял? Или это какой-то конвертер N-to-Delphi?

Что ты хотел сделать этим "кодом"? Можешь обьяснить словами?
Вы там держитесь.
TaLadno вне форума Ответить с цитированием
Старый 11.06.2016, 13:05   #3
garuna
Форумчанин
 
Аватар для garuna
 
Регистрация: 13.04.2013
Сообщений: 180
По умолчанию

судя по коду ошибка в голове у автора
garuna вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти седловые точки в матрице(помогите найти ошибку) - pascal tdsotm Помощь студентам 0 20.11.2014 18:57
Помогите найти ошибку - StrToFloat выдаёт ошибку EConvertError для ячеек StringGrid (Delphi) Artsiom Помощь студентам 10 18.12.2013 14:10
Помогите найти ошибку. Айдар Помощь студентам 1 05.01.2010 23:04
Помогите найти ошибку (С++) Alex1991 Помощь студентам 1 11.04.2009 15:19
Помогите найти ошибку lubafffka Паскаль, Turbo Pascal, PascalABC.NET 1 18.12.2008 09:42