Home > Back-end >  Inquire of Delphi 7 secondary development problems
Inquire of Delphi 7 secondary development problems

Time:09-16

I am doing the Delphi 7 secondary development of solidworks, the following problems encountered in the die set assembly phase:

Below is what I call procedure of mold base, up and down when the program is run '50 * 63 * 25' is not a valid floating point value of the error message, 50 * 63 * 25 is my mold base under a specification in the database, the same, my on the specifications of the mold base is also similar to this format, '50 * 63 * 20', but on the mold base, there is no error, call the two parts is almost the same program, behind an complains, but don't know why here is a call of part of the program, please god help, why will appear this kind of mistake?
Thank everybody!!!!!!


Table2. TableName:='shangmozuo. Db';
Table2. Open;
Table2. First;
Comp:=Table2. Fields. [0] AsString + '*' + Table2. Fields [1]. The AsString + '*' +
Table2. Fields [2]. AsString;
If Comp & lt;> Umod then
Repeat
Table2. Next;
Comp:=Table2. Fields. [0] AsString + '*' + Table2. Fields [1]. The AsString + '*' +
Table2. Fields [2]. AsString;
Until (Comp=Umod) or Table2. Eof.
If Comp & lt;> Umod then
Showmessage (' database does not match the ');

PrtDoc:=SwApp. INewPart;
PrtDoc. QueryInterFace (IID_IModelDoc2 moddoc);
Titlename:='on the mold base;
ModDoc. SetTitle2 (TitleName);
ModDoc. ViewDisplayHiddengreyed;
SMZ: Titlename +='1'.
The FileName: WorkingDir + TitleName +='. SLDPRT ';
Draw_shangmozuo;
ModDoc. SaveAs4 (FileName, 0, 1, the errors and Warning).

Table2. Close;
Table2. TableName:=' ';
AsmDoc. IAddComponent2 (FileName,,0.2 0, 0).

//the mold base
Table2. TableName:='xiamozuo. Db';
Table2. Open;
Table2. First;
Comp:=Table2. Fields. [0] AsString + '*' + Table2. Fields [1]. The AsString + '*' +
Table2. Fields [2]. AsString;
If Comp & lt;> Lmod then
Repeat
Table2. Next;
Comp:=Table2. Fields. [0] AsString + '*' + Table2. Fields [1]. The AsString + '*' +
Table2. Fields [2]. AsString;
Until (Comp=Lmod) or Table2. Eof.
If Comp & lt;> Lmod then
Showmessage (' database does not match the ');
PrtDoc:=SwApp. INewPart;
PrtDoc. QueryInterFace (IID_IModelDoc2 moddoc);
Titlename:='next mold base;
ModDoc. SetTitle2 (TitleName);
ModDoc. ViewDisplayHiddengreyed;
XMZ: Titlename +='1'.
The FileName: WorkingDir + TitleName +='. SLDPRT ';
Draw_xiamozuo;
ModDoc. SaveAs4 (FileName, 0, 1, the errors and Warning).

Table2. Close;
Table2. TableName:=' ';
AsmDoc. IAddComponent2 (FileName, 0, 0);

CodePudding user response:

O great god reply!!!!!!!!!! Thank you very much!

CodePudding user response:

Someone!!!!!! ~ ~ ~ ~ ~ ~ ~

CodePudding user response:

If the character as a mathematical operation has 50 * 63 * 25, the * replace try with other symbols

CodePudding user response:

Check your definition Comp, Umod, Lmod type

CodePudding user response:

Debug tracking, look at the wrong where, the change of value is how much

CodePudding user response:

This kind of circumstance is more into the next paragraph point debugging

CodePudding user response:

Suggest you step by step, through the F8, step by step debugging, find the wrong line, and judgment,
  • Related