File Open 시에



procedure TForm1.Button1Click(Sender: TObject);

var

I: integer;

F: TextFile;

FirstLine: string;

begin

Memo1.Lines.Clear;

OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];

OpenDialog1.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*';

OpenDialog1.FilterIndex := 2;

if OpenDialog1.Execute then

with OpenDialog1.Files do

for I := 0 to Count - 1 do

begin

AssignFile(F, Strings[I]);

Reset(F);

Readln(F, FirstLine);

Memo1.Lines.Append(FirstLine);

CloseFile(F);

end;

end;



File Save시에



procedure TForm1.Button2Click(Sender: TObject);

var

PathName : String;

begin

SaveDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];

SaveDialog1.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*';

SaveDialog1.FilterIndex := 2;

if SaveDialog1.Execute then

begin

PathName := SaveDialog1.FileName;

Caption := ExtractFileName(PathName);

Memo1.Lines.SaveToFile(PathName);

end;

end;

최진규 wrote:

> 안녕하세요~

> 저는 델파이에 입문한지 얼마 안된 초보입니다.

>

> 다름이 아니라,

>

> FORM에서 MEMO 콤포넌트를 만든후 거기에 쓰인 내용을 SAVE DIALOG를 이용해서

>

> TXT FILE로 저장하는 방법을 알고 싶습니다.

>

> 그리고 그렇게 저장된 TXT FILE을 OPEN DIALOG를 통해 읽어서 MEMO에 보여지는

>

> 방법도 말이죠.

>

> 정말 급해서 그러는데 제발 알려 주세요!!

>

> 부탁드립니다.

>

>

>



안녕하세요...



memo1.lines.loadfromfile('aaa.txt') ;

memo1.lines.savetofile('aaa.txt') ;



.