델파이 강좌 기초 #5 (간단한 메모장 만들기)

VCL 기초 3

화면 디자인

사용 컴포넌트 

TMemo, TButton(File Open, File Save), TOpenDialog, TSaveDialog

 

변경한 프로퍼티

• TForm : Name (frmMain), Caption(메모장)
• TMemo Lines 지우기
• File Open 버튼 : Caption (File Open), Name (btnFileOpen)
• File Save 버튼 : Caption (File Save), Name (btnFileSave)

사용할 이벤트

• TForm OnCreate : 프로그램 시작시 실행되어야 할 내용
• TMemo OnChange : 메모장 내용이 변경되었을때
• btnFileOpen OnClick : 버튼 클릭시 실행되어야 할 내용
• btnFileSave OnClick : 버튼 클릭시 실행되어야 할 내용

소스 코드 

FormCreate : 프로그램 실행시 할 내용

• btnFileSave 동작하지 않도록 저장할 내용이 없으니
• OpenDialog Filter 설정 *.txt 파일만 보이도록

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  // 처음 실행시 저장버튼은 동작하지 않도록
  btnFileSave.Enabled := false;

  // File Open 다이얼 로그에서 *.txt 파일만 보이기
  OpenDialog1.Filter := 'Text files|*.txt';

  // Save Open 다이얼 로그에서 *.txt 파일 가능하게
  SaveDialog1.Filter := 'Text files|*.txt';
end;

 

메모장 내용이 변경되었을때 저장 버튼 활성화

procedure TfrmMain.Memo1Change(Sender: TObject);
begin
  // 저장버튼 활성화
  btnFileSave.Enabled := true;
end;

 

File Open 버튼 클릭했을때

procedure TfrmMain.btnFileOpenClick(Sender: TObject);
var
  fileData : TStringList;  // 파일 불러온 TStringList
begin
  // 파일 열기 Dialog 실행
  if OpenDialog1.Execute then begin
    // txt 파일을 읽어올 TStringList 객체초기화
    fileData := TStringList.Create;

    // txt 파일  읽기
    fileData.LoadFromFile(OpenDialog1.FileName);

    // 메모장 컴포넌트에 파일 데이터 넣기
    Memo1.Lines := fileData;
  end;
end;

 

File Save 버튼 클릭했을때

procedure TfrmMain.btnFileSaveClick(Sender: TObject);
begin
  // 저장 다이얼로그 실행
  if SaveDialog1.Execute then begin
    // 메모장의 내용 저장
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
  end;
end;

 

실행화면

 

메모장에 내용을 입력하면 File Save 버튼 활성화

 

File Open 버튼 클릭했을때

 

File Save 버튼 클릭했을때

 

기본적인 Text 파일을 저장하고 읽어오는 기능은 동작합니다. 

다만 여기에서 Text 내용에 한글을 저장(인코딩 필요)한다던가 하는 부분은 추가 작업이 필요합니다.