Две ошибки

[Crivel]

Что означает эта ошибка? -
[Pascal Error] TimeController.pas(54): E2064 Left side cannot be assigned to

и ещё, у меня есть код:

Cannon := 'Статус: ' + Active + ' | Текст: ' + Messages + ' | ' + Hours + ':' + Minutes + ' | ' + Days + ' | Звук' + Sounds;

Выдаёт ошибку -
[Pascal Error] TimeController.pas(60): E2010 Incompatible types: 'string' and 'Boolean'

Хотя все переменные типа String!

[Arigato]

Хотя все переменные типа String!

И Active String?
Без кода что-либо сказать невозможно.

[Crivel]

Вот переменные -

Form1: TForm1;
  F1 : Text;
  F2 : Text;
  F3 : Text;
  F4 : Text;
  F5 : Text;
  F6 : Text;
  Active : String;
  Messages : String;
  Hours : String;
  Minutes : String;
  Days : String;
  Sounds : String;
  Cannon : String;

[zetrix]

...'string' and 'Boolean'
Хотя все переменные типа String!

значит не все. По приведённым кускам кода ничего сказать нельзя, хотя... можно: по имеющемуся коду, оно работает 100%. Выкладывайте остальное, иначе не разобраться.

[Crivel]

unit TimeController;

interface

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

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

var
  Form1: TForm1;
  F1 : Text;
  F2 : Text;
  F3 : Text;
  F4 : Text;
  F5 : Text;
  F6 : Text;
  Active : String;
  Messages : String;
  Hours : String;
  Minutes : String;
  Days : String;
  Sounds : String;
  Cannon : String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(F1,'DataBase\Active');
AssignFile(F2,'DataBase\Messages');
AssignFile(F3,'DataBase\Hours');
AssignFile(F4,'DataBase\Minutes');
AssignFile(F5,'DataBase\Days');
AssignFile(F6,'DataBase\Sounds');
Reset(F1);
Reset(F2);
Reset(F3);
Reset(F4);
Reset(F5);
Reset(F6);
repeat
ReadLn(F1,Active);
ReadLn(F2,Messages);
ReadLn(F3,Hours);
ReadLn(F4,Minutes);
ReadLn(F5,Days);
ReadLn(F6,Sounds);
Cannon := 'Статус: ' + Active + ' | Текст: ' + Messages + ' | ' + Hours + ':' + Minutes + ' | ' + Days + ' | Звук' + Sounds;
Memo1.Lines.Add(Cannon)
until Eof(F1) and Eof(F2) and Eof(F3) and Eof(F4) and Eof(F5) and Eof(F6);
end;

end.

[Arigato]

1. Я думаю, что условие выхода из цикла нужно сделать так (т.к. длинны файлов могут быть разные):

until Eof(F1) or Eof(F2) or Eof(F3) or Eof(F4) or Eof(F5) or Eof(F6);

2. Почему не String? Переименуйте переменную Active и должно заработать. В данном случае это не то, что вы ожидаете.

[Ring0Sn]

Народ ну вы даёте, куда смотрите то

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

Вот переменные -

Form1: TForm1;
  F1 : Text;
  F2 : Text;
  F3 : Text;
  F4 : Text;
  F5 : Text;
  F6 : Text;
  Active : String; !!!!!!!!!!!!!!!!!
  Messages : String;
  Hours : String;
  Minutes : String;
  Days : String;
  Sounds : String;
  Cannon : String;

Аctive - прежде всего локаль TForm, естественно на неё и идет упор, а тк она ReadOnly то и получаешь

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

[Pascal Error] TimeController.pas(54): E2064 Left side cannot be assigned to

TC переменуй Active в Active1

[Crivel]

Всё работает! всем спасибо! только интересно, причём название переменной?

[Crivel]

А то, я что-то, не понял.

[Alter]

Потому-что имя переменной совпадает со свойством компонентов, НЕЛЬЗЯ использовать имена переменых, которые совпадают со свойствами компонентов или зарезервированных слов среды.