懂VB和delphi的大虾请进！(100分)

迷惘的人 · 2003-09-09

怎样将下列VB的语句翻译成delphi的语句？
Dim Colors(5) As Long
Colors(0) = RGB(188, 188, 65)
Colors(1) = RGB(213, 204, 187)
Colors(2) = RGB(255, 255, 65)
Colors(3) = RGB(128, 180, 128)
Colors(4) = RGB(144, 127, 97)
A = colors()

takashiki · 2003-09-09

var colors:array[0..4] of integer;
A:array [0..4] of integer;
begin
Colors[0] := RGB(188, 188, 65);
Colors[1]:= RGB(213, 204, 187);
Colors[2] := RGB(255, 255, 65);
Colors[3] := RGB(128, 180, 128);
Colors[4] := RGB(144, 127, 97);
A:=Colors;
end;

www · 2003-09-09

var colors:array[0..4] of TColor;
begin
color[0]=188 + 188 shl 8 + 65 shl 16;
color[1]=213 + 204 shl 8 + 187 shl 16;
...
...
end;

王公子 · 2003-09-09

来迟了

yuanjj76 · 2003-09-09

在delphi也有rgb这个函数你可以试试

wr960204 · 2003-09-09

function RGB(r, g, b: Byte): COLORREF;
begin
Result := (r or (g shl 8) or (b shl 16));
end;

ggily · 2003-09-09

我来的更迟了

幕后黑手 · 2003-10-01

我来的更迟,呵呵

zihan · 2003-10-01

早知道我就不用来了....

游泳的鱼 · 2003-10-01

我来的更迟[8D][8D]

yostgxf · 2003-10-01

就是就是，这个问题早该结了。

app2001 · 2003-10-01

还没有结，嘿，我来得早了

fftou · 2003-10-01

to takashiki: 稍做修改 integer改为longint;

zhoukee777 · 2003-10-22

晚了～连盘底都看不见了

风雨燕归来 · 2003-10-22

这问题都100分，气死我了。

懂VB和delphi的大虾请进！(100分)

迷惘的人

Unregistered / Unconfirmed

takashiki

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

王公子

Unregistered / Unconfirmed

yuanjj76

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

ggily

Unregistered / Unconfirmed

幕后黑手

Unregistered / Unconfirmed

zihan

Unregistered / Unconfirmed

游泳的鱼

Unregistered / Unconfirmed

yostgxf

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

fftou

Unregistered / Unconfirmed

zhoukee777

Unregistered / Unconfirmed

风雨燕归来

Unregistered / Unconfirmed

Similar threads