Преобразования тип данных

[NoNaMeD]

Недавно перешел c Windows на Linux, и как альтернативу Delphi выбрал Lazarus

Столкнулся с такой проблемой:
Допустим на форму добавил два элемента TEdit и кнопочку Button:
код которой такой:

Код: Выделить всё

procedure TForm1.bpClick(Sender: TObject);
var a: Currency;
begin
   a:=FloatToStr(Edit.Text);
end;


Хочу присвоить переменной 'a' значение Edit.Text, делаю это с помощью функции FloatToStr как в Delphi, но оно выдает такую ошибку:

Код: Выделить всё

indexform.pas(133,32) Error: Incompatible type for arg no. 1: Got "TTranslateString", expected "Int64"

Подскажите, может в Lazarus это делается как то по другому?

[AnacRon]

a:=FloatToStr(Edit.Text);

Может

Код: Выделить всё

   a:=StrToFloat(Edit.Text);


или

Код: Выделить всё

   a:=StrToCurr(Edit.Text);


У вас переменная a:Currency, а результат FloatToStr(): string

[NoNaMeD]

 a:=StrToCurr(Edit.Text);

Большое спасибо, работает:)