说我有一个字符串
'SomeName'
并希望值在case语句中返回.这个可以吗？可以在case语句中使用字符串
Case 'SomeName' of
'bobby' : 2;
'tommy' :19;
'somename' :4000;
else
showmessage('Error');
end;
一种新的css,但我想要一个我想要的图像在左上角,然后另一个图像,我想在那之后重复.目前我累了:
CSS
#topsection{
background: url('../images/bannerBGs.jpg');
background-repeat:no-repeat;
background: url('../images/bannerBGl.jpg');
background-repeat:repeat-x;
height: 200px; /*Height of top section*/
color: White;
text-align:center
}
#topsection a{
color: #FFFF80;
}
#topsection h1{
margin: 0;
padding-top: 25px;
text-align:Left
}
#topsection h2{
margin: 0;
padding-top: 0px;
text-align:Center
}
HTML
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>IG Indy Gamers</title>
<link rel="stylesheet" type="text/css" href="CSS/mycss.css" media="screen" />
</head>
<body>
<div id="maincontainer">
<div id="topsection" > <div class="innertube">
<h1>IG -Indy Gamers …这是我的目标.使用鼠标左键滚动图像,使用鼠标右键选择缩放矩形,然后双击以恢复完整缩放.
我目前已经厌倦了,到目前为止发现它与我加载图像或显示图像的方式无关,而是与绘制方式有关.无论表格或源图像的形状如何,屏幕上的图像总是填充控件的客户区域,因此不能保留纵横比.我不知道如何改变它或保持纵横比.从而给我一个干净漂亮的画面.
我发布了我的ZImage单元的整个代码虽然我认为问题出现在Zimage.paint或Zimage.mouseup中但是想想如果你需要在其中一个中看到一个函数,那将有助于将它全部发布.
unit ZImage;
interface
uses
Windows, Messages, SysUtils,jpeg, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TZImage = class(TGraphicControl)
private
FBitmap : Tbitmap;
PicRect : TRect;
ShowRect : TRect;
FShowBorder : boolean;
FBorderWidth : integer;
FForceRepaint : boolean;
FMouse : (mNone, mDrag, mZoom);
FProportional : boolean;
FDblClkEnable : boolean;
FLeft :integer;
FRight :integer;
FTop :integer;
FBottom :integer;
startx, starty,
oldx, oldy : integer;
procedure SetShowBorder(s:boolean);
procedure SetBitmap(b:TBitmap);
procedure SetBorderWidth(w:integer);
procedure SetProportional(b:boolean);
protected
procedure Paint; override;
procedure MouseDown(Button: TMouseButton; Shift: …我正在尝试使用
TZipFile.ZipDirectoryContents()
像这样:
TZipFile.ZipDirectoryContents('Test.PCF', WorkingDir);
如果我正确读取它,它应该将文件夹"workingdir"的内容保存到名为Test.pcf的文件中.
现在,当我这样做时,我得到错误::
Raised exception class EFOpenError with message Cannot open file
...test.pcf. The process cannot access the file because its being used by another process."
有两件事令我困惑:
它说无法打开文件.还没有test.pcf.我希望这会创造它.
它说无法访问文件.这是因为它还没有创建吗？我使用这个功能吗？如果是这样,我如何从文件夹位置创建一个zip文件？
目前我有一个TCube阵列
CreateCube : array[1..1000] of tcube;
目前使用它们作为地图,因此您可能有30个立方体宽,20个立方体高,从而形成一个大网格.但是1000个立方体并不足以满足我的需要,我需要更多像10,000个立方体.
有这样大小的阵列会导致问题吗？还有其他选择吗？
我想清除我首先看到的几个选项的CMD屏幕
system('clr');
但是不想使用系统原因然后它使它依赖于windows,与unix版本相同
如果我试试
cout << string(22, '\n');
然后我的下一行文字在屏幕的底部,我希望它在顶部.如何清除屏幕并将文本恢复到屏幕顶部？
因此说我有这个.
cout<<string(22, '\n');
cout<<"************Question 1 *******"<<endl;
cout<<"WHO WAS THE FIRST BLACK PRESEDENT?"<<endl;
cout<<"(1) Obama"<<endl;
cout<<"(2) Bush"<<endl;
cout<<"(3) Jordan" <<endl;
cin>>answer>>endl;
这将清除屏幕然后将mymenu放在屏幕的底部...我怎样才能使屏幕清晰并将问题/答案重新放回屏幕顶部.
这是故障代码..
multresult := mult(mult(temp, quatview), conjugate(temp));
完整程序
procedure TForm2.RotateCamera(var angle: Single; x: Single; y: Single; z: Single);
var
temp, QuatView, multResult : TQuaternion;
begin
temp.x := x * sin(Angle/2);
temp.y := y * sin(Angle/2);
temp.z := z * sin(Angle/2);
temp.w := cos(Angle/2);
quatview.x := camera1.Position.x;
quatview.y := camera1.Position.y;
quatview.z := camera1.Position.z;
quatview.w := 0;
multresult := mult(mult(temp, quatview), conjugate(temp));
camera1.Position.x := multresult.x;
camera1.Position.y := multresult.y;
camera1.Position.z := multresult.z;
end;
多功能
function TForm2.mult(var A: TQuaternion; B: TQuaternion) :TQuaternion;
var
c : …我试图通过将.jpg转换为bmp然后将其保存到imagelist1来将jpg加载到图像列表中.
从代码片段的顶部到底部.Selectdir工作和文件存在部件工作.这用于加载文件夹中的所有图像.所有图像都被命名为如此0.jpg/1.jpg等.
然后我将jpg加载到tpicture.设置bmp宽度/高度并使用与jpg相同的图像加载bmp,然后将bmp添加到图像列表.当它完成它应该显示第一个图像0.jpg
两个问题,首先,如果我这样做它只会显示bmp的一个小区域(左上角),但它是正确的图像.我认为这是由于选项裁剪.我似乎无法弄清楚如何让它在运行时选择中心？
第二,如果我放
Imagelist1.width := currentimage.width;
Imagelist1.height := currentimage.height;
然后它显示最后一张图片.喜欢 Imagelist1.GetBitmap()不工作？所以我假设任何一个的修复都会很棒!欢呼声
procedure TForm1.Load1Click(Sender: TObject);
var
openDialog : TOpenDialog;
dir :string;
MyPicture :TPicture;
currentimage :Tbitmap;
image : integer;
clTrans : TColor;
begin
Image := 0 ;
//lets user select a dir
SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP);
myPicture :=Tpicture.Create;
currentimage := TBitmap.Create;
//keeps adding images as long as the file path exsist.
//thus comic pages should be renumbed to 0-XX
while FileExists(Dir+'\'+inttostr(image)+'.jpg') do
begin
try
MyPicture.LoadFromFile(Dir+'\'+inttostr(image)+'.jpg'); //load image to jpg …我一直收到这个错误.在FGetZoneData我有:
var
SelectedDept: String;
implementation
procedure TFGetZoneDept.GetClick1(Sender: TObject);
var
azone: string;
adept: string;
bstats,
bname,
btop,
bleft,
bnumber,
basset: string;
machine : TMachine;
begin
fdb.count := 0; //keeps track of number of machines in zone
azone := Combobox1.Text; //gets name of zone
adept := TfDB.GetDeptDBName(SelectedDept); //gets name of dept from a function
fdeptlayout.ListBox1.Clear;
end;
并且TFdB我有一个公开声明的函数:
public
Function GetDeptDBName(name :string):String;
end;
知道为什么这不起作用吗？
我有一个类怪物,当一个实例被创建时,它应该链接每个怪物与武器.恩.狮鹫怪物应该有狮鹫攻击1和狮鹫攻击2,当然攻击的名字是TBD,但是现在好用狮鹫攻击1和2.
Currenly我有这个.
#include <vector>
typedef enum {Living, Dead, Nature} Race;
typedef enum {Gryphon, Oracle, Mercenary,Templar,
Satyr,Fallin Angel,ArcAngel,Satan,Grimreaper,
Unbaptized Babies,Boggart,Succubus,Meat Wagon,
Djinns,Manticore,Water Nymph,Plant Nymph,
Mother Nature, Cannibal Tribesmen,Wyvern,
Vegetable Lamb, Ent, Lava Worm, Alpha Dragon
} MonsterType;
typedef enum {gryphon1,Oracle1, Mercenary1,Templar1,
Satyr1,Fallin Angel1,ArcAngel1,Satan1,Grimreaper1,
Unbaptized Babies1,Boggart1,Succubus1,Meat Wagon1,
Djinns1,Manticore1,Water Nymph1,Plant Nymph1,
Mother Nature1, Cannibal Tribesmen1,Wyvern1,
Vegetable Lamb1, Ent1, Lava Worm1,Alpha Dragon1,
Gryphon2, Oracle2, Mercenary2,Templar2,
Satyr2,Fallin Angel2,ArcAngel2,Satan2,Grimreaper2,
Unbaptized Babies2,Boggart2,Succubus2,Meat Wagon2,
Djinns2,Manticore2,Water Nymph2,Plant Nymph2,
Mother Nature2, Cannibal Tribesmen2,Wyvern2,
Vegetable Lamb2, Ent2, Lava Worm2, Alpha Dragon2 …