Курсовая работа: Расчетная методика проектирования программного комплекса

end;

procedure TForm1.N2Click(Sender: TObject);

var

i:Integer;

f: System.Text;

sX: string;

X: Real;

begin

with OpenDialog1 do

if Execute then

begin

AssignFile(f, OpenDialog1.FileName);

Reset(f);

ReadLn(f, sX);

X := StrToFloat(sX);

Xc := X;

i := 0;

while not EOF(f) do

begin

i := i + 1;

ReadLn(f, sX);

X := StrToFloat(sX);

arrReal[i] := X;

end;

N := i;

CloseFile(f);

Label2.Caption := FloatToStr(Xc);

Label4.Caption := format('Кол-во: %d',[N]);

Memo1.Lines.Clear;