[Reedberg]

Первый вопрос. Есть константа:

Код:

Const
ALPHA=5;

var
str:string;

Необходимо вывести её значение в компонент Memo.
Для этого я использую следующий код:

Код:

str:=inttostr(ALPHA);

В результате получаю ошибку:

Код:

Incompatible types: 'String' and 'Comp';

Я понимаю, что ALPHA у меня не типа integer, поэтому появляется ошибка. Какой нужно использовать оператор, чтобы перевести в константу в строковое значение?

И второй вопрос. Как это все вывести в одну строку, чтобы получилось так: "ALPHA=5' ?
Следующий код:

Код:

MainMemo.Lines.add('ALPHA'+str);
MainMemo.Lines.add('ALPHA', str);

не работает. Какой разделитель использовать, чтобы вывести все в одну строку? Или как это сделать?

П.С.: извините за простые и глупые вопросы, но я не действительно не могу найти на них ответы в google за пять, десять минут, а искать дольше - не успею сделать работу.

[YVitaliy]

Мне кажется, что Comp вообще-то действительный тип. Ты где обьявлял переменную str? Дело в том что str-процедура, которая превращает число в строку, именно поэтому и ошибка, ведь ты хочеши проседуре присвоить значение String


memo1.lines.add('ALPHA='+str1);

Ха, я первый)

[NumLock]

100% работает:

Код:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
const
  alpha = 5;
//  alpha: Integer = 5;
var
  str: String;
begin
  Memo1.Lines.Add('alpha='+IntToStr(alpha));
  str:=IntToStr(alpha);
  Memo1.Lines.Add('alpha='+str);
end;

[Janom]

Все работает, хз что у тебя за трабл...

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  alpha=5;
var
  str:string;
begin
str:=intToStr(alpha);
Memo1.Lines.Add('ALPHA='+str);
end;

Не успел............................................. ........................................)

[YVitaliy]

Вот я и спрашиваю, где он обьявил переменную str.