울트라초보 wrote:

> 텍스트파일이..

>

> 65 58

> 100 25

>

> 이런식으루 잇는데여..

> 리스트박스두개에 나눠서 쓸려고합니다..

> 왼쪽은 왼쪽대로..오른쪽은 오른쪽대로..

> 근데 어떻게해야하나여?



다음 코드를 참조하세요

procedure TForm1.Button1Click(Sender: TObject);

var

f : textfile;

s: string;

i: integer;

begin

if OpenDialog1.Execute then

begin

Assignfile(f, opendialog1.filename); //opendialog.fileName 대신 파일 이 름으로 바꿔도 됨

Reset(f); //화일을 처음으로 돌림

while not Eof(f) do

begin

Readln(f,s); //첫줄을 읽음

i:= pos(' ', s); //space 한칸 빈곳의 자리수를 알아냄

listbox1.Items.add(copy(s,1,i-1)); //첫문자 부터 빈칸 앞자리까지

listbox2.Items.add(copy(s,i+1,10)); //빈칸 뒤부터 ~

end;

Closefile(f);

end;

end;