var f:TextFile; str:string; begin opendialog1.Filter:='datÎļþ(*.dat) |*.dat |bmpÎļþ(*.bmp) |*.bmp'; opendialog1.Execute; str:=copy(opendialog1.FileName,length(opendialog1.FileName)-2,3); if str='dat' then begin Assignfile(f,OpenDialog1.FileName); Reset(f); try while not Eof(f) do begin Readln(f,Rx,Ry ); PointsA.AddXY(Rx, Ry); end; finally closefile(f); end; end; if str='bmp' then begin PicFileName := opendialog1.FileName; cht1.BackImage.LoadFromFile(PicFileName); stat1.Panels[0].Text := PicFileName; end; end;
