Работа с файлами. Общий доступ

[drknn]

Мне нужно программно открыть текстовый документ, расположенный по заранее известному адресу - открыть для редактирования, ну или полностью заменить его. Насколько я понял из букварей Delphi, другая программа, которая открыла файл, может открыть его в режиме запрета доступа других программ к этому файлу. Значит, прежде чем открывать данный *.txt, нужно проверить, а есть ли у моей программы право его открывать для редактирования? Подскажите пожалуйста, как проверить этот флаг.
Далее. Допустим право редактировать данный файл у моей программы есть. Она его открыла, изменила его и сохранила. НО! Другая программа, открывшая этот файл раньше моей, замешкалась (моя сработала быстрее) и закончила вносить изменения позже, чем моя. В результате она сохранит свои изменения в этом файле, фактически заменив его. Это значит, что инфа, которую внесла моя программа, попросту исчезнет. Отсюда возникает вопрос, как наладить работу моей программы так, чтоб она открывала тот *.txt тогда и только тогда, когда он не открыт ни какой другой программой? И при этом открывала его в режиме, запрещающем другим программам открывать его? Какие команды Delphi для этого используются? И вообще,возможно ли осуществить в коде мною задуманное?

[phomm]

Думаю подойдёт так

var fs : TFileStream;
...
fs := TFileStream.Create('путь_до_файла', fmOpenReadWrite or fmShareExclusive);
//работаем с файлом, см. справку по TFileStream по конкретным командам
freeandnil(fs);

[drknn]

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

Думаю подойдёт так

var fs : TFileStream;
...
fs := TFileStream.Create('путь_до_файла', fmOpenReadWrite or fmShareExclusive);
//работаем с файлом, см. справку по TFileStream по конкретным командам
freeandnil(fs);

Ндааа, помнится Флёнов писал что-то такое же в своей "Библии Делфи". Спасибо, буду посмотреть. Жаль в инете не вижу полного описания TFileStream - всё какие-то кусочки, да копирование с чужих рессурсов

[Человек_Борща]

А вам интернет и не нужен вообще. Откройте справку delphi и там описание чего угодно, во всей красе. Иногда даже с примерами.

Далее делайте полную копию исходного документа во временную папку ну и работайте с ним. Приоритет будет за вами.
notepad++ так и делает. Исходный док-нт бросает во временную папку и следит за исходным. Если исходный изменился, предлагает юзеру перезагрузить документ, или продолжить изменять тот что во временной папке лежит.

ТС вы заблуждаетесь!
Если вы открыти файл через memo или RichEdit то другая программа сможет только открыть файл НО не изменить его.
При условии что спользуется класс Tstrings(а в этих комонентах он точно есть), видим его LoadFromFile:

procedure TStrings.LoadFromFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Сообщение от Delphi Help

fmShareDenyWrite - Other applications can open the file for reading but not for writing.

[drknn]

Сообщение от Человек_Борща

А вам интернет и не нужен вообще. Откройте справку delphi и там описание чего угодно, во всей красе. Иногда даже с примерами.

Английским не владею.

[Человек_Борща]

drknn, ну тогда вас ждут пень-колода и гвозди на каждом шагу.

[phomm]

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

Программирую на MQL4 уже не первую пятилетку

и

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

Английским не владею

это, как минимум, дико (хотя и не знаю что за зверь mql4).
Вот Вам ру-источник для начала - http://stfw.ru/page.php?id=4234
Из самого стрима много свойств и методов знать не обязательно, достаточно нескольких, а по остальным - заходите в справку и для каждого свойства/метода в гугле ищете русский источник.
Ещё совет - научитесь поконкретней вопросы ставить - проще помочь Вам будет.

[drknn]

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

...это, как минимум, дико (хотя и не знаю что за зверь mql4).

Открою Вам правду. Приезжала тут как-то в одну из наших школ девочка из Америки - Штат Айова. Приезжала преподавать детям английский язык - её школа пригласила. По-русски - ни бум-бум. Я в школе "учил" английский. С девушкой пересёкся у друга дома - друг преподаёт классическую гитару и его ученик и пригласил девушку в гости к нему. Контакт с этой девушкой мне показал, что моих знаний английского + применения языка жестов вполне достаточно, чтоб понять друг-друга.
Но технический английский - это совсем не то, что разговорный. Мне как-то попался в руки словаь технического английского. Я открыл статью "mother" и был весьма удивлён, что это слово переводилось как "станина станка". Ни о какой маме и близко небыло упоминания. Поэтому когда заходит речь о чтении программной справки на английском, я честно говорю, что не владею этим языком.

MQL4 - это си-образный язык, предназначенный для программирования торговых роботов. К этому посту я приложил документ всего в 1300 строк программного кода. Распакуйте архив и откройте документ текстовым редактором - получите представление об этом языке и если хотя бы поверхностно знаете С, то многое покажется знакомым.

[GunSmoker]

Ндааа, помнится Флёнов писал что-то такое же в своей "Библии Делфи". Спасибо, буду посмотреть. Жаль в инете не вижу полного описания TFileStream - всё какие-то кусочки, да копирование с чужих рессурсов

Потоки данных.

[rpy3uH]

Во-первых, называем нормально тему
Во-вторых, топикстартёр, ты пишешь много лишнего, первый твой пост в этой теме я смог переварить только с третьего захода. Слишком много букаф на такой простой вопрос
В-третьих, вопрос - боян, легко гуглится, все вопросы снимаются чтением кошерных книжек и статей по Delphi

По теме: юзаем гугль, четвёртая ссылка расскажет почти всё что надо по классу TFileStream