혹시나 질문에 대한 답이 아니라면 ...

그냥 참조 하시길 .... 수고하이소



function TForm1.RichSize(FileName: string): String;

var

f : textfile;

s : string;

i,j : integer;

begin

i := 0;

j := 0;

Assignfile(f,FileName);

Reset(f);

while not Eof(f) do

begin

Readln(f,s);

if i < length(s) then

begin

i := length(s) ;

end;

j := j + 1;

end;

Closefile(f);

result := IntToStr(i*9) + ' ' +IntToStr(j*12);

//FONT 계산은 추가하이소

end;



procedure TForm1.Button1Click(Sender: TObject);

var

f : textfile;

s : string;

i : integer;

begin

RichEdit1.clear;

if OpenDialog1.Execute then

begin

Assignfile(f, opendialog1.filename);

Reset(f);

i := pos(' ',RichSize(opendialog1.filename));

RichEdit1.Width := StrToInt(Copy(RichSize(opendialog1.filename),1,i-1));

RichEdit1.Height := StrToInt(Copy(RichSize(opendialog1.filename),i+1,10));

// 폼에 대한 Resize 는 추가 하이소

while not Eof(f) do

begin

Readln(f,s);

RichEdit1.Lines.add(s);

end;

Closefile(f);

end;

end;