格式用法

tinachen0505

各位大侠，
小女编了一个求最大公约数的程序，可是在最后的格式上出了些问题，请大家帮我看一下，不甚感激。以下是错误提示：Project raised exception class 'EConvertError' with message: Invalid argument index in format '' ''
procedure TForm1.Button1Click(Sender: TObject);
var
  n,m,temp,r:integer;
begin
  n:=strtoint(edit1.Text);
  m:=strtoint(edit2.Text);
  if n>m then
  begin
    temp:=n;n:=m;m:=temp;
  end;
  repeat
    r:=m mod n;
    m:=n;
    n:=r;

  until r=0;
  edit3.Text:=format('%s 与%s的最大公约数是%d',[edit1.text,edit2,text,m]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
end;                  

chenyuchih

改成這樣如何？

edit3.Text:=Edit1.Text+' 与 '+Edit2.Text+' 的最大公约数是 '+inttostr(m);

sail2000

代码没错啊，编译通过。

win7 sp2 + lazarus1.1

tinachen0505

非常感谢你的帮助，可否向你请教一下，何时才会用到format呢？

tinachen0505

sail2000:代码没错啊，编译通过。

win7 sp2 + lazarus1.1


....... (2012-07-17 15:58) 

谢谢你的帮助，这段代码是我从教科书上抄的，可否向你请教一个问题：如何使用format？%s,%d分别代表什么呢？谢谢！

chenyuchih

format這個指令.....我唯一會使用的情況只有要特別設定數字顯示的格式 (例如 科學記號表示 或是 指定小數位數) 的時候才有用過.......原Po的這種用法感覺上這好像是從很早以前Pascal留下的用法，跟C語言的用法很近似，小弟不曾用過.......

另外，Object Pascal語言有很多地方已經進化到很便利了，初學時不妨和大家一起交流一些更方便的作法，你會會越用越喜歡它的.....

tinachen0505

chenyuchih:format這個指令.....我唯一會使用的情況只有要特別設定數字顯示的格式 (例如 科學記號表示 或是 指定小數位數) 的時候才有用過.......原Po的這種用法感覺上這好像是從很早以前Pascal留下的用法，跟C語言的用法很近似，小弟不曾用過.......

另外，Object Pascal語言有很多地方已經 .. (2012-07-17 20:28) 

谢谢你的解答！

75557032

你看是“小女”你们都疯了

liufengde

我一般会在拼接字符串比较长的时候会用到它，它比较容易实现换行。然后就是对数据转化成字符串有要求的时候会用到，这样可以减少类型转换的调用。总之，就是怎么方便怎么用。