Mega Code Archive

 

Categories / Delphi / Strings

 

Stringi renke renki stringe çevirme

Uses graphics; procedure Tform1.button1click(Sender:TObject); begin form1.Color:=stringtocolor('121'); label1.caption:= ColorToString(form1.color); end;