zoukankan      html  css  js  c++  java
  • WinAPI 字符及字符串函数(10): lstrcpy 复制字符串

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
      p,p1: PChar;
    begin
      p1 := 'Delphi';
      GetMem(p, 256);
    
      lstrcpy(p, p1);
      ShowMessage(p); {Delphi}
    
      FreeMem(p);
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    var
      p,p1,p2: PChar;
    begin
      p1 := 'Delphi';
      p2 := '2009';
      p := StrAlloc(256);
    
      lstrcpy(p, p1);
      lstrcpy(p, p2);
      ShowMessage(p); {2009}
    
      StrDispose(p);
    end;
    
    procedure TForm1.Button3Click(Sender: TObject);
    var
      p: PChar;
      buf: array[0..255] of Char;
    begin
      p := '万一的 Delphi 博客';
      lstrcpy(buf, p);
      ShowMessage(buf); {万一的 Delphi 博客}
    end;
    
    end.
    
  • 相关阅读:
    数据结构上机思考
    hdu1005,循环节
    网络赛总结
    icpc沈阳网络赛。cake cake!
    树的基础代码
    网络赛第一场
    欧拉函数
    欧拉函数
    多校第十场
    (环上)最大子段和
  • 原文地址:https://www.cnblogs.com/del/p/1327606.html
Copyright © 2011-2022 走看看