ÓÃcanvasÔÚformÉϻͼÏñÖ®ºó£¬ÔõÑù±£´æÏÂÀ´£¬±£´æÎªbmp¡¢jpg¶¼ÐÐ
ÒýÓÃ
»ÔÚ image.picture.bitmapÉÏ
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
rgn: HRGN;
begin
&nbs ......
Ö÷ÒªÊÇÖÐÎÄÔõô´¦Àí
delphi×ö·þÎñ¶Ë£¬¾ßÌåµÄ½âÎö´úÂëΪ£º
Delphi(Pascal) code:
var buf ±£´æµÄÊǽÓÊÕµ½µÄbyteÊý¾Ý
function DecodeUTF8(var buf:array of Byte;StartPosition,Len:Integer):string;
var
i:Integer;
m:String;
begin
m:='';
FOR i:=0 TO len-1 DO
m:=m+chr(buf[i+StartPosi ......
ÎÒÔÚpannelÉÏ·ÅÖÃÁË5¸öButton£¬°Ñ£¬ÆäÖÐÁ½¸öButtonµÄvvisiableÉèÖÃΪfalse£¬ÔõôÑùʹÆäËûÈý¸ö¿Ø¼þÖ®¼äûÓмä¸ô£¿
ÔÏÈλÖÃÊÇbutton1 button2 button3 button4 button5
ÏÖÔÚÈçºÎ±ä³Ébutton1 button4 button5
£¿£¿£¿
×Ô¼º´úÂë¿ØÖÆ£¬»òÕß±äͨ£¬·Å5¸öpanel£¬Ã¿¸öpanelÉÏ·ÅÒ»¸öbutton£¬È»ºóÉèÖÃÿ¸öpanelµÄ¶ÔÆë·½Ê½£¬É ......
ÎÒÊÇÒ»Ãûjava³ÌÐòÔ±
ÏÖÔÚ·¢ÏÖjavaÔ½À´Ô½²»ÄÜÂú×㹤×÷ÐèÒªÁË
ÏÖÔÚÏëѧϰdelphi
´ó¼ÒÓÐûÓкõãµÄÈëÃÅѧϰ×ÊÁϰïæÌṩÏÂ
ллÁË£¡
ÎÒÊÇÒ»Ãûdelphi³ÌÐòÔ±
ÏÖÔÚ·¢ÏÖdelphiÔ½À´Ô½²»ÄÜÂú×㹤×÷ÐèÒªÁË
ÏÖÔÚÏëѧϰjava
´ó¼ÒÓÐûÓкõãµÄÈëÃÅѧϰ×ÊÁϰïæÌṩÏÂ
ллÁË£¡
ºÙºÙ
ÏÈ¿´¿´ delphiÓÉdzÈëÉî°É
ÎÒÓÃDel ......
delphi µÄUtf8ToUnicode·½·¨ÔõôÓÃÄØ£¬
Äܲ»ÄܰÑ"4e2d56fd"Õâ¸ö×Ö·û´®×ªÎªÖÐÎÄ£¿
DelphiÀïÃæÓÐUTF8DecodeÕâ¿ÉÍê³ÉÕâ¸ö¹¤×÷¡£
Äܲ»ÄÜд¸ö¾ßÌåµÄÀý×Ó
mark
Delphi(Pascal) code:
uses EncdDecd;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Text := DecodeStri ......
´úÂëÈçÏ£º
Delphi(Pascal) code:
for i := 0 to 49 do
begin
reg.Subject := List[i];
reg.RegEx := '"';
reg.Replacement := '';
reg.ReplaceAll;
end;
Òò³ÌÐòÐèÒª£¬ÎÒÏëÌæ»»ListÕâ¸öÊý×éÖÐËùÓÐÔªËØµÄË«ÒýºÅ¡£µ«ÊÇreg.SubjectʼÖÕ¶¼ÊÇList[0]µÄÖµ£¬ÇëÎÊÊÇʲôÔÒòÄØ£¿
......