请看下面一段代码procedure TAnalog.CalculateHalfData;
{ 计算半满数据 }
var
i, j: Integer;
wave_i: Int64;
r, f, p: Double;
begin
if FRange = 0.0 then
Exit;
wave_i := WaveHalfCount * 8192;
for i := 0 to 8191 do
begin
WaveValue[i] := Round(Sin((wave_i * FFrequency / FIFOFrequency + FPhase /
360) * 2 * PI) * 32767 * FRange / 10) + 32768;
Inc(wave_i);
end;
{ 叠加谐波 }
if Length(Harmonics) <> 0 then
begin
for j := 0 to Length(Harmonics) do
begin
wave_i := WaveHalfCount * 8192;
if Harmonics[j].ValueType = vtPercent then
r := FRange * Harmonics[j].Value
else if Harmonics[j].ValueType = vtRange then
r := Harmonics[j].Value
else
r := 0; // not gonna be easy
p := Harmonics[j].Phase;
f := FFrequency * Harmonics[j].SequenceNumber;
for i := 0 to 8191 do
begin
WaveValue[i] := DataRegion(WaveValue[i] + Round(Sin((wave_i * f /
FIFOFrequency + p / 360) * 2 * PI) * 32767 * r / 10) + 32768, 0,
65535);
Inc(wave_i);
end;
end;
end;
end;在编一时没有发生任何问题,但是当我向这个类添加新的属性时,当使用Ctrl + Shift + C 进行代码完整时报告了一个奇怪的问题,如下:Cannot complete a class with incomplete methods implementations;并将焦点指向该方法的开头!难道我这个过程没有实现完毕吗?但为什么编译能够通过?
{ 计算半满数据 }
var
i, j: Integer;
wave_i: Int64;
r, f, p: Double;
begin
if FRange = 0.0 then
Exit;
wave_i := WaveHalfCount * 8192;
for i := 0 to 8191 do
begin
WaveValue[i] := Round(Sin((wave_i * FFrequency / FIFOFrequency + FPhase /
360) * 2 * PI) * 32767 * FRange / 10) + 32768;
Inc(wave_i);
end;
{ 叠加谐波 }
if Length(Harmonics) <> 0 then
begin
for j := 0 to Length(Harmonics) do
begin
wave_i := WaveHalfCount * 8192;
if Harmonics[j].ValueType = vtPercent then
r := FRange * Harmonics[j].Value
else if Harmonics[j].ValueType = vtRange then
r := Harmonics[j].Value
else
r := 0; // not gonna be easy
p := Harmonics[j].Phase;
f := FFrequency * Harmonics[j].SequenceNumber;
for i := 0 to 8191 do
begin
WaveValue[i] := DataRegion(WaveValue[i] + Round(Sin((wave_i * f /
FIFOFrequency + p / 360) * 2 * PI) * 32767 * r / 10) + 32768, 0,
65535);
Inc(wave_i);
end;
end;
end;
end;在编一时没有发生任何问题,但是当我向这个类添加新的属性时,当使用Ctrl + Shift + C 进行代码完整时报告了一个奇怪的问题,如下:Cannot complete a class with incomplete methods implementations;并将焦点指向该方法的开头!难道我这个过程没有实现完毕吗?但为什么编译能够通过?
解决方案 »
- 怎么用delphi读取autoCAD的dwg文件?
- 访问ACCESS,adoquery1.open时报“未知的错误”
- 制作delphi用table实现登录界面
- 关于数据库问题
- 继续 Access violation at address 0056ebb2 in module 'chis.exe',write of address 000000fc 错误!
- 导出到EXCEL文件时碰到一个问题,解决后马上结帖
- 菜鸟求救这段程序应该怎么写啊?
- 如何做到在应用程序中点击按钮打开QQ聊天窗口,用于QQ聊天
- 关于录入和查询的问题
- 当用mailto发送一个邮件时,如何通过程序生成邮件的主体和正文的内容
- DAX错误,在线等待
- 几个菜问题?100分
我在编译程序时有时候在编译的时候出现一个 Internal Error LA33;
但是我在重新编译后这个错误便消失了,不知道什么原因!
如:Showmessage('aa');
再用 ctrl+shift+c 试试,
应该函数没问题。
检查函数定义的前后语句。