String den float'a donusum

[z]

S: string;

S='1/1000';

Bu S degerini float degiskene aktarmak istiyorum.

Bunu nasil yaparim?

[ground]

float:=StrToFloat(string);

http://knol.google.com/k/tomek-tomek/conversion-guide-delphifree-pascal-c-cc/1u5d95y09eyd1/2#

sanırım.

[z]

Hocam bu kod S="0.001" seklindeki bir stringi float degiskenine aktarabiliyor ancak S="1/1000" de ise yaramiyor.
Bunun icin uzun uzun kod yazdim. Hazirda komut tarzi bir sey varmi diye bakiniyorum.

[Salih]

Şöyle bir kod yazdım. İşini görür sanırım.

function cevir(yazi: string):real;
var yer:byte;
begin
     yer := pos('/',yazi);
     if yer>0 then
          result := strtoint(copy(yazi,1,yer-1))/
          strtoint(copy(yazi,yer+1,length(yazi)));
end;