다 기억을 못해서...

The following code reads a file's attributes into a set variable, sets the check boxes in a file-attribute dialog box to represent the current attributes, then executes the dialog box. If you change and accept any dialog box settings, the code sets the file attributes to match the changed settings. Click a file to launch the dialog. procedure TForm1.FileListMouseUp(Sender: TObject; Button: TMous..

배열을 문자열로 변환 procedure SetString(var S: String; Buffer: PChar; Length: Integer); Sets the contents and length of the given string. In Delphi code, SetString sets the contents and length of the given string variable to the block of characters given by the Buffer and Length parameters. For a short string variable, SetString sets the length indicator character (the character at S[0]) to the value gi..

Showmessage(IntToStr(DBGrid1.DataSource.DataSet.RecNo));

procedure Form1.Button1Click(Sender: TObject);begin // 모래시계 모양 Screen.Cursor:=crHourGlass; // 정상 커서 Screen.Cursor:=crDefault; end;https://pierrot-98.tistory.com/42 [델파이] 마우스 커서 바꾸기1 2 3 4 5 6 7 8 procedure Form1.Button1Click(Sender: TObject); begin // 모래시계 모양 Screen.Cursor:=crHourGlass; // 정상 커서 Screen.Cursor:=crDefault; end; Colored by Color Scripter cs 기본적으로 많이쓰는 커서 모양 여러 개가pierrot-98.t..

1. procedure SaveText(strText: string); var txtFile: TextFile; strFileName: string; begin strFileName := 'C:test.txt'; AssignFile(txtFile, strFileName); try if (FileExists(strFileName) = True) then Append(txtFile) else ReWrite(txtFile); WriteLn(txtFile, strLog); finally CloseFile(txtFile); end; end; 2. Using TFile uses System.IOUtils procedure SaveText(strText: string) var strFileName: string; b..

// uses WinSvc function ServiceGetStatus(sMachine, sService: PChar): DWORD; {******************************************} {*** Parameters: ***} {*** sService: specifies the name of the service to open {*** sMachine: specifies the name of the target computer {*** ***} {*** Return Values: ***} {*** -1 = Error opening service ***} {*** 1 = SERVICE_STOPPED ***} {*** 2 = SERVICE_START_PENDING ***} {**..

https://bloodguy.tistory.com/entry/Delphi-Windows-%EC%82%AC%EC%9A%B4%EB%93%9C-%EC%BC%9C%EA%B8%B0%EB%81%84%EA%B8%B0-%EB%B3%BC%EB%A5%A8%EC%A1%B0%EC%A0%88 [Delphi] Windows 사운드 켜기/끄기, 볼륨조절 볼륨조절함수 MMRESULT waveOutSetVolume( HWAVEOUT hwo, DWORD dwVolume ); Parameters hwo Handle to an open waveform-audio output device. This parameter can also be a device identifier. dwVolume New vo.. bloodguy.tistory.c..

https://dlsenfl.tistory.com/entry/TIniFile TIniFile [Delphi | 델파이] TIniFile 클래스 관리자 tenlie10 2016.01.28 19:20 // #include INI파일이란? INI는 Initialization의 약자로 설정/환경 파일의 일종이다. 단순 구조의 텍스트 파일로 이루어져 있으며 .. dlsenfl.tistory.com

https://monoworld-1.tistory.com/603 델파이 폼 모달 TForm modal, modaless show 델파이 폼 모달 TForm modal, modaless show 1. 모달 폼 띄우기 (팝업창, 모달, modal) ex) 설정폼. TfrmSetup frmSetup := TfrmSetup.Create(Self); // 폼 생성 ..... // 폼 생성 후 보이기 전에 하는.. monoworld-1.tistory.com procedure TmyForm.ButtonClick(Sender: TObject); var frmEx1: TfrmEx1; begin frmEx1 := TfrmEx1.Create(Self); try frmEx1.ShowModal; finally frmEx1.Fr..

uses System.Diagnostics var stopwatch: TStopWatch; begin stopwatch := TStopWatch.StartNew; try process ~~ // Get process time : stopwatch.ElapsedMilliseconds finally stopwatch.Stop; end; end; http://docwiki.embarcadero.com/Libraries/Sydney/en/System.Diagnostics.TStopwatch System.Diagnostics.TStopwatch - RAD Studio API Documentation From RAD Studio API Documentation Delphi TStopwatch = record str..