선택한 화일을 listbox 에 넣으려구 합니다.
while을 돌리면서 읽은 화일을 listbox 에 담으려구 하는데
while을 화일의 끝까지 돌려야 하지 않을까요?
근데 화일의 끝이라는걸 어떻게 표현해야하는지.....
이 답답함을 해소시켜주세요..
????? 물음표 부분입니다.
procedure TForm1.Button1Click(Sender: TObject);
var
i :Integer;
F: TextFile;
S, T: string;
begin
if (OpenDialog1.Execute) then
begin
ListBox1.Clear;
AssignFile(F, OpenDialog1.FileName);
Reset(F);
Readln(F, S);
While ??? do
begin
ListBox1.Items.Add(S);
end;
CloseFile(F);
end;
end;
|