본문 바로가기

Delphi/문법64

델파이 포인터 사용 팁 델파이 포인터 사용 팁 ShellApi 를 이용할때 윈도우에서 사용하는 언어인'C' 와 델파이의 'Pascal'의 포인터 다루는 방법이 달라많은 혼동(나만?)을 일으킨다. 특히나 파스칼에서는 포인터방법이여러가지가 있어 햇갈리기 아주 좋다. 그래서 한번 정리하여 보았다.예제는 폴더를 찾아 지정하는SHBrowseForFolder 를 이용하는 것으로 하였다. 1. 버퍼를 이용하는 방법var Buffer: array[0..255] of char; beginpszDisplayName:= @Buffer; .......MessageBox(handle, Buffer, '', MB_OK); end; 2. pChar 를 이용하는 방법 : 'C' 와 유사var Buffer: pChar;beginGetMem(Buffer, 2.. 2024. 7. 4.
간단한 상속(succession) / 인터페이스(interface) 상속(succession)  인터페이스(interface)   델파이에서는 클래스 다중상속이 안되기 때문에보통 인터페이스 다중상속을 많이 사용한다. 원래 클래스 상속에서 기본적으로 배우는게 공통되는 기능을상위클래스의 메소드로 만들고 하위클래스에서그 메소드를 오버라이드 해서 구현하는 것인데 이런것이 인터페이스로도가능한 것이므로 둘을 비교해서 간단하게 살펴보자. 예를들어 Animal 클래스가 있고 cat 클래스가 상속을 하든인터페이스를 상속하든 bark 라는 '야옹이라고 짖는' 메소드를 구현하는 예제이다. type{ interface }IAnimalIntf = interface(IUnknown)procedure bark;end; TCat = class(TInterfacedObject, IAnimalIntf).. 2024. 6. 20.
인터페이스에 오브젝트 얻기 인터페이스에 오브젝트 얻기  function GetImplementingObject(const I: IInterface): TObject;constAddByte = $04244483;AddLong = $04244481;typePAdjustSelfThunk = ^TAdjustSelfThunk;TAdjustSelfThunk = packed recordcase AddInstruction: longint ofAddByte : (AdjustmentByte: shortint);AddLong : (AdjustmentLong: longint);end; PInterfaceMT = ^TInterfaceMT; TInterfaceMT = packed recordQueryInterfaceThunk: PAdjustSelfThun.. 2024. 5. 30.
델파이의 String 변수 팁 델파이의 String 변수 팁      내부적으로는 포인터이면서 외견상으로는 숫자와 같은 일반 변수처럼 작동한다. 따라서 string변수는 자유롭게 포인터형태로 타입캐스팅이 가능하며포인터 조작이 가능하다. vars1: string;p: pointer;begins1 := 'Hello world'; p := pointer(s1);Move(p^, xxx^, Length(s1));end;  다른 특징은 델파이의 스트링변수를 복사할때 나타난다. vars1 : string;s2: stringbegins1 := 'Hello world';s2 := s1;Memo1.Lines.Add(inttostr(integer(Pointer(s1))) + ','+ inttostr(integer(Pointer(s2)))); 메모에서 확.. 2024. 5. 24.
for TCollectionItem for TCollectionItem  for 컬렉션아이템 in 컬렉션 do begin....end;  사용법예시varItem : TCollectionItem; beginfor Item in TCollection do beginItem.Name... 등으로 해당 컬렉션 아이템으로 작업end;end; 위와 같이 주로 컬렉션 작업때 유용하지만..배열에서도 사용할 수가 있다고 되어 있네요. 예를 들면varI : Integer;IArray1: array[0..9] of Integer = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);beginfor I in IArray1 dobegin// Do something with I...end;end; 이와 같이..이 같이 for ... in 문장을 지원하는 클.. 2024. 5. 11.
ShortString, LongString, WideString 정적배열, 동적배열 ShortString, LongString, WideString 정적배열, 동적배열   짧은 문자열 타입 (ShortString)  var Str : ShortString; 총길이는 255이고Str[0]에 문자열의 길이가 담겨져 있고 다음 인덱스 부터는 문자가 들어간다여기서 한가지 지시어를 소개 시켜드리자면 Absolute 이다varStr : ShortString;StrLen : Byte Absolute Str 이렇게 하면 StrLen은 Str의 시작주소가 같게 된다. 긴 문자열 타입(Long Stirng)  오프셋 내용-8 32비트 참조 카운트 -4 바이트 단위의 길이 0..길이-1 문자열길이 Null 문자Str := 'Edit1'이라고 넣고 -8 부터 -1까지의 주소의 값이 20005000..32비트.. 2024. 5. 6.
델파이 코드구역(REGION) 사용방법 델파이 코드구역(REGION) 사용방법 {$REGION 'MyRegion'} procedure MyRegion1; begin end; procedure MyRegion2; begin end; {$ENDREGION} 2024. 4. 12.
상속(inheritance)과 연결(association) 상속(inheritance)과 연결(association) 객체지향에서 상속은 매우 막강한 개념이지만, 상속으로 모든 문제를 풀려하면 더 꼬이는 경우가 많이 발생한다. 상속의 가장 큰 단점은 클래스 관계를 복잡하게 만든다는 것이다. 여러 단계의 상속은, 이해하기도 힘들 뿐더러 수정도 쉽지 않다. 상속은 All or Nothing 개념이다. 이말인즉, 상속은 상위 클래스의 모든 기능을 하위 클래스로 전이 한다는 것이다. 이 때문에, 상위 클래스의 기능 중에서 어떤 기능을 제거하거나 추가하려면, 그 상위 클래스로 부터 상속받은 새로운 클래스를 만들고 그 기능을 override해야 한다는 문제점이 있다. 이 과정이 반복되면 쪼잔한 기능 때문에 수많은 클래스 계층 구조가 생기므로, 객체지향 고수들은 다른 방법을.. 2024. 4. 8.
델파이 추상화(abstraction) 델파이 추상화(abstraction) abstraction(추상화)라는 단어를 프로그래밍에 관한 책에서 한번쯤 들어봤을 것이다. 그런데, 대다수의 책이 이 단어의 의미를 매우 장황하고 어렵게 설명하기 때문에, 이해하기 어렵다. 추상화란 간단히 이야기하자면 다음과 같이 정의할 수 있다. 추상화(abstraction) "어떤 대상에 명칭(이름)을 부여하고, 그 대상의 성질을 파악하고 분류하려는 인간적 능력" 말이 어려운가? 달리 예를 들어 보자. "감정에는 아픔, 슬픔, 기쁨, 고통 등이 있다." 아픔, 슬픔, 기쁨, 고통은 실존하는 대상(물체)이 아니다. 그러나 우리 인간들은 이 실존하지 않는 애매한 개념에 이름을 붙이고 그것들을 분류하였다. 다시 말해서, 감정이란 대표 개념의 일부로서 아픔, 슬픔, 기쁨.. 2024. 3. 26.
델파이 메소드 포인터(Method Pointer) 델파이 메소드 포인터(Method Pointer) 프로시저 형 (Procedural Type) : C 언어의 함수 포인터와 유사한 개념. 정수나 문자열 변수 뿐 아니라 프로시저를 변수로 사용할 수 있다. type TestProc = procedure (var Param: Integer); 다음과 같이 선언된 프로시저 형의 변수 TestProc이 있다. 이것은 레퍼런스에 의해 전달되는 정수 파라미터의 프로시저 형의 변수를 뜻한다. 이 프로시저 형은 정확하게 같은 파라미터를 갖는 루틴이면 어느 것과도 호환이 된다. procedure DoubleProc (var Value: Integer); begin Value := Value * 2; end; procedure TripleProc (var Value: In.. 2023. 10. 24.
델파이 동적 2차원 배열 델파이 동적 2차원 배열 델파이 동적 2차원 배열 런타임 시에 크기를 조정할 수 있는 배열을 의미 2차원 배열을 저장할 변수를 선언합니다. 예를 들어, 다음과 같이 선언할 수 있다 var MyArray: array of array of Integer; 배열을 생성하려면 SetLength 함수를 사용한다. 예를 들어, 3x3 크기의 배열을 생성하려면 다음과 같이 할 수 있다 SetLength(MyArray, 3, 3); 배열에 접근하려면 행과 열 인덱스를 사용한다. 예를 들어, 배열의 원소에 접근하려면 다음과 같이 할 수 있다 MyArray[0][0] := 1; MyArray[0][1] := 2; MyArray[1][0] := 3; // 이런 식으로 계속해서 배열을 초기화할 수 있습니다. 배열 크기를 동적.. 2023. 9. 25.
델파이 Parameter 델파이 Parameter Parameter 일반적으로 함수나 메서드로 전달되는 값이라고 한다. 이것은 함수나 메서드가 실행될 때 필요한 정보를 전달하고 결과를 반환하는 데 사용되며, 파라미터는 함수나 메서드의 정의에 포함되며 해당 함수나 메서드를 호출할 때 전달해야 하는 값들을 명시적으로 지정한다. 파라미터는 함수나 메서드의 매개변수로도 알려져 있다. function myfunc ( a : String ; const b : String; var c : TButton; out d : integer; ) : integer; 1) 'a' : 아무 선언없이 쓰인 경우로 'a'는 function 내에서 선언된 local 변수처럼 사용된다. 2) const 'b' : function 내에서 b는 상수로 사용된다. .. 2023. 9. 22.
델파이 Application 델파이 Application TApplication TApplication type 으로, 프로그램 그 자신으로 생각할 수 있다. Delphi 어플리케이션의 주요 실행 및 관리를 담당합니다. Delphi는 GUI (그래픽 사용자 인터페이스) 기반 애플리케이션을 개발하기 위한 강력한 통합 개발 환경(IDE)이며, TApplication은 이 환경에서 GUI 애플리케이션을 작성할 때 핵심 역할을 한다. Dpr(프로젝트 파일) 과 개발환경 내 Project -> options -> Application에서 Title, Help File, Icon 등을 지정해 줄 수 있다. [일반사항] - 전체중 일부로 특정한 것만을 기록했다. Property - ExeName : String ; - 경로를 포함한 실행파일 명.. 2023. 9. 21.
델파이 Self 델파이 Self Self 일반적으로 method가 있는 object (예: Form에는 Create method가 있다)의 reference 이다. 객체 지향 프로그래밍에서 "self"는 주로 현재 객체(인스턴스)를 가리키는 특별한 키워드 또는 식별자이다. 일반적으로 method가 있는 object (예: Form에는 Create method가 있다)의 reference 이다. Delphi에서는 "self" 대신에 "Self"라는 예약어를 사용합니다. "Self"를 사용하여 현재 객체의 속성 및 메서드에 접근하거나 다른 객체와 구분하기 위해 사용됩니다. 예를 들면, Button1 := TButton.Create(Self); 위의 예와 같은 경우에 Self는 Button의 Owner인 Form을 가리킨다... 2023. 9. 20.
델파이 Owner 와 Parent 델파이 Owner 와 Parent 델파이 "Owner"와 "Parent"는 객체 지향 프로그래밍 개념 중에서 객체 간의 관계를 정의하는 데 사용되는 중요한 개념이다 Owner (소유자) "Owner"는 주로 컴포넌트와 관련이 있습니다. 컴포넌트는 Delphi 응용 프로그램에서 재사용 가능한 코드 조각을 나타내며, 시각적 또는 비시각적으로 폼 또는 다른 컴포넌트에 배치될 수 있다. Owner 컴포넌트는 다른 컴포넌트를 소유하고 관리하는 컴포넌트입니다. 예를 들어, 폼(Form)은 여러 컴포넌트를 소유하고 해당 컴포넌트들을 폼 위에 배치합니다. Owner-ownee(소유자-소유물) 관계에서, 소유자 컴포넌트가 소유물 컴포넌트의 생명주기를 관리하며, 소유물이 소유자를 참조할 수 있습니다. 주요 메서드와 속성 .. 2023. 9. 13.
델파이 포인터 (Pointer) 11편 델파이 포인터 (Pointer) 11편 데이터 좌표에 의한 수정 포인터 C/C++ int* pNum; // integer pointer char* pText; // char pointer .. *pNum = 123456; *pText = 'C'; Delphi pNum: ^integer; // integer pointer pText: ^Char; // char pointer ... pNum^ := 123456; pText^ := 'C'; 델파이와 포인터 델파이에선 C/C++ 과 달리 포인터 타입에 주의 하여야 합니다. C/C++ : 어떤 타입의 포인터이든 대입 가능 int* pNum; char* pText; ... pNum = pText; pText = pNum; Delphi : 다른 타입의 포인터를 대입.. 2023. 8. 24.
델파이 포인터 (Pointer) 10편 델파이 포인터 (Pointer) 10편 ShellApi 를 이용할때 윈도우에서 사용하는 언어인 'C' 와 델파이의 'Pascal'의 포인터 다루는 방법이 달라 많은 혼동(나만?)을 일으킵니다. 특히나 파스칼에서는 포인터방법이 여러가지가 있어 햇갈리기 아주 좋습니다. 해서 한번 정리하여 보았습니다. 예제는 폴더를 찾아 지정하는 SHBrowseForFolder 를 이용하는 것으로 하였습니다. 1. 버퍼를 이용하는 방법 var Buffer : array[0..255] of char; begin pszDisplayName:= @Buffer; ....... MessageBox(handle, Buffer, '', MB_OK); end; 2. pChar 를 이용하는 방법 : 'C' 와 유사하지요 var Buffer:.. 2023. 8. 23.
델파이 포인터 (Pointer) 9편 델파이 포인터 (Pointer) 9편 포인터의 이해 1 포인터를 쉽게 이해하기 위해선 어셈블러를 알고 있다면 금방알수 있습니다. 그렇지 않다면 메모리에 대한 계념 자체를 이해하고 있다고 해도 금방 알수가 있죠. 그러지 않다면 배열 에 대한 이해를 알고 있다면 도움이 됩니다. 메모리로 설명 하자면 (윈도우는 32 비트메모리를 쓰므로 32 트로 갑니당) 00000000 2023. 8. 22.
델파이 포인터 (Pointer) 8편 함수 포인터 unit MainFrm uses FrmInt type TFrmMain = class(TForm) private FWinForm: IWin32Form; .... implementation uses WinNTFrm, Win9xFrm; procedure TFrmMain.FormCreate(Sender: TObject); begin if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then FWinForm := TFrmWin9x.Create else if Win32Platform = VER_PLATFORM_WIN32_NT then FWinForm := TFrmWinNT.Create else raise Exception.Create('This application ca.. 2023. 8. 21.
델파이 포인터 (Pointer) 7편 델파이 포인터 (Pointer) 7편 procedure TForm1.MyProcedure; var AStr : ^string; begin AStr^ := 'SAMPLE'; ShowMessage(AStr^); end; 위의 예제는 AStr이 메모리에 할당되지 않아서 에러가 난다고했습니다. 그렇다면 메모리에 어떻게 할당을 해야 할까요? New라고 하는 함수(프로시져임)를 사용합니다. 델파이 New함수는 도움말을 보시면 아시겠지만 동적변수(포인터의 값을 의미)에 포인터를 할당하는 함수 입니다. 그러니까 위의 예제를 에러가 나지않도록 하려면 다음과 같이 한줄 추가 하면 되겠네요. procedure TForm1.MyProcedure; var AStr : ^string; begin New(AStr); { 2023. 8. 11.

티스토리툴바