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

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

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.02.2014, 01:32   #21
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

В этой строке нет "траблы". Скорей всего трабла у тебя в названиях твоих img. Посмотри что такое FindComponent в help'e или прогугли.
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 02.02.2014, 01:34   #22
Lexovt
Пользователь
 
Регистрация: 25.12.2010
Сообщений: 20
По умолчанию

Оооодаа..всё заработало... но теперь проблема с повторами)

И ещё как эти Image сделать ссылками на ...уммм ..ту строку в БД ...картинка которой отображается в данный момент.

Последний раз редактировалось Lexovt; 02.02.2014 в 01:36.
Lexovt вне форума Ответить с цитированием
Старый 02.02.2014, 18:28   #23
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Код:
type PImg=^TImage;
......
var Img:PImg; \\ Image делаем ссылкой
.......
New(Img);
Img^:=TImage.Create(Form1);
DataModule2.tbl1.moveby(random(RecordCount));
Img^.tag:=DataModule2.tbl1.RecNo;//получаем № строки и записываем его в Tag
...
Img^.free;
Вот собственно и выполнено условие:"Image сделать ссылками на ...уммм ..ту строку в БД ."
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 02.02.2014, 22:19   #24
Lexovt
Пользователь
 
Регистрация: 25.12.2010
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Rin Посмотреть сообщение
Код:
type PImg=^TImage;
......
var Img:PImg; \\ Image делаем ссылкой
.......
New(Img);
Img^:=TImage.Create(Form1);
DataModule2.tbl1.moveby(random(RecordCount));
Img^.tag:=DataModule2.tbl1.RecNo;//получаем № строки и записываем его в Tag
...
Img^.free;
Вот собственно и выполнено условие:"Image сделать ссылками на ...уммм ..ту строку в БД ."
Выдаёт ошибку мне
[Error] Unit1.pas(51): Constant or type identifier expected

Последний раз редактировалось Stilet; 02.02.2014 в 22:44.
Lexovt вне форума Ответить с цитированием
Старый 03.02.2014, 00:12   #25
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Честно говоря, это был мой извращенный юмор, а не помощь, т.к. не сильно люблю тех, кто тупо копирует код. Но ради забавы попробовал на delphi 7 сделать то, что посоветовал, и при таком коде:
Код:
type PImg=^TImage;

var
  Form1: TForm1;
  StringText:WideString;
  Img:PImg;

implementation

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Img^.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringText:=
  'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
  'Source='+GetCurrentDir+'\db1.mdb'+
  ';Mode=ReadWrite;Extended Properties="";Persi' +
  'st Security Info=True;Jet OLEDB:System database="";Jet OLEDB:Reg' +
  'istry Path="";Jet OLEDB:Database Password=123456;Jet OLEDB:Engin' +
  'e Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Part' +
  'ial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Ne' +
  'w Database Password="";Jet OLEDB:Create System Database=False;Je' +
  't OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Co' +
  'mpact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet O' +
  'LEDB:SFP=False';
  ADOTable1.ConnectionString:=StringText;
  ADOTable1.TableName:='CODE_FIO_worker';
  ADOTable1.Active:=true;

  New(Img);
  Img^:=TImage.Create(Form1);
  Img^.Parent:=Form1;
  Img^.Top:=0;
  Img^.Left:=0;
  Img^.Width:=400;
  Img^.Height:=400;
  ADOTable1.moveby(random(ADOTable1.RecordCount));
  Img^.tag:=ADOTable1.RecNo;
  label1.Caption:=IntToStr(Img^.Tag);
  Img^.Picture.Bitmap:=TBitMap.Create;
  Img^.Picture.Bitmap.Width:=400;
  Img^.Picture.Bitmap.Height:=400;
  Img^.Picture.Bitmap.Canvas.TextOut(Img^.Width div 2,Img^.Height div 2, IntToStr(Img^.Tag));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
все работает без ошибок. Ну, а если без моих плоских шуток, то вам лишь нужна строка, где мы получаем № строки и записываем её в свойство tag. Только вместо записи в tag нужно записывать в массив из 10 элементов, а потом при сверять, есть ли в массиве число, выданное рандомом, если нет, то заносить в массив и рисовать картинку, если есть, то запускать заново рандом.
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка картинки image scroyler Общие вопросы Delphi 2 12.02.2012 17:12
Много labelов на форме Алена_=))) Общие вопросы Delphi 3 15.06.2011 08:53
маштабирование картинки в image wulf_01 Помощь студентам 4 15.05.2011 19:51
Размер Image изменяется на размер картинки, а сама она рисуется на области первой картинки RPGer Мультимедиа в Delphi 6 20.10.2008 19:54
очистка image от картинки Victor[famas] Общие вопросы Delphi 9 13.02.2008 00:26