Начала вылезать странная ошибка: 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;
Проверил все лэйблы есть..