论坛html颜色,HTML颜色转为Delphi的颜色;(10分)

以前些过这样一个东东,贴出来

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,xProcs, ExtCtrls, TFlatEditUnit, TFlatButtonUnit;

type

TForm1 = class(TForm)

Label4: TLabel;

Label5: TLabel;

Bevel1: TBevel;

Button1: TFlatButton;

Edit5: TFlatEdit;

Edit1: TFlatEdit;

Edit2: TFlatEdit;

Edit3: TFlatEdit;

Edit4: TFlatEdit;

Edit6: TFlatEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

FlatButton1: TFlatButton;

procedure Button1Click(Sender: TObject);

procedure Edit5Exit(Sender: TObject);

procedure Edit5KeyPress(Sender: TObject; var Key: Char);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

procedure Edit5Enter(Sender: TObject);

procedure EditEnter(Sender: TObject);

procedure EditExit(Sender: TObject);

procedure EditMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FlatButton1Click(Sender: TObject);

private

{ Private declarations }

function isHex(S : string) : Integer;

function HtmlValueToRGB : Boolean;

function HexToInt(sDecmail : string) : Integer;

public

{ Public declarations }

end;

function iPow(const Value, iExp : Integer) : Int64;

var

Form1: TForm1;

implementation

{$R *.dfm}

function iPow(const Value, iExp : Integer) : Int64;

var

i :Integer;

begin

Result := 1;

for i:=0 to iExp -1 do

begin

Result := Result * Value;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

iRgb : Integer;

iR,iG,iB : Integer;

begin

ir := HexToInt(trim(edit1.Text));

ig := HexToInt(trim(edit2.Text));

ib := HexToInt(trim(edit3.Text));

irgb := rgb(ir,ig,ib);

edit4.Text := IntToStr(irgb);

edit6.Text := Format('$%x',[irgb]);

Label4.Color := irgb;

end;

function TForm1.HexToInt(sDecmail: string): Integer;

const cHEX =16;

var

iLen : Integer;

I : Integer;

aPow : Integer;

a,b : Integer;

ch : char;

begin

Result := 0;

ilen := Length(sdecmail);

sDecmail := lowercase(sDecmail);

aPow := ilen;

for i:=1 to iLen do

begin

ch := sDecmail;

case ch of

'1','2','3','4','5','6','7','8','9','0' : a := ord(ch) - 48;

'a','b','c','d','e','f' : a:= ord(ch) - ord('a') + 10;

end;//case

b := iPow(chex,aPow -1);

Result := Result + a * b;

Dec(aPow);

end;

end;

procedure TForm1.Edit5Exit(Sender: TObject);

begin

if not Self.HtmlValueToRGB then Exit;

end;

function TForm1.HtmlValueToRGB: Boolean;

var

I : Integer;

S : string;

begin

S := lowercase(trim(edit5.Text));

i := isHex(s);

if i <> 0 then

begin

ShowMessage('第' + IntToStr(i) + '个字符是非法字符');

Result := False;

edit5.SetFocus;

Exit;

end;

//不足六位补足六位

if Length(s) <6 then

begin

for i:= 1 to 6 - Length(s) do edit5.Text := '0' + edit5.Text;

end;

//把数值分配到三种颜色

edit1.Text := Copy(edit5.Text,1,2);

edit2.Text := Copy(edit5.Text,3,2);

edit3.Text := Copy(edit5.Text,5,2);

Result := True;

end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

if ord(key) = VK_RETURNthen

begin

if not Self.HtmlValueToRGB then Exit;

Self.Button1.Click;

end;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if ord(key) =VK_RETURN then edit2.SetFocus;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if ord(key) =VK_RETURN then edit3.SetFocus;

end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if ord(key) =VK_RETURN then button1.Click;

end;

function TForm1.isHex(S: string): Integer;

begin

try

Result := 0;

for Result :=1 to Length(s) do

if not (s[Result] in ['0'..'9','a'..'f']) then

begin

Exit;

end;

Result := 0;

except

end;//except

end;

procedure TForm1.Edit5Enter(Sender: TObject);

begin

try

TFlatEdit(Sender).SelectAll;

if (trim(Edit5.Text) <> '') and (strtoint(trim(Edit5.Text)) = 0) then

edit5.Text := '';

except

on e:Exception do Exit;

end;

end;

procedure TForm1.EditEnter(Sender: TObject);

begin

TFlatEdit(Sender).SelectAll;

TFlatEdit(Sender).Font.Color := clBlack;

end;

procedure TForm1.EditExit(Sender: TObject);

begin

TFlatEdit(Sender).Font.Color := clWhite;

end;

procedure TForm1.EditMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

TFlatEdit(Sender).SelectAll;

end;

procedure TForm1.FlatButton1Click(Sender: TObject);

begin

Close;

end;

end.

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
ava实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),可运行高分资源 Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现的毕业设计&&课程设计(包含运行文档+数据库+前后端代码),Java实现
C语言是一种广泛使用的编程语言,它具有高效、灵活、可移植性强等特点,被广泛应用于操作系统、嵌入式系统、数据库、编译器等领域的开发。C语言的基本语法包括变量、数据类型、运算符、控制结构(如if语句、循环语句等)、函数、指针等。下面详细介绍C语言的基本概念和语法。 1. 变量和数据类型 在C语言中,变量用于存储数据,数据类型用于定义变量的类型和范围。C语言支持多种数据类型,包括基本数据类型(如int、float、char等)和复合数据类型(如结构体、联合等)。 2. 运算符 C语言中常用的运算符包括算术运算符(如+、、、/等)、关系运算符(如==、!=、、=、<、<=等)、逻辑运算符(如&&、||、!等)。此外,还有位运算符(如&、|、^等)和指针运算符(如、等)。 3. 控制结构 C语言中常用的控制结构包括if语句、循环语句(如for、while等)和switch语句。通过这些控制结构,可以实现程序的分支、循环和多路选择等功能。 4. 函数 函数是C语言中用于封装代码的单元,可以实现代码的复用和模块化。C语言中定义函数使用关键字“void”或返回值类型(如int、float等),并通过“{”和“}”括起来的代码块来实现函数的功能。 5. 指针 指针是C语言中用于存储变量地址的变量。通过指针,可以实现对内存的间接访问和修改。C语言中定义指针使用星号()符号,指向数组、字符串和结构体等数据结构时,还需要注意数组名和字符串常量的特殊性质。 6. 数组和字符串 数组是C语言中用于存储同类型数据的结构,可以通过索引访问和修改数组中的元素。字符串是C语言中用于存储文本数据的特殊类型,通常以字符串常量的形式出现,用双引号("...")括起来,末尾自动添加'\0'字符。 7. 结构体和联合 结构体和联合是C语言中用于存储不同类型数据的复合数据类型。结构体由多个成员组成,每个成员可以是不同的数据类型;联合由多个变量组成,它们共用同一块内存空间。通过结构体和联合,可以实现数据的封装和抽象。 8. 文件操作 C语言中通过文件操作函数(如fopen、fclose、fread、fwrite等)实现对文件的读写操作。文件操作函数通常返回文件指针,用于表示打开的文件。通过文件指针,可以进行文件的定位、读写等操作。 总之,C语言是一种功能强大、灵活高效的编程语言,广泛应用于各种领域。掌握C语言的基本语法和数据结构,可以为编程学习和实践打下坚实的基础。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值