|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.02.2013, 22:44 | #11 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Все работает, какие проблемы?
Код:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Последний раз редактировалось Sciv; 16.02.2013 в 22:47. |
16.02.2013, 22:45 | #12 |
Форумчанин
Регистрация: 12.03.2012
Сообщений: 123
|
Меня любые советы устроят...)) А как по другому? Ну и главное как сделать что бы заработало?)
Программа зпускается, но при нажатии кнопки выдает ошибку...
<====Если помог, весы под профилем.
Последний раз редактировалось Stilet; 16.02.2013 в 23:20. |
16.02.2013, 23:30 | #13 |
Форумчанин
Регистрация: 11.10.2007
Сообщений: 384
|
Вот помойму то что нужна)
Слепил)) Код:
С уважением, Volkogriz!
Не количеством плюсов измеряется репутация человека...!
Последний раз редактировалось Volkogriz; 16.02.2013 в 23:51. |
16.02.2013, 23:38 | #14 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
Нет освобождения созданных объектов. Нет отрисовки формы стандартной, между циклами таймера.
|
16.02.2013, 23:44 | #15 |
Форумчанин
Регистрация: 12.03.2012
Сообщений: 123
|
У меня все равно ни че не работает(( Теперь даже не компилируется и выдает кучу ошибок(( я вообще не знаю че делать... простите школоту за назойливость... но мне все также нужна помощь..
<====Если помог, весы под профилем.
|
16.02.2013, 23:54 | #16 |
Форумчанин
Регистрация: 11.10.2007
Сообщений: 384
|
Выложил проект в delphi 7
Ваш проект не открылся у меня, помойму вам надо: Удалить и переустановить вашу delphi У вас delphi хе помойму, вот и не пашут наши примеры
Не количеством плюсов измеряется репутация человека...!
Последний раз редактировалось Volkogriz; 16.02.2013 в 23:58. |
16.02.2013, 23:59 | #17 |
Форумчанин
Регистрация: 12.03.2012
Сообщений: 123
|
Завтра по пробую с другого компа зайти, там 7 delphi. Тогда посмотрю)
<====Если помог, весы под профилем.
|
17.02.2013, 00:00 | #18 |
Форумчанин
Регистрация: 11.10.2007
Сообщений: 384
|
Так это факт) проверенно и не раз!
Не количеством плюсов измеряется репутация человека...!
|
17.02.2013, 00:09 | #19 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
Посмотрите на адреса файлов картинок, которые должны быть прочитаны. Они должны лежать в определённом месте, а у вас они лежат не там, где их пытаются читать. В коде десяток строк - прочитайте внимательно, подгонять проект под ваши адреса не есть правильно...
|
17.02.2013, 00:21 | #20 |
Форумчанин
Регистрация: 11.10.2007
Сообщений: 384
|
unit Unit1;
interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.Imaging.jpeg, Vcl.ExtCtrls, Vcl.Imaging.pngimage; type TForm1 = class(TForm) BitBtn2: TBitBtn; Image1: TImage; avto: TImage; Button1: TButton; Timer1: TTimer; Button2: TButton; Image2: TImage; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled:=False; if TTimer(Sender).tag=3 then TTimer(Sender).tag:=1 else TTimer(Sender).tag:=TTimer(Sender). tag+1; //Здесь я не пойму и всё image2.Picture.loadfromfile('C:\Use rs\Пользователь\Desktop\Курсач\карт инки\колеса\coleso'+IntToStr(TTimer (Sender).tag)+'1.bmp'); //можно же так //extractfilepath(Application.ExeName )+'\coleso'+IntToStr(TTimer(Sender) .tag)+'1.bmp'); //или так 'coleso/coleso'+IntToStr(TTimer(Sender).tag )+'1.bmp'; end; end.
Не количеством плюсов измеряется репутация человека...!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывод изображений из папки через заданное время в секундах на PHP сайте | Killer_djon | JavaScript, Ajax | 15 | 18.01.2013 07:19 |
Отправка данных через определенное время | n-sia | PHP | 5 | 19.03.2012 16:56 |
Выключение через определенное время | Rebel123 | Общие вопросы Delphi | 8 | 31.07.2011 19:48 |
закрытие формы через определенное время | motaro | Общие вопросы Delphi | 18 | 22.08.2009 14:04 |
Выключение компьютера через определенное время | V@mpir | Общие вопросы Delphi | 7 | 28.06.2009 00:33 |