Как преобразовать число в строку? И решить задачу...

[alexkgx1]

В общем задали мне лабу, саму лабу прикрепил к теме.
В общем задача нужно создать простейшую тестирующую программу состоящую из трёх вопросов.
И там идёт пункт:
Описать переменную k, в которой мы будем подсчитывать количество правильных ответов.
If RadioGroup1.ItemIndex=… then k:=k+1;
If RadioGroup2.ItemIndex=… then k:=k+1;
…
И вывести k как результат в любой подходящий компонент, не забыв его преобразовать из числа в строку.

В итоге у меня вышло вот так:

unit add;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    btn1: TBitBtn;
    rg1: TRadioGroup;
    rg2: TRadioGroup;
    rg3: TRadioGroup;
    lbl1: TLabel;
    procedure rg1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.rg1Click(Sender: TObject);
var k:integer;
begin
If rg1.ItemIndex=4 then k:=k+1;
If rg2.ItemIndex=2 then k:=k+1;
If rg3.ItemIndex=3 then k:=k+1;
lbl1.caption:=inttostr(k);
end;
end.

Мне нужно что бы выводило сообщение 'Вы ответили правильно' но как вы понимаете у меня ничего не вышло по той причине что не знаю как преобразовать из числа в строку вот этот k.

Большая просьба растолковать что да как ну в общем помогите запустить программу.

Спасибо заранее.

[alexan0308]

var sssr:string;

sssr:='Вы ответили правильно на ' + inttostr(k) + ' вопросов!'; showmessage(sssr);

[alexkgx1]

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

var sssr:string;

sssr:='Вы ответили правильно на ' + inttostr(k) + ' вопросов!'; showmessage(sssr);

Ну такой вариант меня не устраивает как бы по смыслу задачи немного мне нужно что бы вывод был такой же как в примере лабы то есть через lable я пробовал такой вариант:
IF k = 3
THEN lbl1.caption:='Вы ответили правильно';
ELSE lbl1.caption:= Format('Количество правильных ответов: %d',[k]);
но он так работать тоже не хочет.

[Utkin]

lbl1.caption:="Ваша оценка - "+inttostr(k);

Типа такого?

sssr:='Вы ответили правильно на ' + inttostr(k) + ' вопросов!'; 
lbl1.caption:=sssr;

А так не?

[alexkgx1]

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

lbl1.caption:="Ваша оценка - "+inttostr(k);

Типа такого?

sssr:='Вы ответили правильно на ' + inttostr(k) + ' вопросов!'; 
lbl1.caption:=sssr;

А так не?

Ну вот примерно то что нужно,только родилась ещё проблем где то в

If rg1.ItemIndex=4 then k:=k+1;
If rg2.ItemIndex=2 then k:=k+1;
If rg3.ItemIndex=3 then k:=k+1;

Точней он не считает кол-во правильных ответов а выдаёт результаты в совершенно не понятном порядке хотя по идеи в первом вопросе правильный ответ 4 во втором 2 а в третьем 3 но в если я так овтечаю то он мне выдает Вы ответили правильно на 0 вопросов! . Выходит так что в 1 вопросе вообще нет правильного овтета,во 2 вопросе правильный ответ 2 и в 3 вопросе правильный ответ 4. Что совершенно не то что надо.

[alexan0308]

В TRadioGroup нумерация кажись с нуля... попробуй везде отними единичку...

[alexkgx1]

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

В TRadioGroup нумерация кажись с нуля... попробуй везде отними единичку...

Да всё получилось.
Спасибо. Очень благодарен всем кто принимал участие в решение моей проблемы.

[саша40]

преобразовать число в строку в Delphi:

floattostr(число); //если тип real 
inttostr(число); //если тип integer