小编Aid*_*inn的帖子

我需要使用7个不同的RadioButtons动态创建一个TRadioGroup.

RadioButtons如下:

Screws 12mm

Canned Peaches 250g

Refil Blue Pen

Tomatoes

Spaghetti

Twin Flex 5m

Clear glue 250ml

这是我认为它必须看起来的样子:

rgpOptions := TRadioGroup.Create(frmSale);
  rgpOptions.Parent := frmSale;
  rgpOptions.Left := 30;
  rgpOptions.Top := 100;
  rgpOptions.Width := 300;
  rgpOptions.Height := 140;
  rgpOptions.Visible := True;
  rgpOptions.Items.Add := (
                          1 := 'Screws 12mm';
                          2 := 'Canned Peaches 250g';
                          3 := 'Refil Blue Pen';
                          4 := 'Tomatoes';
                          5 := 'Spaghetti';
                          6 := 'Twin Flex 5mm';
                          7 := 'Clear Glue';
                          );

(顺便说一句,我知道它不能编译,这就是我要问的原因)

首先,我知道我会因为使用过时的Delphi方法而大喊大叫,但这是我教授的方式,而我只是在练习这些东西进行考试.

无论如何,我正在通过文本文件将一堆名称读入数组.然后,用户可以选择在文本文件中搜索名称,并返回名称在那里或不在的名称.

这是代码:

procedure TForm1.btnSearchClick(Sender: TObject);
var
  myFile : TextFile;
  Search : string;
  k : Integer;
  arrNames : array [1..200] of string;
  bFound : Boolean;
begin
  AssignFile (myFile, 'names.txt');

  reset(myFile);

  Search := UpperCase(InputBox('Search a Name', '', 'Tiffani Bressler'));

  k := 1;

  bFound := False;

  while not Eof(myFile) or bFound = False do begin

      Readln(myFile, arrNames[k]);

      if Search = UpperCase(arrNames[k]) then

      begin

        bFound := true;

      end;

      lblLineSearched.Caption := 'Line searched: ' + IntToStr(k);

      inc(k);

    end;

    if bFound = True then

      ShowMessage('You …

如何使用if语句获取在"MessageDlg"中单击的按钮的状态？

继承我的代码:

if MessageDlg('Message',mtError,[mbYesNoCancel],0) = No
    then ShowMessage('Message2');

我刚才看到我的IT老师写了这样的东西,但我不记得语法了.

如果在Google while和repeat..until循环之间存在重大差异,我会在Google上查看,但我没有找到任何有用或我正在寻找的东西.

我注意到while循环使我的程序没有响应,并且repeat工作效果比while.是否有任何具体原因,或者是否应该在不同情况下相互使用？

这是while循环中的代码:

var
  m,val : Integer;
  i,k   : Real;
begin
  val := StrToInt(edtShot.Text);
  i := sqr(k);
  k := sqrt(i+val);
  m := 0;

    while i <= 0 and k <= 10 do
      begin
        inc(m);
      end;
end;

这是一个repeat循环:

var
  m,val : Integer;
  i,k   : Real;
begin
  val := StrToInt(edtShot.Text);
  i := sqr(k);
  k := sqrt(i+val);
  m := 0;
    repeat
      inc(m);
    until i > 0 and k > …