初学者的问题

Question

15个EDIT的输入值分别赋给数组X[i]中的15个元素，是不是只能一个一个的赋值？就象X[1]:=strtofloat(edit1.text)......X[15]:=strtofloat(edit15.text)
郁闷中.......

Answer 1

FillChar
var  S: array[0..79] of char;
begin
  { Set to all spaces }
  FillChar(S, SizeOf(S), Ord(' '));
end

Answer 2

利用Tag值Edit1.Tag:=1;..........
var x:array [1..15]of double;
begin
  for i:=0 to self.ComponentCount-1 do
  if self.Components[i] is TEdit then
  if self.Components[i].Tag>0 then
  begin
    x[TEdit(Components[i]).tag]:=StrToFloat(TEdit(Components[i]).Text);
  end;
end