Помогите! Файлы .txt и .html открываются простым перетаскиванием их в мою программу. Дальше смотрите код.

Код

procedure TForm1.wmDropFiles(var Message: TMessage); var  Ext: string;      Count: integer; begin Count := DragQueryFile(Message.WParam, 0, @S[1], 255); Length(S) := Count; DragFinish(Message.WParam); if Count >0 then   begin   Ext := LowerCase(ExtractFileExt(S));   if (Ext = '.htm') or (Ext = '.html') then     begin     TWinControl(html).Visible := true;     html.navigate(S);     html.Tag:=1;     end   else if (Ext = '.txt') then -----------------------------------------                 Как мне проверить если прежний файл был изменен?                  Это не работает                      if memo1.tag=1 then                             begin                                 case MessageDlg('Do you want to save?', mtConfirmation, mbYesNoCancel, 0) of                                     IDYes: Save1click(sender);  - - - - - - -     Undeclared identifier                                     IDCancel: exit;                                     end; ------------------------------------------     begin     TWinControl(html).Visible := False;     memo1.lines.LoadFromFile(S); -------------------------------------------                            а тут получить form1.Caption файла -------------------------------------------     memo1.tag:=0;     end;   end; Message.Result := 0; end;

Это сообщение отредактировал(а) Pavelbej - 31.7.2005, 11:10

Цитата

Как мне проверить если прежний файл был изменен?                 Это не работает

два варианта - хранить даты изменения файлов и сравнивать их
и более надёжный - делать контрольные суммы для каждого файла и проверять их

Цитата

а тут получить form1.Caption файла

здесь не совсем понятно - что тебе нужно

может это:

function ExtractFileName(const FileName: string): string; Извлекает из строки с полным именем файла FileName часть, содержащую его имя и расширение.

а дальше понятно:

Код

Form1.Caption := 'MyProg - ' + ExtractFileName(S);

С именем файла все вышло, благодарю, а вот насчет проверки изменения файла не мог бы по подробнее?

вариант 1: делаешь файл или БД при открытии файла проверяешь наличие этого файла в БД, если есть то идёшь ко второму полю где хранишь даты изменений файлов (как получить смотри в FAQ). Далее сравниваешь, если различаются значит изменяли, совпадают = не изменяли. если нет = файл не открывался до этого.

Но файл можно изменить не меняя даты изменения хранящейся в файле, отсюда следует способ 2:

Аналогично первому делаешь файл или БД где будешь хранить пути с именами файлов и контрольные суммы.
Далее при открытии файла по его содержимому делаешь контрольную сумму(алгоритм можно свой придумать). Сверяешь с имеющимся в БД, есть - совпадает = не изменялся, есть - не совпадает = изменялся, нет = не открывался

Я месяц как сижу в Delphi и для меня это еще слишком сложно. Нельзя ли както по простому вызвать диалог сохранения?

Цитата

Я месяц как сижу в Delphi и для меня это еще слишком сложно.

Это не так сложно как кажется...Тем более в местном FAQ почти всё есть...

Цитата

Нельзя ли как-то по простому вызвать диалог сохранения?

Не понял? поясни свою идею... или может я не понял что тебе нужно?

Я хочу просто вызвать - Save1click(sender), но ему не нравится этот Sender, а вить создавая или открывая новый файл все работает нормально, в чем же тут дело?

Цитата

Я хочу просто вызвать - Save1click(sender), но ему не нравится этот Sender, а вить создавая или открывая новый файл все работает нормально, в чем же тут дело?

я так понимаю, это уже другой вопрос...

Ну мы не телепаты. Надо смотреть код.

А чего дату/время изменения не сравнить?