Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DELPHI °ÑÁ÷ת»»³É×Ö·û´®ÕâÑù³ÉÂð£¬ÊÇGBKµÄ±àÂëÂð

function TFrm_FncUpdateManager.StreamToString(
  aStream: TStream): String;
var
  vi: Integer;
begin
  Result := '';

  if not Assigned(aStream) then
    Exit;

  SetLength(Result, aStream.Size);

  for vi := 0 to Pred(aStream.Size) do
  begin
    aStream.Position :=  vi;
    aStream.Read(Result[Succ(vi)], 1);
  end;

end;
ÄãÓÃÁ÷µÄ»°Óò»×ÅÕâôÂé·³
TStringStreamÓÃÕâ¸öÁ÷ ½øÐжÁд²Ù×÷

aStream.WriteString('°¡´ò·¢·¢Éú·¢Éú·É');

aStream.ReadString('°¡´ò·¢·¢Éú·¢Éú·É');

ÔÙÆä´Î StreamÊǸö³éÏóÀ࣬Äã²»ÄÜÖ±½Óµ÷ÓõÄ

Â¥ÉÏѧ¹ý¶à̬°É


ÒýÓÃ
Â¥ÉÏѧ¹ý¶à̬°É

µÄÈ·.
ÕâÕâÀïÖ»ÊÇÉùÃ÷ʵÀýÊÇÒ»¸öTStream»òÕßTStreamµÄ×ÓÀà,ÓÖûÓÐÈ¥´´½¨TStreamÀàµÄʵÀý

ÊDz»ÊÇGBKÐèÒª×Ô¼ºÅжÏÒ»ÏÂ

ÒòΪ·þÎñ¶ËµÄÊÇJAVAÒª°ÑÁ½±ßµÄµÄÁ÷°ü½øÐе÷Óã¬ËùÒÔÒªMD5ÑéÖ¤£¬¶¼×ªÕýͬһµÄ¸ñʽ,ÎÒ´«µÄÊÇÎļþÁ÷¡£

ÔõôÑù°ÑÁ÷¶¼´«»»³ÉGBKÄØ


ÒýÓÃ
1. ÄǸöÑ­»·Ã»±ØÒª
Delphi(Pascal) codefunction TFrm_FncUpdateManager.StreamToString(
  aStream: TStream): String;begin
  Result :='';ifnot Assigned(aStream)then Exit;
  SetLength(Result, aStream.Size);
  aStream.


Ïà¹ØÎÊ´ð£º

¹ØÓÚ±ÜÃâdelphi°æÈ¨»òÕßÊÕÂÉʦº¯µÄ·½°¸¡£

×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......

°²×°ÁËjre6.17ºó£¬Delphi²»Äܹرգ¿

ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......

ÇódelphiºÚ°×Æå´úÂë

ÒªÇóÄÜʵÏÖ¶þÈËÔŲ́ͬµçÄÔÉ϶ÔÕ½µÄ ²»ÓÃÌ«»¨ÉÚ ×îºÃ»¹¼ÓÉÏÈË»ú¶ÔÕ½µÄ ¼±Ðè Ë­°ïÏÂæ°¡Ñ½!!!!!!!!
up

baidu£¬google

up

http://www.codepub.com/software/view-software-4061.html 
ÍøÕ¾ÉÏÓÐ
......

delphi¼òµ¥ÎÊÌâ

IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£
ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿
Çë¸÷λ°ï°ï棬лл£¡
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ