Delphi - Срочно!Не могу найти ошибки.Помогите!!!

[VM007]

Прога простейшая, транслитератор, но я чайник

Помогите найти ошибки, не сохраняет и говорит что текстовый файл не найден.

Что делать, через 3 часа надо сдавать.

Код в текстовом файле.

[pva]

Код:

Код: Выделить всё

 AssignFile(f1,SaveTextFileDialog1.FileName);  
  Reset(f1);               
  {$I+}                      
  If IOResult  0 then     
   begin
      Application.MessageBox('Не удается открыть файл "*.txt"','Ошибка открытия файла',mb_ok);
      Application.Terminate; 
    end;
  AssignFile(f2,SaveTextFileDialog1.FileName);

Открываешь файл (и блокируешь), а потом в него же пытаешься записывать

[VM007]

Reset(f1);

{$I+}

If IOResult 0 then

begin



Application.MessageBox('Не удается открыть файл "*.txt"','Ошибка открытия файла',mb_ok);

Application.Terminate;

end;

Это все выкинуть?

просто я половину списал

[VM007]

Все равно он почему то не компилируеся.

Выдает ошибку здесь: - SaveTextFileDialog1.Execute;- Что делать?

[VM007]

Предыдущая строчка не заканчивается ;



Но это не имеет ни малейшего значения, поскольку логика работы...

Зачем ты загружаешь файл в memo1 и потом сохраняешь его? Чтобы можно было править? Тогда разберись с именами файлов в манипуляциях с memo1 и в самой процедуре обработки

На логическую ошибку тебе уже указал pva - открыть файл f1 для чтения и тут же f2 с таким же именем для записи, стереть его и попытаться из него читать... Не-а, не выйдет




Цитата VM007:



просто я половину списал



Заметно


Цитата VM007:



через 3 часа надо сдавать




Цитата:



Отправлено: 13:23



Наверное, всё, время вышло...

[VM007]

Выражаю особую благодарность PVA.

Спасибо, все понял, нагородил сам лишнего, а потом ищу ошибки.

Но как говориться "Молодо-зелено"

Большое спасибо PVA за помощь.

Все решено.