델파이레포트

Max:=false; end; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin Memo1.Lines.Clear; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin if OpenDialog1.Execute then begin fname := OpenDialog1.filename; Memo1.Lines.LoadFromFile(OpenDialog1.filename); Form1.Caption := `Editor - `+fname; end; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.filename); end; end. 실 행 화 면 다음에 나오는 그림과 같이 실행 화면은 그냥 텍스트를 입력하고 저장 할 수 있는 간단한 메모장과 같습니다. 윈도우에서 사용 되는 메모장과 사용 방법은 거의 비슷합니다. 양쪽 스크롤은 다 아시는 것과 같이 스크롤바 이며 아래쪽에 있는 버튼을 설명 하면 왼쪽에서부터 새문서 버튼, 그리고 파일열기 맨 오른쪽은 저장하기입니다. 그리고 위에 있는 네모난 버튼이 이 프로그램은 종료하는 버튼입니다. 이 버튼은 윈도우 창의 X 와 비슷한 역할을 합니다. 다음은 문서를 읽어 들이는 실행 화면입니다.