Delphi 컬렉션
10843 단어 Delphi
//
type
Uppercase = 'A'..'Z';
Letters = set of Uppercase; //
TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp);
TBorderIcons = set of TBorderIcon; //
//
type
Uppercase = 'A'..'Z';
Letters = set of Uppercase; //
var
L1, L2, L3: Letters;
begin
L1 := ['A', 'B', 'C'];
L2 := ['K'];
L3 := [];
if 'A' in L1 then ShowMessage('true'); //true
if L2=['K'] then ShowMessage('true'); //true
if L3=[] then ShowMessage('true'); //true
end;
//
type
TSet = set of (A,B,C);
var
set1: TSet;
begin
set1 := [A,B];
if A in set1 then
ShowMessage(' set1 A');
end;
//
type
TSet = set of (A,B,C);
var
set1: TSet;
begin
set1 := [A];
set1 := set1 + [B]; //
Include(set1,B); //
set1 := set1 - [B]; //
Exclude(set1,B); //
end;
//
type
TCharSet = set of char;
var
character: 'a'..'z';
charSet: TCharSet;
word: string;
begin
charSet := [];
for character in [Low(character) .. High(character)] do
begin
if character in ['d', 'e', 'l', 'p', 'h', 'i'] then
begin
Include(charSet, character);
end;
end;
for character in charSet do
begin
word := word + character;
end;
ShowMessage(word); //dehilp
end;
컬렉션 요소 개수 가져오기unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
set1: set of Char; { }
c: Char; { }
num: Integer; { }
begin
set1 := ['a'..'z', 'A'..'Z', '0'..'9']; { }
num := 0;
for c in set1 do Inc(num); { set1, num }
ShowMessage(IntToStr(num)); {62}
end;
end.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
[Delphi] TStringBuilder그리고 꼭 사용해야만 할까? 그림처럼 Heap 영역에 "Hello" 공간을 생성하고 포인팅을 한다. "Hello World" 공간을 새로 생성한 후 포인팅을 하게 된다. 결국 "Hello" 라는 String 객체가 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.