Форум программистов [Powered by Invision Power Board]

Код


unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Unit8, Unit9, Unit10, Unit11, Unit12;

type
  TForm6 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N2: TMenuItem;
    Button1: TButton;
    Frame81: TFrame8;
    Button2: TButton;
    Button3: TButton;
    Frame91: TFrame9;
    Frame101: TFrame10;
    Frame111: TFrame11;
    Frame121: TFrame12;
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Frame91RadioGroup1Click(Sender: TObject);
    procedure Frame101RadioGroup1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Frame111RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
   i: integer;
   a: integer;
implementation

uses Unit1;

{$R *.dfm}

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

procedure TForm6.Button1Click(Sender: TObject);
begin
Form6.Visible:= false;
Form1.Visible:= true;
end;

procedure TForm6.Button2Click(Sender: TObject);
begin
Frame81.Visible:= False;
Frame91.Visible:= True;
Button2.Visible:= False;
Button3.Visible:= True;
Button1.Visible:= False;

end;

procedure TForm6.Frame91RadioGroup1Click(Sender: TObject);
begin
inc(i);
end;

procedure TForm6.Frame101RadioGroup1Click(Sender: TObject);
begin
inc(i);
end;



procedure TForm6.Button3Click(Sender: TObject);
begin
if i=1 then begin
Frame91.Visible:= False;
Frame101.Visible:= True;
end
else if  i=2 then begin
Frame101.Visible:= false;
Frame111.Visible:= True;
Button3.Caption:='Çàêîí÷èòü òåñò';
end
else if i=3 then begin
Frame111.Visible:= false;
Frame121.Visible:= True;
Button1.Visible:= True;
Button3.Visible:= False;
end;
if  Frame91.RadioGroup1.ItemIndex=0 then begin
inc(a);
end;
if  Frame101.RadioGroup1.ItemIndex=1 then begin
inc(a);
end;
if  Frame111.RadioGroup1.ItemIndex=2 then begin
inc(a);
end;
Frame121.Memo1.Lines:= inttostr(a);
end;
procedure TForm6.Frame111RadioGroup1Click(Sender: TObject);
begin
inc(i);
end;

end.

Цитата(Фантом @ 11.11.2013, 21:50)

Может быть, Вам стоит начать с изучения английского? Или научиться использовать переводчик от google...

Цитата(ermilo123 @ 11.11.2013, 22:51

)

почему это?

Цитата(Фантом @ 11.11.2013, 22:13)

Цитата(ermilo123 @ 11.11.2013, 22:51

)

почему это?

Потому что в процитированной Вами ошибке содержится вся необходимая информация.

P.S. Если совсем тяжело, то число в скобочках - это номер строки исходника, в которой возникла ошибка. Ищите присваивание в 109-й строке. Что такое "Incompatible types", переводчик от google знает.

Цитата(ermilo123 @ 11.11.2013, 22:25

)

как из типа int сделать T string

Код

s := IntToStr(10);

Цитата(ermilo123 @ 11.11.2013, 23:25

)

я понимаю, что это несоответствие типов, но как из типа int сделать T string, не знаю, в этом и вопрос

Цитата(Akella @ 11.11.2013, 23:08)

Цитата(ermilo123 @ 11.11.2013, 22:25

)

как из типа int сделать T string

Код

s := IntToStr(10);

а так почему не пробовал?
https://www.google.com.ua/search?q=delphi+%D0%BA%D0%B0%D0%BA+%D0%B8%D0%B7+%D1%82%D0%B8%D0%BF%D0%B0+int+%D1%81%D0%B4%D0%B5%D0%BB%D0%B0%D1%82%D1%8C+string&ie=utf-8&oe=utf-8&rls=org.mozilla:ru:official&client=firefox-a&channel=fflb&gws_rd=cr&ei=CjmBUqfQMsnoswa4joDgAg

Цитата(Фантом @ 11.11.2013, 23:10)

Цитата(ermilo123 @ 11.11.2013, 23:25

)

я понимаю, что это несоответствие типов, но как из типа int сделать T string, не знаю, в этом и вопрос

А почему бы сразу и не написать именно этот вопрос, не заставляя всех окружающих добираться до него самостоятельно? smile

Ладно, ближе к делу. TSTrings (полезно, кстати, обратить внимание на окончание множественного числа в названии типа) - это, вообще говоря, абстрактный предок разных видов списков строк. Запихивать в него одну строку (изготовленную из целого числа) как-то нехорошо, разве что предполагается, что весь список из одной этой строки состоять и будет. Если именно это и является целью, то у всех потомков TStrings есть метод-функция Add. Единственный аргумент - добавляемая строка, результат - индекс вновь добавленной строки.

Код


str.text := IntToStr(i)

Код


str.Add(IntToStr(i)

Цитата(ermilo123 @ 11.11.2013, 23:11

)

мне нужен не string, а T string, тип данных для memo

Цитата(ermilo123 @ 11.11.2013, 23:11

)

не могли бы Вы написать пример перевода типа int в T Strings, пожалуйста?