几个有难度得问题，请高手赐教

Question

1.怎样为变量分配64位得空格空间？2.怎样将十进制数化为二进制？八进制？3.不知道大家用过delphi7没有，大家看看帮助,这个函数strtodate(s,format)，请问应该怎么用？在delphi6中，好像只有strtodate(s)这个格式。4.我有一个读卡器(明华DP-123),还有一个明华cpu测试卡，请问怎样写这个读卡函数，把卡里面得资料读出来？请高手帮忙，谢谢了。

Answer 1

第三个问题：把字符串转换为日期时间格式：
如：
procedure TForm1.Button1Click(Sender: TObject);var
  ADate: TDateTime;
  days: array[1..7] of string;
begin
  days[1] := 'Sunday';
  days[2] := 'Monday';
  days[3] := 'Tuesday';
  days[4] := 'Wednesday';
  days[5] := 'Thursday';
  days[6] := 'Friday';
  days[7] := 'Saturday';
  ADate := StrToDate(Edit1.Text);
  ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];
end;_____________________________
欢迎访问Delphi中文技术论坛 
http://www.delphipages.cn
专用群组号：2244008 欢迎加入！
不以物喜，不以已悲

Answer 2

private void button2_Click(object sender, System.EventArgs e)
{
int i = Int32.Parse(textBox1.Text);
int n;
string str = "";
int end;
if (i % 2 == 0)
end = i / 2 + 1;
else
end = i / 2; for (int k=0;k< end; k++)
{
if (i==0) break;
n = i % 2;
str =   n.ToString() + str;
i /= 2;
}
MessageBox.Show("结果是："+str);
}

Answer 3

可以直接下载开发API，还有例程，并不困难呀http://www.mwcard.com/GB/Service/download.htm，我现在就用这个产品，不过其Delphi接口好像还是1.0版的，许多要把integer换成smallint才能用。

Answer 4

1.delphi支持64位的变量
  var
    i:int64;
2.可自已写一个(应该不难)
3.没用过d7,只是感觉可以这样
  StrtoDate('2005-12-12','YYYY-MM-DD')
 具体可见FormatDateTime
4.调用厂家的API

Answer 5

int 转二进制有现成的函数
uses IdGlobal;
 ...
  edit1.text:=inttobin(232);

Answer 6

>>1.怎样为变量分配64位得空格空间？
不是很明白，是不是重复64个空格 用StringOfchar('a',64)
2.怎样将十进制数化为二进制？八进制？
//十进制转二进制
function inttobin(value:logint;size:integer):string;
var
i:integer;
a:array of byte;
begin
result:='';
for i:=size downto 0 do
begin
result:=result+'1';
end else 
begin
result:=result+'0';
end;
3.不知道大家用过delphi7没有，大家看看帮助,这个函数strtodate(s,format)，请问应该怎么用？在delphi6中，好像只有strtodate(s)这个格式。
请参看 TFormatSettings 的帮助和Demo
4.我有一个读卡器(明华DP-123),还有一个明华cpu测试卡，请问怎样写这个读卡函数，把卡里面得资料读出来？
问厂家索取开发包和现成Demo请高手帮忙，谢谢了。---都是基础函数，翻翻帮助查查资料就有了。无需高手出马

Answer 7

for i:=size downto 0 do
begin
result:=result+'1';
end else 
begin
result:=result+'0';
end;这是什么语法，我砸看不懂呢？

Answer 8

十进制转化为二进制八进制
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    a:longint;
    n:integer;
begin
  a:=12345678;s:='';n=8;//n=2时转化为二进制
  while a>0 do
   begin
     s:=IntToStr(a mod n)+s;
     a:=a div n;
   end;
   ShowMessage(s);
end;

Answer 9

谢谢各位回答了
还有几个小问题，搞店就分分：
1。怎么判断一个字符窜为有效的日期？
2。怎样把一个日期变量赋指为空？如：S：TDATETIME

Answer 10

1.用
   try
      StrToDate(s); 
   except
     ShowMessage('日期非法');
   end;
2.
var
  s:tdatetime;
begin
  s:=NULL;
end;