[DrDharm]

Один добрый человек написал вот такую программку, для рассчета плотности двухкомпонентной смеси от температуры; результат - табличка 81х100 значений...Вопрос, собственно, в следующем, можно-ли эти значения(табличку) как-то впихнуть в Xcel, например, кроме как переписывать вручную ?

Код:

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TFMain = class(TForm)
    table: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    aP1,aP2:array [1..81] of integer;
    procedure LoadArrays;
  end;

var
  FMain: TFMain;

implementation

{$R *.dfm}

procedure TFMain.FormCreate(Sender: TObject);
var
  i,j,P1,P2,D1:integer;
begin
  LoadArrays;
  //Создание обозначений столбцов и строк
  for i:=0 to 100 do
    table.Cells[0,i+1]:=IntToStr(i)+' %';
  for i:=-40 to 40 do
    table.Cells[i+41,0]:=IntToStr(i);
  //Рассчет
  for i:=0 to 100 do
    for j:=-40 to 40 do
      begin
        D1:=i;
        P1:=aP1[j+41];
        P2:=aP2[j+41];
        //Защита от деления на 0
        try
          table.Cells[j+41,i+1]:=FloatToStr(100/(D1/P1+(100-D1)/P2)/10000);
        except
          table.Cells[j+41,i+1]:='0';
        end;
      end;
end;

procedure TFMain.LoadArrays;
const
  ArraysFile='table.txt';
var
  f:TStringList;
  i:integer;
begin
  f:=TStringList.Create;
  if not FileExists(ArraysFile) then
    begin
      Exception.Create('File '+ArraysFile+' not found!');
      halt;
    end;
  f.LoadFromFile(ArraysFile);
  try
    for i:=1 to 81 do
      begin
        aP1[i]:=StrToInt(f[i]);
        aP2[i]:=StrToInt(f[i+82]);
      end;
  except
    Exception.Create('File '+ArraysFile+' format error!');
    halt;
  end;
  f.Free;

end;

end.

Админ: Пользуемся тегами для оформления кода!