آيا تابعي يا دستوري براي تبديل TSring به TColor وجود دارد و برعكس؟

[ali_abbasi22145]

سلام

من رنگ مورد نظر را از يك Memo مانند دستورات زير مي گيرم و براي هر رنگ كار خاصي انجام مي دهم.
اما متغير Color من از نوع TSring و clWhite يا clGreen ... از نوع TColor است آيا تابعي يا دستوري براي تبديل TSring به TColor وجود دارد و برعكس؟
كه دستور وجود داشته باشد آنوقت دستوراتم خلاصه و راحت مي شود.

Color:= Trim(LowerCase(MainForm.Memo1.Lines.Strings[24]));
if (Color = 'blue') then
ppImage1.Picture.Bitmap.TransparentColor := clWhite
else if (Color = 'green') then
ppImage1.Picture.Bitmap.TransparentColor := clGreen
else if (Color = 'white') then
ppImage1.Picture.Bitmap.TransparentColor := clWhite;

[ali_abbasi22145]

سلام
دوستان روش استفاده از TColor و تبديل TSring به TColor را اگر بفرمايند متشكر مي شوم چون احتياج مبرم دارم.

[vcldeveloper]

چیزی به نام TString نداریم، string داریم. برای دریافت نام یک رنگ از روی مقدارش (TColor) از تابع ColorToString در یونیت Graphics استفاده کنید.