为什么Trim(Scro.C[j])<>''及 length(Trim(Scro.C[j]))>0 永远也不成立（尽管我查到它不为空也不成立。

为什么Trim(Scro.C[j])<>''及 length(Trim(Scro.C[j]))>0 永远也不成立（尽管我查到它不为空也不成立。Scro为记录型，C为字符串数组)(100分)<br />为什么Trim(Scro.C[j])<>''及 length(Trim(Scro.C[j]))>0 永远也不成立（尽管我查到它不为空也不成立。Scro为记录型，C为字符串数组)

不可能啊？

如果不想解决问题就把问题结束了！
如果想解决问题就把代码贴出来！

我试过了，并没有发现您所说的问题。

是否都为字符型？

对不起，昨天我有点事情，源代码如下：
type
CFGMS=record
C: array[1..4] of String;
F: array[1..4] of String;
G: array[1..4] of String;
M: array[1..4] of String;
S: array[1..4] of String;
end;
var
Scro:CFGMS;

if Trim(Scro.C[1])<>'' then //改成length(Scro.C[1])>0 也不行
with QueryForSpeci do
begin
Close;
Parameters.ParamByName('matl_no').Value:=Scro.C[j];
Open;
EditC1d[j].Text:=Trim(FieldByName('desc2').AsString)
end

看你还有什么话好说！
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

CFGMS=record
C: array[1..4] of String;
F: array[1..4] of String;
G: array[1..4] of String;
M: array[1..4] of String;
S: array[1..4] of String;
end;

var
Form1: TForm1;
Scro:CFGMS;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Scro.C[1] := '****'
// 如果不给Scro.C[1]赋初值则其值当然为空！！！！！！！！
if Trim(Scro.C[1])<>'' then
Caption := '**** it Ok'
else
Caption := 'No Power';
end;
end.

问题是我有赋值的，只是太长，我删除了一段。我都说过了，我可以用鼠标指在上面
查出我所希望的值。

我也遇到过这样的问题，好像是变量类型不相容，
后来我改了变量类型就OK了，比如原来是STRING的
改成限定长度的STRING

多人接受答案了。