Ah More's blog: August 2017

Wednesday, 30 August 2017

PHP加前导零，去除前导零

$id = 23;
$sn = 0023;
添加前导零：
       方法一：$sn = sprintf("%04d",$id);
       方法二：$sn = str_pad($id,4,"0",STR_PAD_LEFT);
去掉前导零：
       方法一：$id = intval($sn);
       方法二：$id = ltrim($sn,"0");

http://pcwanli.blog.163.com/blog/static/4531561120122129305185/

Wednesday, 16 August 2017

user id

MY-0000 000 - ?

? = 0 ~ 9 a ~ z

Wednesday, 9 August 2017

simply loading an animated gif

5down vote

this is simply loading an animated gif and not making one

procedure TForm1.FormCreate(Sender: TObject);

begin

  ( Image1.Picture.Graphic as TGIFImage ).Animate := True;// gets it goin'

  ( Image1.Picture.Graphic as TGIFImage ).AnimationSpeed:= 500;// adjust your speed

  Form1.DoubleBuffered := True;// stops flickering

end;

Tuesday, 8 August 2017

delphi的Split函数 3种版本

[转]http://blog.163.com/ander_005/blog/static/4407724720110121044457/

一、直接使用如下函数(注：ch只能是单字符，如键盘上英文状态下的字符）
function SplitString(const Source,ch:String):TStringList;
var
temp:String;
i:Integer;
begin
Result:=TStringList.Create;
//如果是空自符串则返回空列表
if Source=''
then exit;
temp:=Source;
i:=pos(ch,Source);
while i<>0 do
begin
Result.add(copy(temp,0,i-1));
Delete(temp,1,i);
i:=pos(ch,temp);
end;
Result.add(temp);
end;

二、直接使用TStringList
procedure TForm1.Button3Click(Sender: TObject);
var
Str:String;
ResultList:TStringList;
I:Integer;
begin
str:= '南京~信息~工程~大学';

ResultList := TStringList.Create;
try
ResultList.Delimiter := '~';
ResultList.DelimitedText := str;

for I:= 0 to ResultList.Count-1 do
begin
Memo1.Lines.Add(ResultList.Strings[I]);
end;
finally
FreeAndNil(ResultList);
end;
end;

三、支持特殊字符版（ch可以为字符串，如'aa')
function SplitString(const Source,ch:String):TStringList;
var
Temp:String;
I:Integer;
chLength:Integer;
begin
Result:=TStringList.Create;
//如果是空自符串则返回空列表
if Source='' then Exit;
Temp:=Source;
I:=Pos(ch,Source);
chLength := Length(ch);
while I<>0 do
begin
Result.Add(Copy(Temp,0,I-chLength+1));
Delete(Temp,1,I-1 + chLength);
I:=pos(ch,Temp);
end;
Result.add(Temp);
end;

Wednesday, 2 August 2017

share 2 fb

Step-by-Step

Choose URL or Page. Pick the URL of a website or Facebook Page you want to share.
Code Configurator. Paste the URL to the Code Configurator and adjust the layout of your share button. ...
Copy & Paste HTML snippet. Copy and past the snippet into the HTML of the destination website.

Share Button - Social Plugins - Facebook for Developers

https://developers.facebook.com/docs/plugins/share-button

[转]Execute and Run Applications and Files from Delphi Code

[转] https://www.thoughtco.com/execute-and-run-applications-1058462

SHELLEXECUTE

To launch an application or execute a file in Win32 environment we will use the ShellExecute Windows API function. Check out the help on ShellExecute for a full description of parameters and error codes returned.
As you will see we can open any type of document from our program without knowing which program is associated with it (this link is defined in the Windows Registry).

Let's see some shell action!
Be sure to add ShellApi to your Unit's uses clause.

Run Notepad

 uses ShellApi;
 ...
 ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;

Open SomeText.txt with Notepad

 ShellExecute(Handle,'open', 'c:\windows\notepad.exe','c:\SomeText.txt', nil, SW_SHOWNORMAL) ;

Display the contents of the "DelphiDownload" folder

 ShellExecute(Handle,'open', 'c:\DelphiDownload', nil, nil, SW_SHOWNORMAL) ;

Execute a file according to its extension.

 ShellExecute(Handle, 'open', 'c:\MyDocuments\Letter.doc',nil,nil,SW_SHOWNORMAL) ;

Here's how to Find an application associated with an extension

Open web site or a *.htm file with the default web explorer

 ShellExecute(Handle, 'open', 'http://delphi.about.com',nil,nil, SW_SHOWNORMAL) ;

Here's how to Open a Web Browser in a new window

Send an e-mail with the subject and the message body

 var em_subject, em_body, em_mail : string;
 begin
   em_subject := 'This is the subject line';
   em_body := 'Message body text goes here';
 
   em_mail := 'mailto:delphi@aboutguide.com?subject=' +
     em_subject + '&body=' + em_body ;
 
   ShellExecute(Handle,'open',
     PChar(em_mail), nil, nil, SW_SHOWNORMAL) ;
 end;

Here's how to send an email with the attachment

Execute a program and wait until it has finished. The following example uses the ShellExecuteEx API function.

 // Execute the Windows Calculator and pop up
 // a message when the Calc is terminated.
 uses ShellApi;
 ...
 var
    SEInfo: TShellExecuteInfo;
    ExitCode: DWORD;
    ExecuteFile, ParamString, StartInString: string;
 begin
    ExecuteFile:='c:\Windows\Calc.exe';
 
    FillChar(SEInfo, SizeOf(SEInfo), 0) ;
    SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
    with SEInfo do begin
      fMask := SEE_MASK_NOCLOSEPROCESS;
      Wnd := Application.Handle;
      lpFile := PChar(ExecuteFile) ;
 {
 ParamString can contain the
 application parameters.
 }
 // lpParameters := PChar(ParamString) ;
 {
 StartInString specifies the
 name of the working directory.
 If ommited, the current directory is used.
 }
 // lpDirectory := PChar(StartInString) ;
      nShow := SW_SHOWNORMAL;
    end;
    if ShellExecuteEx(@SEInfo) then begin
      repeat
        Application.ProcessMessages;
        GetExitCodeProcess(SEInfo.hProcess, ExitCode) ;
      until (ExitCode <> STILL_ACTIVE) or
   Application.Terminated;
      ShowMessage('Calculator terminated') ;
    end
    else ShowMessage('Error starting Calc!') ;
 end;

Ah More's blog