摘要：function myStrToFloat(const myStr: string; var myResult: Real): Boolean; var myTempStr: string; ResultStr: string; myChar: Char; myPos, myLen: integer; begin myPos := 1; ResultStr := ''; myTempStr := Trim(myStr); myLen := Length(myTempStr); while myPos <= myLen do begin myChar := myTempSt 阅读全文