Tlist류의 실현을 학습한다[1]
함수와 클래스에 대한 나의 이해는 다음과 같다.
함수는 하나의 기능 모듈이고 클래스는 더욱 강한 기능 모듈이다.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.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.