из Edit a в переменную

← →
Pert (2003-11-17 21:29) [0]

как присвоить введенное в TEdit рациональное число типа 5.67446 какой-либо переменной?

← →
Вася Пупкин (2003-11-17 21:32) [1]

function StrToFloat(const S: string): Extended;

← →
Вася (2003-11-17 22:01) [2]

Эту функцию то я знаю.
Но что за фигня?
в одном проекте все прекрасно работает, а в другом нихрена: выбрасывает какое-то исключение.
Это может быть из-за того, что я изменял свойства Edit"ов, в частности enabled?

← →
Вася (2003-11-17 22:03) [3]

← →
Pat (2003-11-17 22:04) [4]

Возможно из-за разделителя. Попробуй 5.67446 и 5,67446 Ну и F1 DecimalSeparator

← →
Вася (2003-11-17 22:21) [5]

а это что за зверь - F1 DecimalSeparator

//Возможно из-за разделителя. Попробуй 5.67446 и 5,67446 Ну и F1 DecimalSeparator

разделитель не причем, я же написал что в одной проге все впорядке, а в другой глючит. придется код перекидывать из глючной в нормальную.

← →
Вася (2003-11-17 22:22) [6]

← →
Pat (2003-11-17 22:26) [7]

Глючить по разному может....Давай код считывания из Edit"а

← →
Вася (2003-11-17 22:41) [8]

да пожалуйста

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
GroupBox2: TGroupBox;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
p1_1,p1_2,p1_3 :double;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin

if RadioButton3.Checked then begin
p1_1:=StrToFloat(Edit1.Text);
p1_2:=StrToFloat(Edit2.Text);
p1_3:=StrToFloat(Edit3.Text);

...........................
...........................

Memo1.Lines.Add("gf");
end;

..............................

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.

← →
Е-Моё имя (2003-11-18 09:17) [9]

>> [5] Вася (17.11.03 22:21)
>> а это что за зверь - F1 DecimalSeparator

:)))))))))))))))))

---
nil

из Edit a в переменную Найти похожие ветки