Имя TImage a

← →
Radgar © (2005-08-04 16:33) [0]

Подскажите, пожалуйста, как присвоить имя TImage"у, чтоб потом можно было писать TImage(Name).Picture...

Заранее спасибо.

← →
Ega23 © (2005-08-04 16:35) [1]

Разницу между именем объекта TImage.Name и именем указателя на объект TImage ощущаешь?

← →
Eraser © (2005-08-04 16:37) [2]

Radgar © (04.08.05 16:33)

var
Img: TImage;
...

← →
Джо © (2005-08-04 16:43) [3]

> Radgar © (04.08.05 16:33)

Это, конечно, не мое дело, но... Я уже несколько месяцев вижу под твоим ником такие совершенно безграмотные вопросы. Неужели за эти несколько месяцев нельзя было прочитать хотя бы Language Reference? Это ведь должно быть стыдно, блин.

← →
Radgar © (2005-08-04 16:45) [4]

>
> var
> Img: TImage;
> ...

Да не так там что-то вроде такого:
Image1.Name:=...

А потом:
TImage(Здесь имя).Picture...

Но я не помню как правильно писать имя, может кто знает?

← →
clickmaker © (2005-08-04 16:48) [5]

> Но я не помню как правильно писать имя, может кто знает?

имя правильно писать с большой буквы

← →
Eraser © (2005-08-04 16:54) [6]

Radgar © (04.08.05 16:45) [4]
Image1.Name:=...

А потом:
TImage(Здесь имя).Picture...

Не. Так не выйдет.
Image1 ни что иное как указатель на объект.
TImage(...) привидение типа данного указателя к типу TImage.

← →
Radgar © (2005-08-04 16:58) [7]

>Eraser ©
> Не. Так не выйдет.

Ну а как выйдет?

← →
Eraser © (2005-08-04 17:06) [8]

Radgar © (04.08.05 16:58) [7]
Ну а как выйдет?

Как в [2]. А как надо?

← →
Radgar © (2005-08-04 17:08) [9]

> Как в [2]. А как надо?

Ну а как присваивоть это имя? (Пример)

Declare @ImgName varchar(32) Select @ImageName=TObject(Co)
тьфу, блин... Совсем крыша поехала...

function TForm1.TImageByName(const aName:String):TImage; var i:Integer; ss:string; begin Result:=nil; ss:=ANSIUpperCase(aName); for i:=0 to ComponentCount-1 do if (Components[i] is TImage) then begin if ANSIUpperCase(TImage(Components[i]).Name)=ss then begin Result:=TImage(Components[i]); Break; end; end; end;

> Ega23 © (04.08.05 17:17) [11]
> if (Components[i] is TImage) then

Если ориентироваться на требования автора вопроса, эту строчку нужно заменить на if Components[i].ClassName = "TImage" then.

Ну можно и так

Имя TImage a Найти похожие ветки