[Мяфк]

Начала вылезать странная ошибка: Left side cannot be assigned to. Хотя пару дней назад её не было, а я ничего не менял в проекте. Подумал может файл битый, пересоздал, всё равно ошибка есть. Ругается на каждую строку ReadLn. Вот код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var F : TextFile;
begin
  AssignFile (F,'save.txt');
  Reset (F);
  ReadLn (F,Form2.Name.caption);
  ReadLn (F,Form2.Lvl.caption);
  ReadLn (F,Form2.Job.caption);
  ReadLn (F,Form2.Exp.caption);
  ReadLn (F,Form2.Jexp.caption);
  ReadLn (F,form3.Str.caption);
  ReadLn (F,form3.Agi.caption);
  ReadLn (F,form3.Dex.caption);
  ReadLn (F,form3.Int.caption);
  ReadLn (F,form3.Vit.caption);
  ReadLn (F,form3.Luk.caption);
  CloseFile (F);
end;

Проверил все лэйблы есть..

[PhoeniX]

[off]Явно какая-то игровая прога...[/off]
Попробуй читать в строковую переменную, а из неё уже присваивать значения.
like this:

Код:

var
  ts: string;
...
  ReadLn (F,ts);
  Form2.Name.caption:=ts;

[Мяфк]

[off]Да, чисто для себя пишу..[/off]
Хорошо попробую. Но вопрос в том почему пару дней назад не ругался, а сейчас стал ругаться?

[Assistant]

Сообщение от Мяфк

Но вопрос в том почему пару дней назад не ругался, а сейчас стал ругаться?

это уличная магия )))) а на самом, деле так не бывает, всегда есть причина.

Такие функции из ПАСКАЛЯ, как ReadLn, Delete, Read, WriteLn - херовато дружат с классами и объектами, поэтому и ругается. Где-то на форуме уже был вопрос по поводу Delete, такое же решение дали.