unit2.pas

交通运输当中的OD流量中OD矩阵的求解

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit8: TEdit;
    Label11: TLabel;
    Edit9: TEdit;
    Label12: TLabel;
    Edit10: TEdit;
    Label13: TLabel;
    Edit11: TEdit;
    Label14: TLabel;
    Edit12: TEdit;
    Label15: TLabel;
    Edit13: TEdit;
    Label16: TLabel;
    Edit14: TEdit;
    Button1: TButton;
    Label17: TLabel;
    Label18: TLabel;
    Edit15: TEdit;
    Edit16: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
  a:array[1..8] of integer;
  b:array[1..8] of integer;
  Myfile:TextFile;
begin
   AssignFile(Myfile,'F:\OD\od.txt');
   Reset(Myfile);
   while not Eof(Myfile) do
   begin
     Readln(Myfile,b[1],b[2],b[3],b[4],b[5],b[6],b[7],b[8]);
     Readln(Myfile,a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8]);
   end;

      edit1.text:=inttostr(b[1]);edit2.text:=inttostr(b[2]);
      edit3.text:=inttostr(b[3]);edit4.text:=inttostr(b[4]);
      edit5.text:=inttostr(b[5]);edit6.text:=inttostr(b[6]);
      edit7.text:=inttostr(b[7]);edit8.text:=inttostr(b[8]);

      edit9.Text:=inttostr(a[1]); edit10.Text:=inttostr(a[2]);
      edit11.Text:=inttostr(a[3]);edit12.Text:=inttostr(a[4]);
      edit13.Text:=inttostr(a[5]);edit14.Text:=inttostr(a[6]);
      edit15.Text:=inttostr(a[7]);edit16.Text:=inttostr(a[8]);

end;

procedure TForm2.Button1Click(Sender: TObject);
var
  a:array[1..8] of integer;
  b:array[1..8] of integer;
  tempstr:string;
  list1:TStringList;
  k,i,j: integer;
  Myfile:TextFile;
begin
   a[1]:=strtoint(edit1.text);a[2]:=strtoint(edit2.text);
   a[3]:=strtoint(edit3.text);a[4]:=strtoint(edit4.text);
   a[5]:=strtoint(edit5.text);a[6]:=strtoint(edit6.text);
   a[7]:=strtoint(edit7.text);a[8]:=strtoint(edit8.text);

   b[1]:=strtoint(edit9.Text);b[2]:=strtoint(edit10.Text);
   b[3]:=strtoint(edit11.Text);b[4]:=strtoint(edit12.Text);
   b[5]:=strtoint(edit13.Text);b[6]:=strtoint(edit14.Text);
   b[7]:=strtoint(edit15.Text);b[8]:=strtoint(edit16.Text);

list1:=TstringList.create;
tempstr:='';
 for i:=1 to 8 do
       tempstr:=tempstr+inttostr(a[i])+#9+'';
 tempstr:=tempstr+#13;
 for i:=1 to 8  do
       tempstr:=tempstr+inttostr(b[i])+#9+'';
 list1.Add(tempstr);

 showmessage('把修改后的OD流数据写入文本文件od.txt？');
 list1.saveTofile('F:\OD\rod.txt');
 freeandnil(list1);
 
end;

end.