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으로 들어가기는 하는데 이상하게 나오네요.

그리고 저는 OpenPictureDialogbox를 사용했고

리스트뷰의 각각의 라인에 선택된 파일을 넣고 싶습니다