Tlist류의 실현을 학습한다[1]

2026 단어
최근에 함수 목록을 정리했는데 거시적인 안배라고 할 수 있다.나중에 함수를 다시 만났을 때 좀 더 순서 있게 놓을 수 있다.
함수와 클래스에 대한 나의 이해는 다음과 같다.
함수는 하나의 기능 모듈이고 클래스는 더욱 강한 기능 모듈이다.Delphi는 이미 많은 함수와 종류를 제공했지만, 우리는 본체만체하고 다시 불씨를 갈았다.
인터넷에 델파이 전문가가 몇 년 동안 '어댑터' 업그레이드와 관련된 함수를 개발한 것을 기억했는데, 마침내 어느 날 델파이가 이 함수를 가지고 있었다고 말했다.
델피가 해시표도 없다고 욕하는 것도 봤지만, 사실 그만이 몰랐을 뿐이었다.
나 자신도 StringOfChar와 유사한 기능을 바보같이 실현한 적이 있다. 이 게시물에서
http://www.cnblogs.com/del/archive/2008/03/12/1101970.html
일찌감치 몇 개의델피의 유형을 진지하게 배우고 그 실현 과정과 실현 방향을 보고 자신의 프로그램을 바른 길로 들어서도록 하려고 했다.Tlist를 시작으로 선택한 것은 단순하고 자주 사용하기 때문일 뿐만 아니라, TObject에서 직접 파생된 것이기 때문이다.
다음 세 가지 쓰기 방법으로 TObject에서 상속되는 클래스를 정의합니다.
4
TMyList = class(TObject)
end;

TMyList = class
end;

TMyList = class(TObject);

 
 
 
 
 

 

 
  
만약에 이 단원에서만 사용한다면implementation구역에 정의할 수 있다.그러나 다른 단원들이 모두 사용할 수 있도록interface 구역에 두어야 한다.
변수를 정의하려면 Var, 상수는 Const가 필요하듯이 새로운 유형을 정의하려면 Type가 필요합니다.
구내의 모든 유형은 하나의 Type을 공용할 수 있으며, 만약 번거로움을 싫어하지 않는다면, 각각의 유형은 각각 Type을 붙여도 안 된다.
아래의 예에서 TMyList류는interface구역 TForm1류의 뒤에 정의된다. 왜냐하면 그들은 의존관계가 없기 때문에 앞뒤가 상관없기 때문이다.
비록 우리는 이 클래스에 어떤 기능도 추가하지 않았지만, 이것은 TObject에 계승되고, TObject에private 구역이 없기 때문에, 현재 TMyList는 TObject와 같은 기능을 가지고 있지만, Delphi는 그것들이 이미 하나의 유형이 아니라고 생각한다.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

  {     TMyList  }
  TMyList = class(TObject)

  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  myList: TMyList; {     TMyList     }
begin
  myList := TMyList.Create;
  ShowMessage(myList.ClassName); {TMyList}
  myList.Free;
end;

end.

 
 
 
 
 

 

 
  

좋은 웹페이지 즐겨찾기