resource Tform1 not found

wslmsx 2009-07-27 10:37:31

program Project14;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label101: TLabel;
Label102: TLabel;
Label103: TLabel;
Button1: TButton;
Label104: TLabel;
Label105: TLabel;
Label106: TLabel;
Label107: TLabel;
Label108: TLabel;
Label109: TLabel;
Label120: TLabel;
Label125: TLabel;
Label124: TLabel;
Label123: TLabel;
Label122: TLabel;
Label121: TLabel;
Edit1a: TEdit;
Edit1b: TEdit;
Edit1c: TEdit;
Edit2a: TEdit;
Edit9c: TEdit;
Edit8c: TEdit;
Edit7c: TEdit;
Edit6c: TEdit;
Edit5c: TEdit;
Edit4c: TEdit;
Edit3c: TEdit;
Edit2c: TEdit;
Edit12a: TEdit;
Edit11a: TEdit;
Edit10a: TEdit;
Edit9a: TEdit;
Edit8a: TEdit;
Edit7a: TEdit;
Edit6a: TEdit;
Edit5a: TEdit;
Edit4a: TEdit;
Edit3a: TEdit;
Edit7b: TEdit;
Edit6b: TEdit;
Edit5b: TEdit;
Edit2b: TEdit;
Edit4b: TEdit;
Edit3b: TEdit;
Edit12b: TEdit;
Edit12c: TEdit;
Edit11c: TEdit;
Edit10c: TEdit;
Edit11b: TEdit;
Edit10b: TEdit;
Edit9b: TEdit;
Edit8b: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label7: TLabel;
Label5: TLabel;
Label6: TLabel;
Label4: TLabel;
Label12: TLabel;
Label11: TLabel;
Label10: TLabel;
Label9: TLabel;
Label8: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
arrayThing:array[1..12] of single;
arrayNightwork:array[1..12] of single;
arrayWeekendwork:array[1..12] of single;
arrayResult:array[0..12] of single;
arrayout:array[1..12] of single;
monthflag:integer;
flag:integer;
i:integer;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
arrayThing[1]:=strtofloat(edit1a.text);
arrayNightwork[1]:=strtofloat(edit1b.text);
arrayWeekendwork[1]:=strtofloat(edit1c.text);
arrayThing[2]:=strtofloat(edit2a.text);
arrayNightwork[2]:=strtofloat(edit2b.text);
arrayWeekendwork[2]:=strtofloat(edit2c.text);
arrayThing[3]:=strtofloat(edit3a.text);
arrayNightwork[3]:=strtofloat(edit3b.text);
arrayWeekendwork[3]:=strtofloat(edit3c.text);
arrayThing[4]:=strtofloat(edit4a.text);
arrayNightwork[4]:=strtofloat(edit4b.text);
arrayWeekendwork[4]:=strtofloat(edit4c.text);
arrayThing[5]:=strtofloat(edit5a.text);
arrayNightwork[5]:=strtofloat(edit5b.text);
arrayWeekendwork[5]:=strtofloat(edit5c.text);
arrayThing[6]:=strtofloat(edit6a.text);
arrayNightwork[6]:=strtofloat(edit6b.text);
arrayWeekendwork[6]:=strtofloat(edit6c.text);
arrayThing[7]:=strtofloat(edit7a.text);
arrayNightwork[7]:=strtofloat(edit7b.text);
arrayWeekendwork[7]:=strtofloat(edit7c.text);
arrayThing[8]:=strtofloat(edit8a.text);
arrayNightwork[8]:=strtofloat(edit8b.text);
arrayWeekendwork[8]:=strtofloat(edit8c.text);
arrayThing[9]:=strtofloat(edit9a.text);
arrayNightwork[9]:=strtofloat(edit9b.text);
arrayWeekendwork[9]:=strtofloat(edit9c.text);
arrayThing[10]:=strtofloat(edit10a.text);
arrayNightwork[10]:=strtofloat(edit10b.text);
arrayWeekendwork[10]:=strtofloat(edit10c.text);
arrayThing[11]:=strtofloat(edit11a.text);
arrayNightwork[11]:=strtofloat(edit11b.text);
arrayWeekendwork[11]:=strtofloat(edit11c.text);
arrayThing[12]:=strtofloat(edit12a.text);
arrayNightwork[12]:=strtofloat(edit12b.text);
arrayWeekendwork[12]:=strtofloat(edit12c.text);
flag:=1;
arrayresult[0]:=0;
i:=0;
for monthflag:=1 to 12 do
begin
if i>3 then
begin
i:=0;
arrayresult[flag-1]:=0;
end;
arrayresult[flag]:=arrayresult[flag-1]
+arraything[flag]
-arrayweekendwork[flag];
if arrayresult[flag]>0 then
arrayresult[flag]:=arrayresult[flag]-arrayNightwork[flag];
if arrayresult[flag]<0 then
i:=i+1
else
i:=0;
arrayout[flag]:=arrayresult[flag];
flag:=flag+1;
end;
label1.Caption:=floattostr(arrayout[1]);
label2.Caption:=floattostr(arrayout[2]);
label3.Caption:=floattostr(arrayout[3]);
label4.Caption:=floattostr(arrayout[4]);
label5.Caption:=floattostr(arrayout[5]);
label6.Caption:=floattostr(arrayout[6]);
label7.Caption:=floattostr(arrayout[7]);
label8.Caption:=floattostr(arrayout[8]);
label9.Caption:=floattostr(arrayout[9]);
label10.Caption:=floattostr(arrayout[10]);
label11.Caption:=floattostr(arrayout[11]);
label11.Caption:=floattostr(arrayout[12]);
end;

end.

这个是计算事假时间的，根据EDIT控件的值来计算事假时间，最后显示在LABEL上。
请高手指教，出现的错误怎么解决。对比了其他程序，感觉结构没有错误，为什么说Tfrom1找不到。

...全文