Delphi: StrToFloat

[Khayzenberg]

Доброго времени, суток Господа!
Вот работаю хочу написать преобразование из строки в тип extended посредством функции StrToFloat при выполнении кода, возникает исключительная ситуация:
>>>Delphi exception EConvertError at $657F949
код процедури следуюющий

procedure AddFloat(const aFileName, aFloat:PWideString);
var fs:TFileStream;
     buf:PExtended;
begin
  fs:=nil; buf:=nil; 
  TRY
    New(buf); buf^:=StrToFloat(aFloat^);
    fs:=TFileStream.Create(aFileName, fmOpenWrite);
    fs.WriteBuffer(buf, SizeOf(buf^));
   FINALLY
     FreeAndNil(fs); if buf<>nil then Dispose(buf);
end;

[Serge_Bliznykov]

ОМГ! А указатели Вам здесь для чего понадобились?!!

А вообще, я бы начал с того, что проверил, что там передалось в aFloat^
потом проверил, насколько хорошо StrToFloat работает с WideString...

И что, например, даёт такой код:

Procedure AddFloat(const aFileName, aFloat:PWideString);
var s:String;
     b:Extended;
begin
   s := aFloat^;
   ShowMessage('aFloat = '+s);
   b := StrToFloat(s);
   ShowMessage('b = '+FloatToStr(b));
end;

p.s. кстати, а куда Вы дели завершающих блок "try finally" оператор END ? Или тут процедура не полностью приведена?