VPF::Ошибка [Error] Unit6.pas(109): Incompatible types:

ermilo123

Дата 11.11.2013, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2013

Репутация: нет
Всего: нет

вот такая вот проблема [Error] Unit6.pas(109): Incompatible types: 'TStrings' and 'String'

Код


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 (ссылка)

(голосов:2)

Загрузка ...

Вы это прекратите!

Профиль
Группа: Участник Клуба
Сообщений: 1516
Регистрация: 23.3.2008

Репутация: нет
Всего: 49

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

ermilo123

Дата 11.11.2013, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2013

Репутация: нет
Всего: нет

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

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

почему это?

Фантом

Дата 11.11.2013, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Вы это прекратите!

Профиль
Группа: Участник Клуба
Сообщений: 1516
Регистрация: 23.3.2008

Репутация: нет
Всего: 49

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

)

почему это?

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

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

ermilo123

Дата 11.11.2013, 22:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2013

Репутация: нет
Всего: нет

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

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

)

почему это?

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

Это сообщение отредактировал(а) ermilo123 - 11.11.2013, 22:26

Akella

Дата 11.11.2013, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

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

)

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

Код

s := IntToStr(10);

а так почему не пробовал?
https://www.google.com.ua/search?q=delphi+%...QMsnoswa4joDgAg

Фантом

Дата 11.11.2013, 23:10 (ссылка)

(голосов:2)

Загрузка ...

Вы это прекратите!

Профиль
Группа: Участник Клуба
Сообщений: 1516
Регистрация: 23.3.2008

Репутация: нет
Всего: 49

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

)

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

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

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

ermilo123

Дата 11.11.2013, 23:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.11.2013

Репутация: нет
Всего: нет

Цитата(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+%...QMsnoswa4joDgAg

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

Добавлено через 2 минуты и 7 секунд

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

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

)

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

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

Poseidon

Дата 12.11.2013, 00:53 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Код


str.text := IntToStr(i)

или

Код


str.Add(IntToStr(i)

Ждем теперь темы с ошибками AV при работе с TStrins smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Akella

Дата 12.11.2013, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

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

)

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

Ты хоть бы правильно писал - TStrings.

Добавлено @ 15:28

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

)

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

TStrings - это список, а int (Integer) - это целое число.
В итоге ты хочешь перевести число в список.
Ты можешь добавить число в некий список, или убрать число из этого списка. Можешь сделать, чтобы список состоял из одного только числа. Но перевести/конвертировать число в список.... Ты хоть понимаешь всю абсурдность твоего желания или нет?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »