var len:integer; s:string; begins:='afdadssda'; len:=length(s);end;
Sizeof 和 length() 都行
不要把Sizeof和Length混淆了。procedure TForm1.Button2Click(Sender: TObject); type TMyRec = record I: Integer; B: Boolean; end; var A: array[0..99] of TMyRec; begin ShowMessage(IntToStr(Length(A))); ShowMessage(IntToStr(Sizeof(A))); end;
len:integer;
s:string;
begins:='afdadssda';
len:=length(s);end;
type
TMyRec = record
I: Integer;
B: Boolean;
end;
var
A: array[0..99] of TMyRec;
begin
ShowMessage(IntToStr(Length(A)));
ShowMessage(IntToStr(Sizeof(A)));
end;