Ò»¸öc++±àдµÄdllÖÐ,ÓÐÁ½¸ö°æ±¾µÄº¯Êý,Ò»¸öÊÇGetTextA,Ò»¸öÊÇGetTextW,ÎÒÏÖÔÚÏëÒ»¸öGetTextÕýÈ·µ÷ÓÃÕâÁ½¸öº¯Êý
ÔÚc++ÖпÉÒÔ
#ifdef unicode
#define GetText GetTextW
#else
#define GetText GetText A
ÔÚdelphiÖÐÔõÑù¸ã?
delphi ÓÖ²»ÄÜÒ»¸ö±àÒëÆ÷ͬʱ±àÒë unicode ºÍ·Ç unicode °æµÄ³ÌÐò£¬Õâ¶Ô delphi ......
unit Unit1;//Á¬½ÓÊý¾Ý¿â£¬¼ÓÔØÓû§Õʺš£
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,unit2,unit3,StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
&nb ......
ÎÒʼÖÕ²»Ã÷°×ËüµÄÒâ˼?
Delphi(Pascal) code:
program Project2;
{$APPTYPE CONSOLE}
const
n=10;
type
intarray=array[1..n]of integer;
var
a:intarray;
i:integer;
begin
for i:=1 to n do
a[i]:=i;
for i:=1 to n do
begin
write(a[i]:4); //Õâ¸öðºÅÆðʲô×÷ÓÃ?ΪʲôҪ4£¿
if(i mod 5=0)then //È ......
delphiÈçºÎÉèÖÃÏ뻨´Ì´úÀíÒ»Ñù,Á¢¼´ÉúЧ
Ã²ËÆÎÒʹÓÃµÄ ×¢²á±íÉèÖõÄIE´úÀí ûÓõÄ
Ç󻨴ÌÈçºÎÉèÖõĴúÀí delphi
»¨´Ì´úÀí?這ÊÇɶ£¿
Ò»¸öÑéÖ¤ºÃÉèÖôúÀíµÄ¹¤¾ß
Ã²ËÆÎÒÓÃdelphiÐÞ¸Ä×¢²á±íµÄ°ì·¨ÉèÖôúÀí ûÓÃÓõģ¿£¿
Äܲ»ÄܾßÌå½âÊÍÏÂѽ
ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!
......
ÓÐûÓÐÒѾÉèÖúõÄÍ·ÒýÓ𡣿
ËÄܸø¸ö²âÊÔÀý×Ó£¿
InitializeSListHead ³õʼ»¯Ò»¸öÔ×ÓÁ´±í
InterlockedPushEntrySList ÍùÔ×ÓÁ´±íÖмӽøÒ»Ïî
InterlockedPopEntrySList »ñµÃ×î¶¥Ò»Ïî²¢½«Ëüµ¯³ö
InterlockedFlushSList Çå¿ÕÔ×ÓÁ´ ......
¸Õѧ ²»ÒªÐ¦ÎÒ°¡
ÎÒ¶¨ÒåÁËÒ»¸ö·½·¨·µ»ØÖµÊÇÒ»¸öÕûÐÍÊý×é
function checkMain(str:String):array of integer;
×ÜÊDZ¨´í
Èç¹ûÕâÑù²»¶Ô ¸æËßÎÒÕýÈ·µÄ¶¨Òå·½·¨ ллÁË£¡£¡
type
TI = array of Integer;
function MyFunction(): TI;
......