Не добавляются строки в TStringList помогите плиз!! Очень нужно.

[mixer12]

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

Вы же сами просили проверку четырёх условий:


Ваша "program oshi;" ничего этого не делает.

Набор команд для работы с файлами:Assign, Reset, Rewrite, BlockRead, BlockWrite, Read, Readln, Write, WriteLn, Close, IOResult тянется ещё с древних времён для однозадачных ОС (ДОСа). В многозадачных (Linux, Windows, ...) файл может быть открыт несколькими программами одновременно. И пока вы будете читать, данные могут быть переписаны. Поэтому надо использовать команды работы с файлами с поддержкой прав доступа. Потоки данных TFileStream это поддерживают — "всем запретить запись, пока я читаю".

В вашем случае интенсивной работы нет и хватит обойтись без прав доступа.

except                                                                                                                                                                
on E:Exception do                                                                                                                                                                                                                                                                                                                    
writeln('файла нет: ' ,E.Message);                                                                                                                                    
 end;                                                                                                                                                                       
end.

Наверное это лишнее, пока пользуйтесь IOResult.

Вот теперь все понял, спасибо! Буду заниматься!