termy wrote:

> 리스트뷰에 openpicturedialog에서 선택된(여러개) 화일을

> 리스트뷰에 멀티라인으로 넣고 싶은데 한줄로 들어가네요.

> 소스는 아래와 같습니다.

> listitem:=filelist.Items.Add;

> listitem.Caption:=(OpenPicDlg.Filename);

> 아시는 분은 도와주세요.



질문 내용을 좀 자세히 써 주셨으면...

제가 이해하기로는 멀티로 선택된 파일들 각각을 분리하여

리스트뷰에 넣으시는 걸로 알겠습니다



FileName 프로퍼티는 마지막 선택된 파일 하나만 나타냅니다

Files 프로퍼티를 사용하시면 각각을 접근할 수 있습니다

아래는 도움말에 있는 "Files" 프로퍼티 내용을 그대로 올립니다



procedure TForm1.Button1Click(Sender: TObject);

var

I: integer;

F: TextFile;

FirstLine: string;

begin

OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];

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

OpenDialog1.FilterIndex := 2; { start the dialog showing all files }

if OpenDialog1.Execute then

with OpenDialog1.Files do

for I := 0 to Count - 1 do

begin

AssignFile(F, Strings[I]); { next file in Files property }



Reset(F);

Readln(F, FirstLine); { Read the first line out of the file }

Memo1.Lines.Append(FirstLine); { Add the line to the memo }

CloseFile(F);

end;

end;

> procedure TForm1.Button1Click(Sender: TObject);

> var

> I: integer;

> F: TextFile;

> FirstLine: string;

> begin

> OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];

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

> OpenDialog1.FilterIndex := 2; { start the dialog showing all files }

> if OpenDialog1.Execute then

> with OpenDialog1.Files do

> for I := 0 to Count - 1 do

> begin

> AssignFile(F, Strings[I]); { next file in Files property }

>

> Reset(F);

> Readln(F, FirstLine); { Read the first line out of the file }

> Memo1.Lines.Append(FirstLine); { Add the line to the memo }

> CloseFile(F);

> end;

> end;

김영대님 소스대로 하니 이상하게 나오는데요.

뭔가 multiline으로 들어가기는 하는데 이상하게 나오네요.