Coffee Break

※ Delphi 에서 Json Data Parsing 하는법은 검색 해보면 많이 있다. ※ 배열 갯수 와 배열 Data Parsing 하는 Sample Source 이다. 1. 수신 데이터 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 { "Parsing":[ { "Parsing1":"Parsing123030", "Parsing2":"0010", "Parsing3":"ParsingGROUP040", "Parsing4":0, "Parsing5":"Parsing001040", "Parsing6":"Lo2040", "Parsing7":"2021.02.05 11..

※ TstringgGrid 간단 문법 예제 이다. ※ 사용 언어 : DelphiXE3 1. 실행 화면 2. Sample Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 with StringGrid1 do begin ColCount := 10; FixedCols := 1; FixedRows := 1; DefaultRowHeight := 20; DefaultColWidth := 80; Cells[00,0] := '1'; Cells[01,0] := '2'; Cells[02,0] := '3'; Cells[03,0] := '4'; Cells[04,0] := '5'; Cells[05,0] := '6'; for i :=..

※ 이것도 한참 Delphi 공부 할때 예제로 코딩하였던 예제이다. ※ 마방진이라고 왜 했는지 기억이.. 함수 공부하려고 했던 것 같다. ※ 사용 언어는 Delphi7 1. 실행 화면 ※ button Click 시 저렇게 마방진 숫자가 나오는 예제 코드 였다. 2. Sample Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 8..

※ 2017년도에 이유는 모르지만 제작 했던 델파이 기반 계산기 입니다. ※ 당시에 Delphi2008로 코딩 했던것 같다. 1. 실행 화면 ※ 당시에 윈도우 계산기와 비슷하게 제작 하려고 했던 것 같다. 2. 계산기 부분 Sample Source ※ 필요 하신 부분이 있으시면 참고용으로 봐주시면 될 듯 하다. ※ 혹시 전체적인 Source 가 필요하신분은 댓글을 달아 주시면 전달 드릴 수 있도록 하겠습니다. // 숫자 클릭했을 때 function TForm_calc.NumberClick(Temp:Integer):Integer; begin // 계산 한번 끝나고 숫자입력시 All Clear if Calc_Seq = 20 then begin Btn_CClick(nil); end; // 소수점 없음 if D..