не могу понять в чем проблема.

@veritas · Регистрация: 24.12.2009

Студворк — интернет-сервис помощи студентам

объясните, следующее:

Delphi

kol: real;
rur: real;
 
begin
 
kol:= strtofloat(edit1.Text);
 
rur:= kol*43.50;
Label2.Caption:= 'na ' + FloatToStrF(rur,ffFixed);
end;

@Ztrel · 24.12.2009, 18:58

Сообщение от veritas

ffFixed

А это зачем? Может, я чего не понимаю, конечно..

@veritas · 24.12.2009, 19:02 **[ТС]**

формат вывода числа с плавающей запятой, вроде. Но даже если и без нее все равно выдает ошибку в этой строке.

@Ztrel · 24.12.2009, 19:09

А что за ошибка-то? Напиши, пожалуйста...

deathNC · 24.12.2009, 19:24

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

если проблема в другом, присылай весь проект...

@veritas · 24.12.2009, 19:35 **[ТС]**

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
kol: real;
rur: double;

begin

kol:= strtofloat(edit1.Text);

rur:= kol*43.50;
// âûâîä ðåçóëüòàòà
Label2.Caption:= 'íà' + FloatToStrF(rur);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
form1.close;
end;

end.

deathNC · 24.12.2009, 19:41

С первого взгляда всё ОК, присылай ка весь проект.... архивируй, и сюда архив давай...

я сейчас выйду покурить, а потом проверю, не кинул ли ты ссылочку на архив с проектом, идёт?

а то так я не пойму в чём проблема!

@veritas · 24.12.2009, 19:56 **[ТС]**

вот

@veritas · 24.12.2009, 19:59 **[ТС]**

прошел несколько уроков, захотелось закрепить пройденный материал, но тут то и оно......

@*~<`PIK`>~* · 24.12.2009, 20:05

в архив скинь все файлы а то там только .pas

Добавлено через 22 секунды
хотя и так работает

Добавлено через 55 секунд
не неработает скомпилить неполучается

deathNC · 24.12.2009, 20:14

А вот как правильно:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Kol, Rur: Extended;
begin
  // А вот в поле надо запятую ввести, а не точку.... я просто раньше ошибался!!!
  Kol := StrToFloat(Edit1.Text);
  Rur := Kol * 43.50;
  // вывод результата
  Label2.Caption:= 'на ' + FloatToStr(rur);
end;

введи, допустим: 14,5... сработает!

@veritas · 24.12.2009, 20:20 **[ТС]**

огромное спасибо, с психу удалил проэкт, так что скинуть не могу.
ну а по коду, в чем проблема.

deathNC · 24.12.2009, 20:29

в имени процедуры FloatToStr ты добавил какую-то лишнюю букву, когда в Label выводил.... см. на свой предыдущий код...

@*~<`PIK`>~* · 24.12.2009, 21:00

там было FloatToStrF(rur) поетому и ошибка

deathNC · 24.12.2009, 21:15

верно.... будь внимательнее в следующий раз, и если что, снова обращайся за помощью...

@~<`PIK`>~ ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ 607 / 387 / 81 Регистрация: 15.12.2009 Сообщений: 753
	24.12.2009, 20:05	10
	в архив скинь все файлы а то там только .pas Добавлено через 22 секунды хотя и так работает Добавлено через 55 секунд не неработает скомпилить неполучается 1

deathNC 1904 / 1015 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	24.12.2009, 20:29	13
	в имени процедуры FloatToStr ты добавил какую-то лишнюю букву, когда в Label выводил.... см. на свой предыдущий код... 0

@Ztrel 507 / 226 / 42 Регистрация: 14.11.2009 Сообщений: 371
	24.12.2009, 18:58	2
	Сообщение от veritas ffFixed А это зачем? Может, я чего не понимаю, конечно.. 0

@veritas 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 14
	24.12.2009, 19:02 [ТС]	3
	формат вывода числа с плавающей запятой, вроде. Но даже если и без нее все равно выдает ошибку в этой строке. 0

@Ztrel 507 / 226 / 42 Регистрация: 14.11.2009 Сообщений: 371
	24.12.2009, 19:09	4
	А что за ошибка-то? Напиши, пожалуйста... 1

deathNC 1904 / 1015 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	24.12.2009, 19:24	5
	Возможно ты вводишь запятую вместо точки в текстовом поле... там точка, а не запятая ставится.... если проблема в другом, присылай весь проект... 0

@veritas 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 14
	24.12.2009, 19:35 [ТС]	6
	unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Button1: TButton; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; procedure Button1Click(Sender: TObject); procedure N2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R .dfm} procedure TForm1.Button1Click(Sender: TObject); var kol: real; rur: double; begin kol:= strtofloat(edit1.Text); rur:= kol43.50; // âûâîä ðåçóëüòàòà Label2.Caption:= 'íà' + FloatToStrF(rur); end; procedure TForm1.N2Click(Sender: TObject); begin form1.close; end; end. 0

deathNC 1904 / 1015 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	24.12.2009, 19:41	7
	С первого взгляда всё ОК, присылай ка весь проект.... архивируй, и сюда архив давай... я сейчас выйду покурить, а потом проверю, не кинул ли ты ссылочку на архив с проектом, идёт? а то так я не пойму в чём проблема! 0

@veritas 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 14
	24.12.2009, 19:59 [ТС]	9
	прошел несколько уроков, захотелось закрепить пройденный материал, но тут то и оно...... 0

@veritas 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 14
	24.12.2009, 20:20 [ТС]	12
	огромное спасибо, с психу удалил проэкт, так что скинуть не могу. ну а по коду, в чем проблема. 0

@~<`PIK`>~ ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ 607 / 387 / 81 Регистрация: 15.12.2009 Сообщений: 753
	24.12.2009, 21:00	14
	там было FloatToStrF(rur) поетому и ошибка 0

deathNC 1904 / 1015 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	24.12.2009, 21:15	15
	верно.... будь внимательнее в следующий раз, и если что, снова обращайся за помощью... 0

Опции темы