引言: DEAR ALL 小弟目前須撰寫一FUNCTION 接收由主機傳來之STRING 此STRING由整數與小數組成 FUNCTION的功用在於將其空白處補0 如 123.56-->00123560000 請問該如何設計 又該如何去CALL此FUNCTION 小弟是寫主機程式 PC的程式是最近才碰 因此問題可能有些幼稚 請各位原諒

function MyFormat(xNumber: Double): String;
begin
  Result := FormatFloat('00000',Trunc(xNumber)) FormatFloat('000000',Frac(xNumber)*1000000);
end;

引言: function MyFormat(xNumber: Double): String; begin Result := FormatFloat('00000',Trunc(xNumber)) FormatFloat('000000',Frac(xNumber)*1000000); end; 對不起 再問一下 那我要如何去call此function 書上好像沒有call function的方式 < face="Verdana, Arial, Helvetica"> 您說您的主機傳來的是String，如傳來NumberA所以Call function為：

var
  aStr: String;//接收function回傳的字串
begin
  aStr := MyFormat(StrToFloat(NumberA));
end;

[補充]： 剛剛沒有看到您的主機傳來的是String，所以小弟修改一下function：

function MyFormat(xNumber: String): String;
var
  aFloat: Double;
begin
  aFloat := StrToFloat(xNumber);
  Result := FormatFloat('00000',Trunc(aFloat)) FormatFloat('000000',Frac(aFloat)*1000000);
end;

Call此function為：

var
  aStr: String;//接收function回傳的字串
begin
  aStr := MyFormat(NumberA);
end;

~小弟淺見，參考看看~ 發表人 - channel 於 2003/06/24 17:38:20