delphi 2009 ¼òÌå ת ·±Ìå £¨Çë¿´ÇåÎÒµÄÒªÇó°¡£©
Delphi(Pascal) code:
//¶¨ÒåÈçÏÂ
tagIDCardData = packed record
Name: array[0..31] of AnsiChar;
Sex: array[0..3] of AnsiChar;
Nation: array[0..5] of AnsiChar;
Born: array[0..17] of AnsiChar;
Address: array[0..71] of AnsiChar;
IDCardNo: array[0..37] of AnsiChar;
GrantDept: array[0..31] of AnsiChar;
UserLifeBegin: array[0..17] of AnsiChar;
UserLifeEnd: array[0..17] of AnsiChar;
Reserved: array[0..37] of AnsiChar;
PhotoFileName: array[0..254] of AnsiChar;
end;
IDCardData = tagIDCardData;
TCardMsg = ^IDCardData;
//ÎÒÊÇÕâÑù×ÓÒýÓõģº
var
MyCardData:TCardMsg;
begin
lblName.Caption := MyCardData.Name;
end;
//½á¹ûÏÔʾÓÐÂÒÂ룿
//ÎÒÊÔ¹ýÓüòÌåת·±ÌåµÄº¯Êý£¬µ«ÊÇת¹ýÀ´»¹ÊÇÒ»ÑùµÄÓÐÂÒÂë¡££¨ÂÒÂëΪ'?'ºÅ£©
Ö»ÓдÓÉí·ÝÖ¤Àï¶Á³öÀ´µÄ×ÊÁÏ£¨ÐÕÃû£¬µØÖ·µÈΪÂÒÂ룬½çÃæÉϵÄһЩÆäËûµÄÏÔʾÄÚÈݲ»ÊÇÂÒÂ룩¡£
ÎÒÓõļòÌåת·±Ì庯ÊýΪ£º£¨Õâ¸öº¯Êý²»Æð×÷Óã©
Delphi(Pascal) code:
Function GBCht2Chs(GBStr: String): AnsiString; {GBK·±Ìåת¼òÌå}
Var
len:integer;
pGBCHTChar: PChar;
pGBCHSChar: PChar;
Begin
pGBCHTChar := PChar(GBStr);
Len := SizeOf(pGBCHTChar);
GetMem(pGBCHSChar, Len + 1);
ZeroMemory(pGBCHSChar, Len + 1);
//GB
Ïà¹ØÎÊ´ð£º
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
delphi 2010 Æô¶¯´íÎ󣬲»ÉÏÍøÒ»¶¨³öÏÖ´íÎó£¬
½ÓÉÏÍøÏߺó»áÂýÂýÆô¶¯£¬
¸÷λËÓöµ½¹ýÀàËÆÎÊÌâ °¡
¿Ø¼þ¾Í×°ÁËcnpack
ÎÒÒ²Åöµ½ÕâÖÖÇé¿ö£¬ÌáʾÓësanctuarylib.dllÓйØ
Éý¼¶µ½UPDATE4/5,È»º ......
delphi 6 µÄ¿ÉÖ´ÐгÌÐòÔÚVISTAϲ»ÄÜÖ´ÐУ¬Ò»Ö±ÔÚ½ø³ÌÖУ¬ÎÞ·¨Æô¶¯£¬ÇëÓмû¹ýÕâÖÖÇé¿öµÄÅóÓÑÖ¸µãһϣ¬ÈçºÎ´¦Àí
ÎÒÖ¸µÄÊÇdelphi±àÒëºÃµÄ¿ÉÖ´ÐгÌÐò£¬ÔÚVISTAÏÂÎÞ·¨Ö´ÐС£¿ÉÖ´ÐгÌÐòÊǺܶàÄêǰµÄÁË£¬¿Ï¶¨²»ÄÜÔÙ±àÒ ......