saeed_m200
یک شنبه 24 شهریور 1387, 13:03 عصر
سلام من یه سوال در مورد Cast کردن در دلفی دارم با مثال میگم امیدوارم کسی بتونه کمکم کنه.
تو دلفی میشه اینجوری نوشت :
....
var CompName : String;
begin
CompName := 'Label1';
if findcomponenet(CompName) <> nil Then
(findcomponenet(CompName) as Tlabel) .Visible := not (findcomponenet(CompName) as Tlabel) .Visible ;
End;
حالا مشكل من اينحاست كه من اسم أبجكت را كه به صورت متغير است و مشکلی نیست حالا اگر تایپ آبجکت را هم متغییر بگیریم چگونه میشود cast کرد مثلا :
var CompName,CompType : String;
begin
CompName := 'Label1';
CompType := 'TLable'; ???????
if findcomponenet(CompName) <> nil Then
(findcomponenet(CompName) as CompType) .Visible := not (findcomponenet(CompName) as CompType) .Visible ;
End;
امیدوارم تونسته باشم منظورم و برسونم خیلی ممنون میشم اگه کسی راه حلی داره کمکم کنه مرسی.
تو دلفی میشه اینجوری نوشت :
....
var CompName : String;
begin
CompName := 'Label1';
if findcomponenet(CompName) <> nil Then
(findcomponenet(CompName) as Tlabel) .Visible := not (findcomponenet(CompName) as Tlabel) .Visible ;
End;
حالا مشكل من اينحاست كه من اسم أبجكت را كه به صورت متغير است و مشکلی نیست حالا اگر تایپ آبجکت را هم متغییر بگیریم چگونه میشود cast کرد مثلا :
var CompName,CompType : String;
begin
CompName := 'Label1';
CompType := 'TLable'; ???????
if findcomponenet(CompName) <> nil Then
(findcomponenet(CompName) as CompType) .Visible := not (findcomponenet(CompName) as CompType) .Visible ;
End;
امیدوارم تونسته باشم منظورم و برسونم خیلی ممنون میشم اگه کسی راه حلی داره کمکم کنه مرسی.