[TMemo Component] 현재 라인번호 알아내기 메모에서 현재 Caret이 위치하고 있는 줄이 몇 번째 줄인지를 리턴한다. Label1.Caption := IntToStr(GetCurrLine(Memo1)); function GetCurrLine(Memo : TMemo) : integer; begin Result := Memo.Perform(EM_LINEFROMCHAR, Memo.SelStart, 0); end; [TMemo Component] 현재 컬럼번호 알아내기 메모에서 현재 Caret이 위치하고 있는 줄에서 몇 번째 컬럼인지를 리턴한다. Label1.Caption := IntToStr(GetCurrCul(Memo1)); function GetCurrCul(Memo : TMemo)) : integer; begin Result := Memo.SelStart - Memo.Perform(EM_LINEINDEX, GetCurrLine(Memo), 0); end; [TMemo Component] Caret를 원하는 라인으로 이동하기 Caret을 원하는 위치로 이동시키는데 이때 넘겨주는 값이 라인의 한계를 벗어나면 그 안 범위로 위치시킨다. 만약 라인의 맨끝으로 이동시키고 싶다면 아주 큰값을 주면된다. SetCurrLine(Memo1. 10); procedure SetCurrLine(Memo : TMemo; Value : integer); begin if Value < 0 then Value := 0; if Value > Memo.Lines.Count then Value := Memo.Lines.Count; Memo.SelLength := 0; Memo.SelStart := Memo.Perform(EM_LINEINDEX, Value, 0); end; [TMemo Component] Caret을 원하는 컬럼으로 이동하기 SetCurrCul(Memo1. 10); pr...
Append System Unit 문법 : procedure Append(var f:Text); 파일을 추가 기록용으로 오픈한다. 파일 변수 F는 Assign으로 외부 파일과 연결되어 있어야 한다. 외부 파일이 없으면 에러 가 발생하며 이미 열려 있는 경우는 파일을 닫은 후 다시 연 다. 파일을 오픈한 후 FP는 파일 끝(EOF)에 위치시키므로 추 가적인 데이터를 파일 끝에 추가할 수 있다. 다음 예는 루트 디렉토리의 AUTOEXEC.BAT 파일 끝에 PROMPT문을 추가 한다. var F: TextFile; begin AssignFile(F, 'c:\autoexec.bat'); Append(F); { 파일 오픈 } Writeln(F, 'prompt $p$g'); CloseFile(F); { 파일 닫음 } end; end. AssignCrt WinCrt Unit 문법 : procedure AssignCrt(var f:Text); 텍스트 파일 변수를 CRT 윈도우와 연결한다. CRT와 연결된 텍스트 파일은 텍스트 환경의 화면을 에뮬레이션하며 이 파 일로 문자열을 출력하면 CRT 화면으로 문자열이 출력된다. 표준 입출력 명령보다 텍스트 파일을 사용하여 CRT로 입출 력하는 것이 속도가 조금 더 빠르다. 다음 예는 SF라는 텍스 트 파일을 CRT로 연결하여 문자열을 출력한다. var SF:TextFile; begin AssignCRT(SF); Rewrite(SF); Writeln(SF,'Screen File'); CloseFile(SF); end; AssignFile system Unit 문법 : procedure AssignFile(var f,String); 텍스트 파일 변수와 외부 파일을 연결한다. 즉 파일 핸들에 파일을 할당한다. 일단 파일과 핸들이 연결되면 핸들에 대한 모든 조작은 파일로 입출력된다. 이 프로시저로 핸들에 파일 을 할...
댓글
댓글 쓰기