Цитата:
|
Сообщение от Gad99
Компилятор все равно ругается вот на эту строчку
AssignFile(Anketa1,(Load1.ListBox1.Items.Objects[Load1.ListBox1.ItemIndex] as TMyFile).Name)+'.tms');
|
у мена D7 компилятор не ругается (смотри файл)
попробуй убрать красную скобку
AssignFile(Anketa1,(Load1.ListBox1.Items.Objects[Load1.ListBox1.ItemIndex] as TMyFile).Name
)+'.tms');
а
+'.tms' зачем? ты же Name никому не показываешь и извлекаеш из файла так и храни там хоть полный путь (хотя это уже твое дело)
И не забывай смотреть, что пишешь