[Zemius]

Добрый день. Дали несколько заданий на выполнение. Учусь дистанционно. У преподавателя спросить не как. Писал в универ, о том что нужна помощь, проигнорили. Это я пишу для тех то будет просто флудить. Один раз мне у вас тут уже помогли, за что огромное спасибо. На других форумах просто засирали.
Вот описание задания.
------------------------
Задание 3
Численные значения переменных следует преобразовать в строки и только после преобразования выводить в компонент Memo. Для преобразования переменных типа Real в переменную типа строка используется функция FloatToStr(). Слово Float обозначает переменную с плавающей запятой любого типа (тип Real  один из многих типов таких переменных с дробной частью). В круглых скобках записывается имя численной переменной, которую преобразуют в строку. Скопируйте строку вывода и вставьте после второй строки вывода в поле Мемо. В круглых скобках функцию преобразования в строку значения переменной Unom.
Сохраните программу, запустите на исполнение и убедитесь, что в поле вывода появилось число, которое соответствует номинальному напряжению.
Вывод в одну строку в поле вывода можно сделать, если сложить несколько строк. Сложение строк называется командой конкатенации и обозначается символом сложения (+). В раздел описания переменных добавьте имя переменной типа строка, например, str3. Допишите в код процедуры следующую строку: str3:=str1+FloatToStr(Unom)+str2; и выведите её в поле вывода. После запуска программы, посмотрите правильно ли сделан вывод. Выведите в поле вывода значение Snom одной строкой с обозначением имени переменной, её числовым значением и единицей измерения.
-----------------------------
Вот код программы

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var
    Unom, Snom: Real;
    str1, str2, str3: string;
  begin
   Unom:=10.5;   {íîìèíàëüíîå íàïðÿæåíèå â êÂ}
   Snom:=25000; {ïîëíàÿ ìîùíîñòü â êÂÀ}
   str1:= 'Unom=      ';
   str2:= 'kB';
   Memo1.Lines.Add(str1);
   Memo1.Lines.Add(str2);
   FloatToStr(Unom);
   str3:=str1+FloatToStr(Unom)+str2;
  end;

end.

------------------------------
И вот что только выводиться

[@Rafa3L]

Код:

...
str3:=str1+FloatToStr(Unom)+str2;
Memo1.Lines.Add(str3);// ìîùâíîñâòâü êÂÀ 
end;

[Zemius]

Сообщение от @Rafa3L

Код:

...
str3:=str1+FloatToStr(Unom)+str2;
Memo1.Lines.Add(str3);// ìîùâíîñâòâü êÂÀ 
end;

Спасибо заработало. А почему в memo при нажатии кнопки он не выводит что Unom=10.5 Snom=25000

[roland196]

вот так надо:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Unom, Snom: Real;
str1, str2, str3, str4, str5: string;

begin

Unom:=10.5;
Snom:=25000;
str1:= 'Unom=      ';
str2:= 'kB';
str5:= 'Snom=     ';

Memo1.Clear; // Ochistka polya Memo1

FloatToStr(Unom);
str3:=str1+FloatToStr(Unom)+str2;  // formirovanie stroki
Memo1.Lines.Add(str3);       //  vyvod pervoy stroki v Memo1

FloatToStr(Snom);
str4:=str5+FloatToStr(Snom)+str2;
Memo1.Lines.Add(str4);       //  vyvod vtoroy stroki v Memo1

end;

end.

[Zemius]

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

вот так надо:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Unom, Snom: Real;
str1, str2, str3, str4, str5: string;

begin

Unom:=10.5;
Snom:=25000;
str1:= 'Unom=      ';
str2:= 'kB';
str5:= 'Snom=     ';

Memo1.Clear; // Ochistka polya Memo1

FloatToStr(Unom);
str3:=str1+FloatToStr(Unom)+str2;  // formirovanie stroki
Memo1.Lines.Add(str3);       //  vyvod pervoy stroki v Memo1

FloatToStr(Snom);
str4:=str5+FloatToStr(Snom)+str2;
Memo1.Lines.Add(str4);       //  vyvod vtoroy stroki v Memo1

end;

end.

Спасибо большое человеческое

[Zemius]

Добрый день. В лабораторной №4 вроде все получилось вот только когда в код вписываю эту строчку:

Код:

memo1.Lines.Add( 'Unom ='  +Listbox1.Items[Listbox1.ItemIndex]+' êÂ' );

то выходит такая ошибка при запуске:



Вот сам код программы:

Код:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Unom :real;
begin

 memo1.Clear;

 memo1.Lines.Add( 'Unom ='  +Listbox1.Items[Listbox1.ItemIndex]+' êÂ' );

 memo1.Lines.Add( 'Unom ='  +combobox1.Items[combobox1.ItemIndex]+' êÂ');
 {memo1.Lines.Add(combobox1.Items[1]);
 memo1.Lines.Add(combobox1.Items[2]);
 memo1.Lines.Add(combobox1.Items[3]);
 memo1.Lines.Add(combobox1.Items[4]);
 memo1.Lines.Add(combobox1.Items[5]);
 memo1.Lines.Add(combobox1.Items[6]);
 memo1.Lines.Add(combobox1.Items[7]);
 memo1.Lines.Add(combobox1.Items[8]);
 memo1.Lines.Add(combobox1.Items[9]);
 memo1.Lines.Add(combobox1.Items[10]);
 memo1.Lines.Add(combobox1.Items[11]);}

 ListBox1.Items[0]:='0,4';
 listBox1.Items[1]:=Combobox1.Items[1];
 
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
Button1.Caption:='Ñòàðò';
For i:=0 to 11 do ListBox1.Items[i]:= ComboBox1.Items[i];
end;

end.

Подскажите пожалуйста что делаю не так. Заранее огромное спасибо.