<textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.SphereBtnClick(Sender: TObject); var lat1,lon1,lat2,lon2,dist:extended; begin if not strToAngle(Loc1Lat.text, lat1) then showmessage('Format error in Latitude #1') else if not strtoangle(Loc1Lon.text,lon1)then showmessage('Format error in Longitude #1') else if not strtoangle(Loc2lat.text,lat2)then showmessage('Format error in Latitude #2') else if not strtoangle(Loc2Lon.text,lon2) then showmessage('Format error in Longitude #2') else begin dist:=distance(lat1,lon1,lat2,lon2,unitsgrp.itemindex); resultslbl.caption:=format('From Lat %s Long %s to Lat %s, Long %s distance is %6.3f %s', [angletostr(lat1),angletostr(lon1),angletostr(lat2), angletostr(lon2),dist,unitslbl[unitsgrp.itemindex]]); end; end;</textarea> 這隻程式是有關 座標的程式~~ 但是~ 為什麼要 用到%這個東西呢?? 可以 幫我看一下好嗎~~ 謝謝

編輯記錄

念書吧.
Help會給你答案滴

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

範例:
for i := 0 to 2;
Str := format('%d,1',[i]);
showmessage(str);

會依序秀出0,1 1,1 2,1
大致上是這樣用

編輯記錄

深有同感!!!!!!
===================引 用 Coffee 文 章===================
念書吧.
Help會給你答案滴